[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.589, Tue May 15 21:12:18 2007 UTC revision 1.590, Wed May 23 19:13:59 2007 UTC
# Line 15271  Line 15271 
15271  It will only return those genomes with a variant code other than 0 or -1,  It will only return those genomes with a variant code other than 0 or -1,
15272  unless the $all argument is "true" (in which case all subsystems are returned).  unless the $all argument is "true" (in which case all subsystems are returned).
15273    
15274    If $all is 2 then it will return all subsystems with a variant code other than -1.
15275    
15276  =cut  =cut
15277  #: Return Type $@@;  #: Return Type $@@;
15278    
# Line 15293  Line 15295 
15295          local $dbh->{PrintError} = 0;          local $dbh->{PrintError} = 0;
15296    
15297          my $sql="SELECT DISTINCT subsystem from subsystem_index WHERE (protein like 'fig\|$genome.peg.%'";          my $sql="SELECT DISTINCT subsystem from subsystem_index WHERE (protein like 'fig\|$genome.peg.%'";
15298          unless ($all) {$sql .= " AND (variant != '-1' AND variant != '0')"}          if (defined($all) && ($all == 2)) {
15299              $sql .= " AND (variant != '-1')";
15300            } elsif (!$all) {$sql .= " AND (variant != '-1' AND variant != '0')"}
15301          $sql .= ")";          $sql .= ")";
15302    
15303          eval {          eval {

Legend:
Removed from v.1.589  
changed lines
  Added in v.1.590

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3