[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

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

revision 1.77, Wed Dec 28 04:00:26 2005 UTC revision 1.78, Wed Dec 28 04:03:24 2005 UTC
# Line 552  Line 552 
552      foreach my $x (@$coupling)      foreach my $x (@$coupling)
553      {      {
554          my($peg2,$psc,$type,$extra) = @$x;          my($peg2,$psc,$type,$extra) = @$x;
555            if (($type !~ /^[ID]FC$/) || (! $fc{$peg2}))
556            {
557                if ($type =~  /^[ID]FC$/)
558                {
559                    $fc{$peg2} = 1;
560                }
561    
562          $by_peg{$peg2} += $psc;          $by_peg{$peg2} += $psc;
563      }      }
564        }
565    
566      foreach my $x (sort { ($by_peg{$b->[0]} <=> $by_peg{$a->[0]})      foreach my $x (sort { ($by_peg{$b->[0]} <=> $by_peg{$a->[0]})
567                            or ($a->[0] cmp $b->[0])                            or ($a->[0] cmp $b->[0])
# Line 561  Line 569 
569                            or ($a->[2] cmp $b->[2]) } @$coupling)                            or ($a->[2] cmp $b->[2]) } @$coupling)
570      {      {
571          my($peg2,$psc,$type,$extra) = @$x;          my($peg2,$psc,$type,$extra) = @$x;
         if (($type !~ /^[ID]FC$/) || (! $fc{$peg2}))  
         {  
             if ($type =~  /^[ID]FC$/)  
             {  
                 $fc{$peg2} = 1;  
             }  
572              push(@$tab,[&fid_link($cgi,$peg2,1),$psc,$type,&set_prot_links($cgi,join(", ",@$extra))]);              push(@$tab,[&fid_link($cgi,$peg2,1),$psc,$type,&set_prot_links($cgi,join(", ",@$extra))]);
573          }          }
     }  
574    
575    
576       my $help = "<a href=\"Html/abstract_coupling.html\" target=\"SEED_or_SPROUT_help\">for help</a>";       my $help = "<a href=\"Html/abstract_coupling.html\" target=\"SEED_or_SPROUT_help\">for help</a>";

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3