[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Feb 28 16:20:37 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv10913/MOBY

Modified Files:
	Central.pm 
Log Message:
now tells you politely where to go if you request a service that doesn't exist, rather than just crashing
moby-live/Perl/MOBY Central.pm,1.9,1.10
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/02/28 21:16:27	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/02/28 21:20:37	1.10
@@ -2161,8 +2161,11 @@
 	my $this_query = $dbh->prepare($query);
 	$this_query->execute($serviceName, $AuthURI);
 	my ($id, $URL, $desc, $category) =$this_query->fetchrow_array();
+
+    $debug && &_LOG( "getting $category type of service description $desc\n"); 
     
-    $debug && &_LOG( "getting $category service description\n"); 
+    return "<Service/>" unless ($id);
+	
     if ($category eq 'moby'){
 	    my $wsdl = &_getServiceWSDL($dbh, $sth_hash, $id, $serviceName, $AuthURI, $URL, $desc, $category);
 	    if ($wsdl){