[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.10, Sat Feb 12 01:31:19 2005 UTC revision 1.11, Sat Feb 12 02:06:37 2005 UTC
# Line 55  Line 55 
55    
56    
57  if ($cgi->param('tabulate')) {  if ($cgi->param('tabulate')) {
58     print STDERR "Starting the tabulations at ", time, "\n";
59   $html=&table_annotations($html, $pegbypir, $pirid);   $html=&table_annotations($html, $pegbypir, $pirid);
60     print STDERR "Done with the tabulations at ", time, "\n";
61   push @$html, $cgi->p({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>"));
62  }  }
63  elsif ($cgi->param('pirsf')) {  elsif ($cgi->param('pirsf')) {
# Line 228  Line 230 
230     $lastcount=$count->{$sf};     $lastcount=$count->{$sf};
231     if ($tab && $row > 50) {     if ($tab && $row > 50) {
232      push(@$html,&HTML::make_table($col_hdrs,$tab,""));      push(@$html,&HTML::make_table($col_hdrs,$tab,""));
233        print STDERR "Added to html at $lastcount\n";
234      $row=0;      $row=0;
235      undef $tab;      undef $tab;
236     }     }
# Line 239  Line 242 
242     $subsystems->{$sf},     $subsystems->{$sf},
243    ];    ];
244   }   }
245     print STDERR "Added to html last time\n";
246   push(@$html,&HTML::make_table($col_hdrs,$tab,""));   push(@$html,&HTML::make_table($col_hdrs,$tab,""));
247   return $html;   return $html;
248  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3