[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.75, Fri Dec 23 18:13:45 2005 UTC revision 1.76, Wed Dec 28 03:28:05 2005 UTC
# Line 547  Line 547 
547    
548      my $col_hdrs = ["coupled to","Score","Type of Coupling", "Type-specific Data"];      my $col_hdrs = ["coupled to","Score","Type of Coupling", "Type-specific Data"];
549      my $tab = [];      my $tab = [];
550        my %by_peg;
551      foreach my $x (@$coupling)      foreach my $x (@$coupling)
552      {      {
553          my($peg2,$psc,$type,$extra) = @$x;          my($peg2,$psc,$type,$extra) = @$x;
554            $by_peg{$peg2} += $psc;
555        }
556    
557        foreach my $x (sort { ($by_peg{$b->[0]} <=> $by_peg{$a->[0]})
558                              or ($a->[0] cmp $b->[0])
559                              or ($b->[1] <=> $a->[1])
560                              or ($a->[2] cmp $b->[2]) } @$coupling)
561        {
562            my($peg2,$psc,$type,$extra) = @$x;
563          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))]);
564      }      }
565    
566    
567      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>";
568  #    my @html = &make_table($col_hdrs,$tab,"Abstract Coupling Data for $prot");  #    my @html = &make_table($col_hdrs,$tab,"Abstract Coupling Data for $prot");
569  #    push(@html,"<hr>\n",$cgi->h3($help),"<br>");  #    push(@html,"<hr>\n",$cgi->h3($help),"<br>");

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3