[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Dec 27 10:12:31 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv28714/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
Gbrowse client reveals another MOBY Central bug.  Searching for services where you provide an invalid namespace as a parameter should NOT find ALL services, it should find NO services.

moby-live/Perl/MOBY Central.pm,1.118,1.119
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -r1.118 -r1.119
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/12/22 17:21:16	1.118
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/12/27 15:12:31	1.119
@@ -1849,7 +1849,7 @@
 			next unless ($_->getNodeType == TEXT_NODE);
 			my $name = $_->toString; chomp $name;
 			my ($success, $message, $URI) = $OS->namespaceExists(term => $name);
-			($URI) && push @namespaces, $URI;
+			$URI?(push @namespaces, $URI):(push @namespaces, "__MOBY__INVALID__NAMESPACE__");
 		}
 	}
 	return ($objectURI, \@namespaces);