[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 24 11:45:27 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv26810/MOBY

Modified Files:
	Central.pm 
Log Message:
fixing bug reported by Martin Senger - service type deregistration reported success but actually failed.  It now reports failure when appropriate, along with the reason for failure

moby-live/Perl/MOBY Central.pm,1.207,1.208
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.207
retrieving revision 1.208
diff -u -r1.207 -r1.208
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/23 23:38:10	1.207
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/24 15:45:27	1.208
@@ -546,7 +546,7 @@
 	
 	my ( $success2, $message2, $URI ) =
 	  $OntologyServer->deleteObject( term => $class );
-	$success2 == 0 && return &_error( $message2, $URI );
+	($success2 == 0) && return &_error( $message2, $URI );
 	return &_success( $message2, $URI );
 }
 
@@ -817,7 +817,7 @@
 	my ( $success2, $message2, $deleteURI ) =
 	  $OntologyServer->deleteServiceType( term => $term )
 	  ;    # hopefully this situation will never happen!
-	(($success == 0)) && return &_error( $message2, $deleteURI );
+	(($success2 == 0)) && return &_error( $message2, $deleteURI );
 	return &_success( "Service type $term deleted.", $deleteURI );
 }
 
@@ -972,7 +972,7 @@
 			  			  	
 	my ( $success2, $message2, $URI ) =
 	  $OntologyServer->deleteNamespace( term => $term );
-	$success2 == 0 && return &_error( $message2, $URI );
+	($success2 == 0) && return &_error( $message2, $URI );
 	return &_success( "Namespace type $term deregistered successfully.", $URI );
 }