[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jun 26 22:57:50 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv21437/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
added some additional debugging info because the deregistration of namespaces is still not following the rules

moby-live/Perl/MOBY Central.pm,1.85,1.86
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -r1.85 -r1.86
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/06/27 02:52:03	1.85
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/06/27 02:57:50	1.86
@@ -770,7 +770,7 @@
 		my @nss = split ",", $ns;
 		foreach (@nss){
 			$_=~s/\s//g;
-				return &_error("Namespace Type $term is used by a service and may not be deregistered","") if ($_ eq $existingURI);
+				return &_error("Namespace Type $term ($_) is used by a service (service ID number $id) and may not be deregistered","") if ($_ eq $existingURI);
 		}
 	}
 
@@ -780,7 +780,7 @@
 		my @nss = split ",", $ns;
 		foreach (@nss){
 			$_=~s/\s//g;
-				return &_error("Namespace Type $term is used by a service and may not be deregistered","") if ($_ eq $existingURI);
+				return &_error("Namespace Type $term ($_) is used by a service (service ID number $id) and may not be deregistered","") if ($_ eq $existingURI);
 		}
 	}
 	$sth = $dbh->prepare("select service_instance.service_instance_id, namespace_type_uris from service_instance natural join collection_input where namespace_type_uris like '%$existingURI%'");
@@ -789,7 +789,7 @@
 		my @nss = split ",", $ns;
 		foreach (@nss){
 			$_=~s/\s//g;
-				return &_error("Namespace Type $term is used by a service and may not be deregistered","") if ($_ eq $existingURI);
+				return &_error("Namespace Type $term ($_) is used by a service (service ID number $id) and may not be deregistered","") if ($_ eq $existingURI);
 		}
 	}
 	$sth = $dbh->prepare("select service_instance.service_instance_id, namespace_type_uris from service_instance natural join collection_output where namespace_type_uris like '%$existingURI%'");
@@ -798,7 +798,7 @@
 		my @nss = split ",", $ns;
 		foreach (@nss){
 			$_=~s/\s//g;
-				return &_error("Namespace Type $term is used by a service and may not be deregistered","") if ($_ eq $existingURI);
+				return &_error("Namespace Type $term ($_) is used by a service (service ID number $id) and may not be deregistered","") if ($_ eq $existingURI);
 		}
 	}