if ($$imageMap =~ /name=(.*?)_DIAGLINK/){
		$diagId = $1;
		$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;
		
		$$imageMap =~ s/ViewObject.pl\?name=(.*?)_DIAGLINK/dia_View.pl?diagram_id=$fullId/i;
	}