[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jan  2 15:39:22 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv26289/MOBY

Modified Files:
	Central.pm 
Log Message:
Client was not passing auth nor email correctly for service type registration.  

moby-live/Perl/MOBY Central.pm,1.121,1.122
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -r1.121 -r1.122
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2004/01/02 20:13:23	1.121
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2004/01/02 20:39:22	1.122
@@ -1089,9 +1089,9 @@
 
 	$OS = MOBY::OntologyServer->new(ontology => 'service');
 	my ($valid, $message, $URI) = $OS->serviceExists(term => $serviceType);
-	print STDERR "\n\nChecking $URI\n\n";
+	#print STDERR "\n\nChecking $URI\n\n";
 	return &_error("$message","$URI") unless ($valid || (($serviceType =~ /urn:lsid/i) && !($serviceType =~ /urn:lsid:biomoby.org/i)));  # either valid, or a non-MOBY LSID
-	print STDERR "\n\nChecking $URI OK!!\n\n";
+	#print STDERR "\n\nChecking $URI OK!!\n\n";
 	# right, registration should be successful now!
 	
 	my $SVC = MOBY::service_instance->new(