[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.52, Thu Nov 4 18:27:29 2004 UTC revision 1.53, Wed Nov 24 18:27:06 2004 UTC
# Line 563  Line 563 
563      my $maxrole = defined( $cgi->param("maxrole") ) ? $cgi->param("maxrole") : 100;      my $maxrole = defined( $cgi->param("maxrole") ) ? $cgi->param("maxrole") : 100;
564      my $check_all = $cgi->param('Select all') || 0;      my $check_all = $cgi->param('Select all') || 0;
565    
566        # RAE added lines to allow searching within a single organism
567        if ($cgi->param('korgs'))
568        {
569         $cgi->param('korgs') =~ /\((\d+\.*\d*)\)/;
570         $org=$1; # this should be undef if korgs is not defined
571    
572         push (@$html, $cgi->br, "Matches found in ",$cgi->param('korgs'), $cgi->p);
573         my @clean_data; my @clean_index;
574         while (@$peg_index_data)
575         {
576           my ($data, $index)=(shift @$peg_index_data, shift @$role_index_data);
577           next unless (${$data}[0] =~ /^fig\|$org\.peg/);
578           push @clean_data, $data;
579           push @clean_index, $index;
580         }
581    
582         @$peg_index_data=@clean_data;
583         @$role_index_data=@clean_index;
584        }
585        ## End of added lines
586    
587    
588    
589    
590    
591      if ($maxpeg > 0)      if ($maxpeg > 0)
592      {      {
593          push( @$html, $cgi->start_form(-action => "index.cgi"),          push( @$html, $cgi->start_form(-action => "index.cgi"),

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3