[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.5, Fri Feb 11 23:53:37 2005 UTC revision 1.6, Sat Feb 12 00:06:15 2005 UTC
# Line 56  Line 56 
56    
57  if ($cgi->param('tabulate')) {  if ($cgi->param('tabulate')) {
58   $html=&table_annotations($html);   $html=&table_annotations($html);
59     push @$html, $cgi->p(div({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 238  Line 239 
239  sub table_annotations {  sub table_annotations {
240   my ($html)=@_;   my ($html)=@_;
241   my $pir=&count_annotations();   my $pir=&count_annotations();
242     my $col_hdrs = ["Number of SEED annotations in a Superfamily", "PIRSF<br><small>(Link goes to SEED/PIR comparison)</small>",
243                     "Superfamily name", "Subsystems in superfamily"];
244   my $tab=[];   my $tab=[];
245     my $rowcount;
246     # note we are going to make a new table every 200 rows because that way the browsers don't get messed up
247   foreach my $sf (sort {scalar keys %{$pir->{'function'}->{$b}} <=> scalar keys %{$pir->{'function'}->{$a}}} keys %{$pir->{'function'}}) {   foreach my $sf (sort {scalar keys %{$pir->{'function'}->{$b}} <=> scalar keys %{$pir->{'function'}->{$a}}} keys %{$pir->{'function'}}) {
248      $rowcount++;
249    $sf =~ /(PIRSF\d+)/;    $sf =~ /(PIRSF\d+)/;
250    push @$tab,    push @$tab,
251     (     (
# Line 248  Line 254 
254     $sf,     $sf,
255     join "; ", keys %{$pir->{'subsystems'}->{$sf}},     join "; ", keys %{$pir->{'subsystems'}->{$sf}},
256     );     );
257       if ($rowcount == 200) {
258        push(@$html,&HTML::make_table($col_hdrs,$tab,"");
259        $tab=[];
260        $rowcount=0;
261       }
262   }   }
263    
264   my $col_hdrs = ["Number of SEED annotations in a Superfamily", "PIRSF<br><small>(Link goes to SEED/PIR comparison)</small>",   push(@$html,&HTML::make_table($col_hdrs,$tab,""));
                  "Superfamily name", "Subsystems in superfamily"];  
  push(@$html,&HTML::make_table($col_hdrs,$tab,"A comparison of the SEED and PIR superfamilies"));  
265   return $html;   return $html;
266  }  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3