[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.16, Sat Feb 12 02:44:34 2005 UTC revision 1.17, Sat Feb 12 02:48:28 2005 UTC
# Line 53  Line 53 
53    
54    
55    
56    if ($cgi->param('submit') eq "Tabulate summary") {
 if ($cgi->param('tabulate')) {  
57   $html=&table_annotations($html, $pegbypir, $pirid);   $html=&table_annotations($html, $pegbypir, $pirid);
58   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>"));
59  }  }
60  elsif ($cgi->param('pirsf')) {  elsif ($cgi->param('pirsf') && !($cgi->param('submit') eq "Update view")) {
61   # we want to display one of the correspondances   # we want to display one of the correspondances
62   my $selfurl=$cgi->url;   my $selfurl=$cgi->url;
63   push @$html, $cgi->p;   push @$html, $cgi->p;
# Line 144  Line 143 
143    $cgi->checkbox(-name=>"preliminary", -label=>"Show only preliminary PIR superfamilies"), $cgi->p,    $cgi->checkbox(-name=>"preliminary", -label=>"Show only preliminary PIR superfamilies"), $cgi->p,
144    $cgi->submit('submit', 'Update view'),    $cgi->submit('submit', 'Update view'),
145    $cgi->submit('submit', 'Show Correspondance'),    $cgi->submit('submit', 'Show Correspondance'),
146      $cgi->reset,
147    $cgi->p, $cgi->hr, $cgi->p,    $cgi->p, $cgi->hr, $cgi->p,
148    "To view a summary of the comparisons between PIR and SEED annotations, please check here:", $cgi->p,    "To view a summary of the comparisons between PIR and SEED annotations, please check here:", $cgi->p,
149    $cgi->checkbox(-name=>"onlyss", -label=>"Show only those PEGs that are in a subsystem and a superfamily", -checked=>"on"), $cgi->p,    $cgi->checkbox(-name=>"onlyss", -label=>"Show only those PEGs that are in a subsystem and a superfamily", -checked=>"on"), $cgi->p,
150    $cgi->checkbox(-name=>"totalsort", -label=>"Sort by the <em>total</em> number of different annotations"), $cgi->p,    $cgi->checkbox(-name=>"totalsort", -label=>"Sort by the total number of different annotations"), $cgi->p,
151    $cgi->submit('tabulate', 'Tabulate the summary'),    $cgi->submit('submit', 'Tabulate summary'),
152    $cgi->reset,    $cgi->reset,
153    
154    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3