[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 11:13:17 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1081/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
fixed deregistration of services - they were being createdif they didn't exist... bonehead
moby-live/Perl/MOBY Central.pm,1.23,1.24
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 15:08:03	1.23
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 15:13:17	1.24
@@ -1007,7 +1007,16 @@
 	}
 	$debug && &_LOG("\n\n\aall objects okay\n");
 
-	
+	$OS = MOBY::OntologyServer->new(ontology => 'service');
+	my ($valid, $message, $URI) = $OS->serviceExists(term => $serviceType);
+	unless ($valid){
+		my $reg = &Registration({
+			success => 0,
+			error_message => "$message",
+			registration_id => "$URI",
+									  });
+		return $reg;
+	}
 	# right, registration should be successful now!
 	my $SVC = MOBY::service_instance->new(
 		category => $Category,