[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul 19 19:37:35 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv22337/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
still one misdirected call - now fixed.

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.15,1.16
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/18 22:32:20	1.15
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/19 23:37:35	1.16
@@ -519,7 +519,8 @@
 sub delete_object{
 	my ($self, @args) = @_;	
 	my $dbh = $self->dbh;
-	my $statement = "delete from object ";
+	my $statement = "delete from object "; #OMG!!  This is a very dangerous thing to start with.........**********
+	# ************** MUST FIX THAT LINE OR WE MAY BE DEAD ONE DAY  ********************
 	my @bindvalues = ();
 	($statement, @bindvalues) = add_condition($statement, @args); 
 	$dbh->do( $statement,