[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 16:29:11 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1635/MOBY

Modified Files:
	Central.pm 
Log Message:
various queries being sent to the wrong adaptors

moby-live/Perl/MOBY Central.pm,1.172,1.173
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.172
retrieving revision 1.173
diff -u -r1.172 -r1.173
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 20:25:39	1.172
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 20:29:11	1.173
@@ -473,7 +473,7 @@
 
 sub deregisterObjectClass {
 	$CONFIG ||= MOBY::Config->new;    # exported by Config.pm
-	my $adaptor = $CONFIG->getDataAdaptor( datasource => 'mobyobject' );
+	my $adaptor = $CONFIG->getDataAdaptor( datasource => 'mobycentral' );
 
 	my ( $pkg, $payload ) = @_;
 	my $OntologyServer = &_getOntologyServer( ontology => 'object' );
@@ -486,6 +486,7 @@
 	  $OntologyServer->objectExists( term => $class );
 	return &_error( "Object class $class does not exist", "" )
 	  unless ($existingURI);
+	my $dbh = MOBY::central_db_connection->new()->dbh;
 
 	my $errormsg = $adaptor->checkClassUsedByService({object_type_uri => $existingURI});
 	return &_error(
@@ -902,7 +903,7 @@
 
 sub deregisterNamespace {
 	$CONFIG ||= MOBY::Config->new;    # exported by Config.pm
-	my $adaptor = $CONFIG->getDataAdaptor( datasource => 'mobynamespace' );
+	my $adaptor = $CONFIG->getDataAdaptor( datasource => 'mobycentral' );
 
 	my ( $pkg, $payload ) = @_;
 	my $OntologyServer = &_getOntologyServer( ontology => 'namespace' );