[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 12:42:49 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv10248/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
query service needs to return everything instead of nothng when called with no parameter

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.64,1.65
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -r1.64 -r1.65
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/29 16:20:43	1.64
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/07/29 16:42:49	1.65
@@ -807,12 +807,13 @@
 sub query_service{
 	my ($self, %args) = @_;
 	my $type = $args{type};
-	return [{}] unless $type;
 	my $condition = "";
 	if ($type =~ /^urn\:lsid/){
 	    $condition = "where service_lsid = ?";
 	} elsif ($type) {
 	    $condition = "where service_type = ?";
+	} else {
+	    $condition = "";
 	}
 	
 	my $dbh = _getDBHandle("mobyservice");