[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon May 30 18:54:43 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv2746/Client

Modified Files:
	Central.pm 
Log Message:
excised some db code that was ill placed. 
Eddie

moby-live/Perl/MOBY/Client Central.pm,1.96,1.97
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -r1.96 -r1.97
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/05/30 22:39:54	1.96
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/05/30 22:54:43	1.97
@@ -1013,21 +1013,7 @@
 #	 my $rdf = $response->content;
 #	 print "$rdf\n";
 #}
-
-	#create LSID for service and register it in the DB
-	my $_config ||= MOBY::Config->new;
-	my $service_lsid = "urn:lsid:"
-	  . $_config->{mobycentral}->{lsid_authority} . ":"
-	  . $_config->{mobycentral}->{lsid_namespace} . ":"
-	  . $authURI . ","
-	  . $name;
-	my $dbhA = $_config->getDataAdaptor( source => 'mobycentral' );
-	my $dbh  = $dbhA->dbh;
-	my $sth  =
-	  $dbh->prepare(
-"update service_instance set lsid = ? where authority_id= ? and servicename= ?"
-	  );
-	$sth->execute( $service_lsid, $authURI, $name );    
+ 
 	return $reg;
 
 #_______________________________________________________________________________________________