[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 12:20:04 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1604/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
no hard-coded service types 
moby-live/Perl/MOBY Central.pm,1.27,1.28
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 16:13:53	1.27
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 16:20:04	1.28
@@ -1626,7 +1626,7 @@
 	}
 	if ($findme{serviceType}){
 		my $OS = MOBY::OntologyServer->new(ontology => 'service');
-		my ($exists, $message, $URI) = $OS->serviceExists(term =>'serviceType');
+		my ($exists, $message, $URI) = $OS->serviceExists(term =>$findme{serviceType});
 		unless ($exists){
 			return &_serviceListResponse($dbh,undef);
 		}