[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.171, Sun Jul 23 05:17:14 2006 UTC revision 1.172, Mon Jul 24 19:13:00 2006 UTC
# Line 507  Line 507 
507    
508  }  }
509    
 sub make_link_to_painted_diagram{  
     my($fig, $cgi, $html ) = @_;  
     my $new_html = [];  
     push(@$new_html,"<br><br>");  
     push(@$new_html,"<a href='$FIG_Config::temp_url/painted_diagram.html'>data painted on diagram</a>");  
     push(@$new_html,"<br>");  
     &HTML::show_page($cgi,$new_html);  
     exit;  
 }  
   
510  #sub make_link_to_painted_diagram{  #sub make_link_to_painted_diagram{
511  #    my($fig, $cgi, $html ) = @_;  #    my($fig, $cgi, $html ) = @_;
512  #    my $script = "<script>  #    my $new_html = [];
513  #    window.open('$FIG_Config::temp_url/painted_diagram.html');  #    push(@$new_html,"<br><br>");
514  #    </script>";  #    push(@$new_html,"<a href='$FIG_Config::temp_url/painted_diagram.html'>data painted on diagram</a>");
515  #    push(@$html,$script);  #    push(@$new_html,"<br>");
516  #    &HTML::show_page($cgi,$html);  #    &HTML::show_page($cgi,$new_html);
517  #    exit;  #    exit;
518  #}  #}
519    
520    sub make_link_to_painted_diagram{
521        my($fig, $cgi, $html ) = @_;
522        my $script = "<script>
523        window.open('$FIG_Config::temp_url/painted_diagram.html');
524        </script>";
525        push(@$html,$script);
526        &HTML::show_page($cgi,$html);
527        exit;
528    }
529    
530  sub find_roles_to_color  sub find_roles_to_color
531  {  {
532      my ($fig,$cgi,$html)=@_;      my ($fig,$cgi,$html)=@_;
# Line 709  Line 709 
709                    push(@GrayRoles,$abbr);                    push(@GrayRoles,$abbr);
710                }                }
711                else{                else{
712                    $abbr = "'".$abbr."'";                    $abbr = qq("$abbr");
713                    push(@GreenRoles,$abbr);                    push(@GreenRoles,$abbr);
714                }                }
715            }            }
# Line 727  Line 727 
727    print OUT2 qq(<script language="JavaScript">    print OUT2 qq(<script language="JavaScript">
728         function onBodyLoad()         function onBodyLoad()
729         {         {
730              var rolesToColorGreen = new Array($GreenRolesString);
731              var rolesToColorRed = new Array($RedRolesString);
732              var rolesToColorBlue = new Array($BlueRolesString);
733              var rolesToColorGray = new Array($GrayRolesString);
734            colorEngine = new ActiveDiagram("map_div");            colorEngine = new ActiveDiagram("map_div");
735            colorEngine.load();            colorEngine.load();
736            colorEngine.colorRedRoles($RedRolesString);            colorEngine.colorRedRoles(rolesToColorRed);
737            colorEngine.colorBlueRoles($BlueRolesString);            colorEngine.colorBlueRoles(rolesToColorBlue);
738            colorEngine.colorGrayRoles($GrayRolesString);            colorEngine.colorGrayRoles(rolesToColorGray);
739            colorEngine.colorGreenRoles($GreenRolesString);            colorEngine.colorGreenRoles(rolesToColorGreen);
740         }         }
741        </script>);        </script>);
742    

Legend:
Removed from v.1.171  
changed lines
  Added in v.1.172

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3