[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 28 11:45:57 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv4263/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
doh

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.57,1.58
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -r1.57 -r1.58
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/28 15:39:47	1.57
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/28 15:45:57	1.58
@@ -856,7 +856,7 @@
 	return 0 unless $lsid;
 	my $dbh = $self->dbh;
 	my $statement = "delete from service where service_lsid = ?";
-	$dbh->do( $statement, undef, ($args{lsid}));
+	$dbh->do( $statement, undef, ($lsid));
 	$self->_delete_service_term2term(id => $id);
 	if ($dbh->err){
 		return (1, $dbh->errstr);