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

Diff of /FigWebServices/legionella_v4.cgi

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

revision 1.1, Thu Feb 9 20:24:57 2006 UTC revision 1.2, Thu Feb 9 20:42:46 2006 UTC
# Line 210  Line 210 
210    
211  sub paint_modules  sub paint_modules
212  {  {
213    print STDERR "paint_modules called\n";    #print STDERR "paint_modules called\n";
214    my ($fig,$cgi,$html,$id_to_tag,$fig_to_alias,$alias_to_spot_url,$alias_to_exp_url)=@_;    my ($fig,$cgi,$html,$id_to_tag,$fig_to_alias,$alias_to_spot_url,$alias_to_exp_url)=@_;
215    $new_html = [];    $new_html = [];
216    $dir = "/home/mkubal/public_html";    $dir = "/home/mkubal/public_html";
# Line 253  Line 253 
253    %rid_to_tag;    %rid_to_tag;
254    foreach my $peg (@headers)    foreach my $peg (@headers)
255    {    {
256        print STDERR "peg:$peg\n";        #print STDERR "peg:$peg\n";
257        $function = $fig->function_of($peg);        $function = $fig->function_of($peg);
258        if($function =~/EC (\d+\.\d+\.\d+\.\d+)/)        if($function =~/EC (\d+\.\d+\.\d+\.\d+)/)
259        {        {
# Line 262  Line 262 
262                $tag = $id_to_tag->{$peg};                $tag = $id_to_tag->{$peg};
263                $rid_to_tag{$r} = $tag;                $rid_to_tag{$r} = $tag;
264                $rid_to_peg{$r} = $peg;                $rid_to_peg{$r} = $peg;
265                #print STDERR "peg,rid,tag:$peg,$r,$tag\n";                ##print STDERR "peg,rid,tag:$peg,$r,$tag\n";
266            }            }
267        }        }
268    }    }
# Line 384  Line 384 
384           elsif($tag < 80){$color ="#FF0066" }           elsif($tag < 80){$color ="#FF0066" }
385           elsif($tag < 100){$color ="#FF0033" }           elsif($tag < 100){$color ="#FF0033" }
386           else{$color ="#FF0000" }           else{$color ="#FF0000" }
387           print OUT2 "<h5 STYLE='position: absolute; top:$top; left:$left'><a href='$spot_url' $mo2><font Color='$color'>$tag</font></h5>\n";           print OUT2 "<h5 STYLE='position: absolute; top:$top; left:$left'><a href='$spot_url' ><font Color='$color'>$tag</font></h5>\n";
388    
389           $left = $left + 50;           $left = $left + 25;
390           $exp_url = $alias_to_exp_url{$alias};           $exp_url = $alias_to_exp_url{$alias};
391           print OUT2 "<h5 STYLE='position: absolute; top:$top; left:$left'><a href='$exp_url' $mo2><font Color='$color'>test_exp</font></h5>\n";           print OUT2 "<h5 STYLE='position: absolute; top:$top; left:$left'><a href='$exp_url'><font Color='$color'>test_exp</font></h5>\n";
392          }          }
393    
394        $peg = 0;        $peg = 0;
# Line 409  Line 409 
409    foreach my $ar (@all_rids){    foreach my $ar (@all_rids){
410        $left = $start_left;        $left = $start_left;
411        $fid = $rid_to_peg{$ar};        $fid = $rid_to_peg{$ar};
412        #print STDERR "peg:$fid $ar\n";        ##print STDERR "peg:$fid $ar\n";
413        $alias = $fig_to_alias{$fid};        $alias = $fig_to_alias{$fid};
414        my $add = 1;        my $add = 1;
415        foreach $dr (@rids_on_diagram){        foreach $dr (@rids_on_diagram){
# Line 533  Line 533 
533   my $hash;   my $hash;
534   my $fig_to_alias;   my $fig_to_alias;
535   my $alias_to_fig;   my $alias_to_fig;
536   my %alias_to_spot_url;   my $alias_to_spot_url;
537   my %alias_to_exp_url;   my $alias_to_exp_url;
538    
539   open(ID2PEG,"/home/mkubal/public_html/lpg_to_peg.txt");   open(ID2PEG,"/home/mkubal/public_html/lpg_to_peg.txt");
540   @lines = <ID2PEG>;   @lines = <ID2PEG>;
# Line 548  Line 548 
548   foreach my $g (@$given)   foreach my $g (@$given)
549   {   {
550       my $id ="";       my $id ="";
551       if ($g =~/(.*?)(\s+|\t)(.*?)(\s+|\t)(.*?)(\s+|\t)(.*?)/){       if ($g =~/(.*?)(\s+|\t)(.*?)(\s+|\t)(http.*?)(\s+|\t)(http.*)/){
552    
553          $temp_id = $1;          $temp_id = $1;
554          $tag = $3;          $tag = $3;
555          $spot_url = $5;          $spot_url = $5;
556            print STDERR "spot_url:$spot_url\n";
557          $exp_url = $7;          $exp_url = $7;
558            print STDERR "exp_url:$exp_url\n";
559          $alias_to_spot_url{$temp_id} = $spot_url;          $alias_to_spot_url{$temp_id} = $spot_url;
560          $alias_to_exp_url{$temp_id} = $exp_url;          $alias_to_exp_url{$temp_id} = $exp_url;
561    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3