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

Diff of /FigWebServices/index.cgi

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

revision 1.21, Fri Mar 19 21:58:31 2004 UTC revision 1.22, Fri Mar 19 22:48:15 2004 UTC
# Line 70  Line 70 
70      }      }
71      else      else
72      {      {
73          my $check_all = $cgi->param('Select all') || 0;          &show_indexed_objects($fig, $cgi, $html, $pattern);
         &show_indexed_objects($fig, $cgi, $html, $pattern, $check_all);  
74      }      }
75  }  }
76  #-----------------------------------------------------------------------  #-----------------------------------------------------------------------
# Line 249  Line 248 
248  #==============================================================================  #==============================================================================
249    
250  sub show_indexed_objects {  sub show_indexed_objects {
251      my($fig,$cgi,$html,$pattern,$check_all) = @_;      my($fig, $cgi, $html, $pattern) = @_;
252      my($msg,$i);      my($msg,$i);
253    
254      if ($pattern =~ /^\s*(fig\|\d+\.\d+\.peg\.\d+)\s*$/)      if ($pattern =~ /^\s*(fig\|\d+\.\d+\.peg\.\d+)\s*$/)
# Line 270  Line 269 
269      my( $peg_index_data, $role_index_data ) = $fig->search_index($pattern);      my( $peg_index_data, $role_index_data ) = $fig->search_index($pattern);
270      my $maxpeg  = defined( $cgi->param("maxpeg")  ) ? $cgi->param("maxpeg")  : 100;      my $maxpeg  = defined( $cgi->param("maxpeg")  ) ? $cgi->param("maxpeg")  : 100;
271      my $maxrole = defined( $cgi->param("maxrole") ) ? $cgi->param("maxrole") : 100;      my $maxrole = defined( $cgi->param("maxrole") ) ? $cgi->param("maxrole") : 100;
272        my $check_all = $cgi->param('Select all') || 0;
273    
274      if ($maxpeg > 0)      if ($maxpeg > 0)
275      {      {

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3