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

Diff of /FigWebServices/pir.cgi

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

revision 1.9, Sat Feb 12 01:11:04 2005 UTC revision 1.10, Sat Feb 12 01:31:19 2005 UTC
# Line 56  Line 56 
56    
57  if ($cgi->param('tabulate')) {  if ($cgi->param('tabulate')) {
58   $html=&table_annotations($html, $pegbypir, $pirid);   $html=&table_annotations($html, $pegbypir, $pirid);
59   push @$html, $cgi->p($cgi->div({class=>"diagnostic"}, ("<small>Generating this table took approximately " . (time-$^T) . " seconds\n</small>")));   push @$html, $cgi->p({class=>"diagnostic"}, ("<small>Generating this table took approximately " . (time-$^T) . " seconds\n</small>"));
60  }  }
61  elsif ($cgi->param('pirsf')) {  elsif ($cgi->param('pirsf')) {
62   # we want to display one of the correspondances   # we want to display one of the correspondances
# Line 220  Line 220 
220    
221   my $col_hdrs = ["Number of SEED annotations in a Superfamily", "PIRSF<br><small>(Link goes to SEED/PIR comparison)</small>",   my $col_hdrs = ["Number of SEED annotations in a Superfamily", "PIRSF<br><small>(Link goes to SEED/PIR comparison)</small>",
222                   "Superfamily name", "Subsystems in superfamily"];                   "Superfamily name", "Subsystems in superfamily"];
223   my $tab; my $lastcount;   my $tab; my $lastcount; my $row;
224   # note we are going to make a new table every 200 rows because that way the browsers don't get messed up   # note we are going to make a new table every 200 rows because that way the browsers don't get messed up
225   foreach my $sf (sort {$count->{$b} <=> $count->{$a}} keys %$count) {   foreach my $sf (sort {$count->{$b} <=> $count->{$a}} keys %$count) {
226      $row++;
227    if ($lastcount ne $count->{$sf}) {    if ($lastcount ne $count->{$sf}) {
228     $lastcount=$count->{$sf};     $lastcount=$count->{$sf};
229     push(@$html,&HTML::make_table($col_hdrs,$tab,"")) if ($tab);     if ($tab && $row > 50) {
230        push(@$html,&HTML::make_table($col_hdrs,$tab,""));
231        $row=0;
232        undef $tab;
233       }
234    }    }
235    push @$tab, [    push @$tab, [
236     $count->{$sf},     $count->{$sf},
237     "<a href=\"http://seed-linux-2.uchicago.edu/FIG/pir.cgi?pirsf=$sf&ssonly='1'&user=''>$sf</a>",     "<a href=\"http://seed-linux-2.uchicago.edu/FIG/pir.cgi?pirsf=$sf&ssonly='1'&user=''\">$sf</a>",
238     $pirid->{$sf},     $pirid->{$sf},
239     $subsystems->{$sf},     $subsystems->{$sf},
240    ];    ];

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3