[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 13:53:45 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv2013/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
got the perl client to create correct XML for service registration
moby-live/Perl/MOBY/Client Central.pm,1.16,1.17
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 17:52:27	1.16
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 17:53:45	1.17
@@ -583,7 +583,7 @@
 	my $Category = lc($a{Category}); $Category ||="moby";
 	return $self->errorRegXML("Only MOBY Service Categories are currently allowed") unless ($Category eq 'moby');
 	return $self->errorRegXML("All Fields Required:  serviceName, serviceType, authURI, contactEmail, URL, description, Category, input, output, secondary") unless (
-		$name && $type && $authURI && $email && $URL && $desc && Category);
+		$name && $type && $authURI && $email && $URL && $desc && $Category);
 
 	my $message = "
 		<registerService>