[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.69, Fri Apr 15 18:13:18 2005 UTC revision 1.70, Tue May 17 16:04:08 2005 UTC
# Line 394  Line 394 
394                  $cgi->textfield(-name => "maxpeg",  -size => 6, -value => 100),                  $cgi->textfield(-name => "maxpeg",  -size => 6, -value => 100),
395                  "    Max Roles: ",                  "    Max Roles: ",
396                  $cgi->textfield(-name => "maxrole", -size => 6, -value => 100),                  $cgi->textfield(-name => "maxrole", -size => 6, -value => 100),
397                    $cgi->checkbox(-name => "substring_match", -label => 'Allow substring match'),
398                  "</td></td></table>",                  "</td></td></table>",
399                  $cgi->submit('Search'),                  $cgi->submit('Search'),
400                  $cgi->submit('Search genome selected below'),                  $cgi->submit('Search genome selected below'),
# Line 604  Line 605 
605      }      }
606    
607      push( @$html, $cgi->br );      push( @$html, $cgi->br );
608      my( $peg_index_data, $role_index_data ) = $fig->search_index($pattern);      my( $peg_index_data, $role_index_data ) = $fig->search_index($pattern, $cgi->param("substring_match") eq "on");
609      my $maxpeg  = defined( $cgi->param("maxpeg")  ) ? $cgi->param("maxpeg")  : 100;      my $maxpeg  = defined( $cgi->param("maxpeg")  ) ? $cgi->param("maxpeg")  : 100;
610      my $maxrole = defined( $cgi->param("maxrole") ) ? $cgi->param("maxrole") : 100;      my $maxrole = defined( $cgi->param("maxrole") ) ? $cgi->param("maxrole") : 100;
611    

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3