[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Apr  4 09:52:24 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv25819/Perl/MOBY-Server/lib/MOBY

Modified Files:
	Central.pm 
Log Message:
Previously, servicetypes with relationship type "" were registered into the registry. this should be fixed now
moby-live/Perl/MOBY-Server/lib/MOBY Central.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2008/02/21 17:15:40	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2008/04/04 13:52:24	1.3
@@ -793,6 +793,10 @@
 	  && &_LOG(
 "got $type, $desc, \%relationships, $email, $auth from registerServiceTypePayload\n"
 	  );
+	  
+	return
+		"FAILED! a service type '$type' was found to have no relationships\n" if keys( %relationships ) == 0 ;
+
 	return ( $type, $desc, \%relationships, $email, $auth );
 }