[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.727, Wed Oct 15 11:51:21 2008 UTC revision 1.728, Wed Oct 15 13:01:26 2008 UTC
# Line 20090  Line 20090 
20090    my @tokenized = split(/ /, $query);    my @tokenized = split(/ /, $query);
20091    
20092    # check for options, otherwise set default values    # check for options, otherwise set default values
20093      my $limit = 100;
20094    if (defined($options)) {    if (defined($options)) {
20095          if ($options->{limit}) {
20096              $limit = $options->{limit};
20097          }
20098    }    }
20099    
20100    # get database handle    # get database handle
# Line 20136  Line 20139 
20139        push(@tokens, "LOWER(role) LIKE '%" . $_ . "%'");        push(@tokens, "LOWER(role) LIKE '%" . $_ . "%'");
20140      }      }
20141      my $comp = join(' AND ', @tokens);      my $comp = join(' AND ', @tokens);
20142      $result = $dbh->SQL("SELECT DISTINCT prot, role, org FROM roles WHERE prot LIKE 'fig%' AND " . $comp . " LIMIT 100");      $result = $dbh->SQL("SELECT DISTINCT prot, role, gname, org, maindomain FROM roles JOIN genome ON roles.org=genome.genome WHERE prot LIKE 'fig%' AND " . $comp . " LIMIT $limit");
20143      if (scalar(@$result) > 0) { push(@$return_value, { type => 'proteins', result => $result }); }      if (scalar(@$result) > 0) { push(@$return_value, { type => 'proteins', result => $result }); }
20144    }    }
20145    

Legend:
Removed from v.1.727  
changed lines
  Added in v.1.728

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3