sub getfromdb {
        $diagId = shift;
        $dbh = ConnectDB($User, $Password);
        $sql = "SELECT version FROM diagramversion WHERE diagram_id='$diagId' AND workflow_state='Stored'";  #to_char(version,'099') didn't work
        $sth = RunJobDB($dbh, $sql);
        @version = $sth->fetchrow_array;
        $version = $version[0];
        $sth->finish();
        DisconnectDB($dbh);
        $version = sprintf( "%03d", $version );
        $fullId = $diagId."-".$version;
        return("dia_View.pl+?diagram_id=$fullId");
}

$$imageMap =~ s/ViewObject.pl\?name=(.*?)_DIAGLINK/getfromdb($1)/gei;