[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	mysql.pm 
Log Message:
passing wrong parameter to delete_service and delete_namespace

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.56,1.57
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/27 21:25:28	1.56
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/28 15:39:47	1.57
@@ -853,6 +853,7 @@
 	my $row = shift(@$result);
 	my $id = $row->{service_id};
 	my $lsid = $row->{service_lsid};
+	return 0 unless $lsid;
 	my $dbh = $self->dbh;
 	my $statement = "delete from service where service_lsid = ?";
 	$dbh->do( $statement, undef, ($args{lsid}));
@@ -1009,6 +1010,7 @@
 	my $row = shift(@$result);
 	my $id = $row->{namespace_id};
 	my $lsid = $row->{namespace_lsid};
+	return 0 unless $lsid;
 	my $dbh = $self->dbh;
 	my $statement = "delete from namespace where namespace_lsid = ?";
 	$dbh->do( $statement, undef, ($lsid));