[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.386, Wed Oct 26 22:12:03 2005 UTC revision 1.387, Thu Oct 27 16:20:34 2005 UTC
# Line 7951  Line 7951 
7951      #      #
7952      # return array of (peg, org, aliasList, function) where we'll set aliasList to      # return array of (peg, org, aliasList, function) where we'll set aliasList to
7953      # the value of the alias and leave function blank.      # the value of the alias and leave function blank.
7954        #
7955        # now case _in_sensitive
7956        #
7957    
7958      my($self,$searchTerm)=@_;      my($self,$searchTerm)=@_;
7959      return unless( $searchTerm);      return unless( $searchTerm);
7960      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
7961    
7962      my $relational_db_response=$rdbH->SQL("SELECT fid,tag, val from attribute WHERE tag LIKE '%$searchTerm%' OR val LIKE '%$searchTerm%'");      my $theTerm = uc( $searchTerm );
7963        my $relational_db_response=$rdbH->SQL("SELECT fid,tag, val from attribute WHERE UPPER(tag) LIKE '%$theTerm%' OR UPPER(val) LIKE '%$theTerm%'");
7964    
7965      my @results;      my @results;
7966      foreach my $res (@$relational_db_response) {      foreach my $res (@$relational_db_response) {
# Line 8615  Line 8619 
8619      # $user not used yet but maybe should track who's doing the cv add?      # $user not used yet but maybe should track who's doing the cv add?
8620      my ($self, $user, $peg, $vocab, $term_id, $term)=@_;      my ($self, $user, $peg, $vocab, $term_id, $term)=@_;
8621    
8622        $user =~ s/^\s*//g;
8623        $user =~ s/\s*$//g;
8624        $peg =~ s/^\s*//g;
8625        $peg =~ s/\s*$//g;
8626        $vocab =~ s/^\s*//g;
8627        $vocab =~ s/\s*$//g;
8628        $term_id =~ s/^\s*//g;
8629        $term_id =~ s/\s*$//g;
8630        $term =~ s/^\s*//g;
8631        $term =~ s/\s*$//g;
8632    
8633      my %key_info_hash;      my %key_info_hash;
8634    
8635      if ( ! ($user && $peg && $vocab && $term_id && $term) ) {      if ( ! ($user && $peg && $vocab && $term_id && $term) ) {

Legend:
Removed from v.1.386  
changed lines
  Added in v.1.387

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3