[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.446, Fri Feb 24 19:42:18 2006 UTC revision 1.447, Sun Mar 19 21:30:55 2006 UTC
# Line 8590  Line 8590 
8590    
8591      # Build the delete statement "@boundValues" will be the values replacing the      # Build the delete statement "@boundValues" will be the values replacing the
8592      # parameter marks.      # parameter marks.
8593      my @boundValues = ($self->split_attribute_oid($peg), $k);      my $exc="DELETE FROM attribute WHERE ";
8594      my $exc="DELETE FROM attribute WHERE genome = ? and ftype = ? and id = ? and tag = ? ";      my @boundValues;
8595        my ($delgenome, $delftype, $delid, $deltag)=($self->split_attribute_oid($peg), $k);
8596        $delgenome && ($exc .= "genome = ? and ") && (push @boundValues, $delgenome);
8597        $delftype && ($exc .= "ftype = ? and ") && (push @boundValues, $delftype);
8598        $delid && ($exc .= "id = ? and ") && (push @boundValues, $delid);
8599        $deltag && ($exc .= "tag = ? and ") && (push @boundValues, $deltag);
8600        $exc =~ s/and\s+$//;
8601    
8602      if ($oldval) {      if ($oldval) {
8603          $exc .= " and val = ?";          $exc .= " and val = ?";
8604          push @boundValues, $oldval;          push @boundValues, $oldval;
# Line 8707  Line 8714 
8714   }   }
8715   else   else
8716   {   {
   print STDERR "Not sure what ", join("", @parts), " should map to, it doesn't appear to be a valid feature or genome\n";  
8717    return join("", @parts);    return join("", @parts);
8718   }   }
8719  }  }
# Line 9145  Line 9151 
9151       # we want to put things in global again       # we want to put things in global again
9152       $location="$FIG_Config::global/Attributes/";       $location="$FIG_Config::global/Attributes/";
9153      }      }
9154        elsif (lc($peg) eq "subsystem")
9155        {
9156            $location="$FIG_Config::global/Attributes/";
9157        }
9158      else {      else {
9159       print STDERR "Can't figure out what $peg is. It is neither a known feature or a genome id. Added to $FIG_Config::global/Attributes/\n";       print STDERR "Can't figure out what $peg is. It is neither a known feature or a genome id. Added to $FIG_Config::global/Attributes/\n";
9160       $location="$FIG_Config::global/Attributes/";       $location="$FIG_Config::global/Attributes/";

Legend:
Removed from v.1.446  
changed lines
  Added in v.1.447

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3