[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.26, Thu Apr 7 19:16:10 2005 UTC revision 1.27, Thu Apr 7 20:25:13 2005 UTC
# Line 180  Line 180 
180    else {$display->{$sf}=$displayname . " [". scalar @{$pegbypir->{$sf}} . "]"}    else {$display->{$sf}=$displayname . " [". scalar @{$pegbypir->{$sf}} . "]"}
181   }   }
182    
183     my $numberpirfams=scalar keys %$display;
184   unshift @pirsf, '';  $display->{''}='';   unshift @pirsf, '';  $display->{''}='';
185   my $size=10;   my $size=10;
186   if (scalar keys %$display < $size) {$size=scalar keys %$display}   if ($numberpirfams < $size) {$size=$numberpirfams}
187    
188   push (@$html, $cgi->start_form(-action => "pir.cgi"),   push (@$html, $cgi->start_form(-action => "pir.cgi"),
189    $cgi->h2("Please choose your super family"),    $cgi->h2("Please choose your super family"),
# Line 193  Line 194 
194    "\nof PEGs that map to that superfamily, and the second number in parenthesis is the number of <em>different</em> ",    "\nof PEGs that map to that superfamily, and the second number in parenthesis is the number of <em>different</em> ",
195    "\nsubsystems that those PEGs are in.\n", $cgi->p,"\n",    "\nsubsystems that those PEGs are in.\n", $cgi->p,"\n",
196    $cgi->scrolling_list(-name=>'pirsf', -values=>[keys %$display], -labels=>$display, -size=>$size), $cgi->p,"\n",    $cgi->scrolling_list(-name=>'pirsf', -values=>[keys %$display], -labels=>$display, -size=>$size), $cgi->p,"\n",
197    "\nNummber of superfamilies shown: ", scalar keys %$display, $cgi->p,"\n",    "\nNumber of superfamilies shown: ", $numberpirfams, $cgi->p,"\n",
198    "\n<a href=\"/FIG/Html/pir.html#menu\" class=\"help\" target=\"pirhelp\">Help on the menu contents</a>","\n",    "\n<a href=\"/FIG/Html/pir.html#menu\" class=\"help\" target=\"pirhelp\">Help on the menu contents</a>","\n",
199    "\nMinimum number of pegs per PIR superfamily shown in list &nbsp; <input type='text' name='min' value='$min' size=3 />","\n",    "\nMinimum number of pegs per PIR superfamily shown in list &nbsp; <input type='text' name='min' value='$min' size=3 />","\n",
200    "\nor show all PIR superfamilies: ", $cgi->checkbox(-name=>"showall", -label=>""), $cgi->p,"\n",    "\nor show all PIR superfamilies: ", $cgi->checkbox(-name=>"showall", -label=>""), $cgi->p,"\n",

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3