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

Diff of /FigWebServices/cv.cgi

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

revision 1.13, Mon Oct 31 05:01:37 2005 UTC revision 1.14, Thu Nov 10 19:58:45 2005 UTC
# Line 117  Line 117 
117      if ( $cgi->param('search_term') && $cgi->param('select_cv') ) {      if ( $cgi->param('search_term') && $cgi->param('select_cv') ) {
118          $search_term=$cgi->param('search_term');          $search_term=$cgi->param('search_term');
119          $cv=$cgi->param('select_cv');          $cv=$cgi->param('select_cv');
120          $search_results = &search($fig,$cgi,$html,$peg,$cv,$search_term);          $search_results = $fig->search_cv_file($cv,$search_term);
121      }      }
122  }  }
123  elsif ($cgi->param('request') eq "Add New Terms")  elsif ($cgi->param('request') eq "Add New Terms")
# Line 207  Line 207 
207      }      }
208  }  }
209    
210  sub search  # moved to FIG.pm
211  {  #sub search_cv_file
212      my ($fig,$cgi,$html,$peg,$cv,$search_term) =@_;  #{
213      $file = $FIG_Config::global."/cv_search_".$cv.".txt";  ##    my ($fig,$cgi,$html,$peg,$cv,$search_term) =@_;
214      if (! open(LOOKUP,"$file") ) {  #    my ($cv,$search_term) =@_;
215          $error_message="Search could not find vocabulary file, $file";  #    $file = $FIG_Config::global."/cv_search_".$cv.".txt";
216          return;  #    if (! open(LOOKUP,"$file") ) {
217      }  #       print STDERR "Search could not find vocabulary file, $file";
218      my @lines = <LOOKUP>;  #       return;
219      my @grep_results = grep(/$search_term/i,@lines);  #    }
220       return [@grep_results];  #    my @lines = <LOOKUP>;
221      #my $search_results = [@grep_results];  #    my @grep_results = grep(/$search_term/i,@lines);
222      #&show_search_results($fig,$cgi,$html,$peg,$cv,$search_results);  #     return [@grep_results];
223  }  #}
224    
225  sub add_terms  sub add_terms
226  {  {

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3