[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul  4 13:52:18 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv6677/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
preparing for an interim release while we wait for the lsid resolution code to be fixed by IBM

moby-live/Perl/MOBY Central.pm,1.153,1.154
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.153
retrieving revision 1.154
diff -u -r1.153 -r1.154
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/05/31 15:09:25	1.153
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/04 17:52:18	1.154
@@ -1419,7 +1419,8 @@
   #service_instance => $service_instance );
   #	my $RDF_XML = $RDF_MODEL->serialize;
 	my $LSID       = $service_instance->LSID;
-	my $RDF = _getServiceInstanceRDF($LSID);
+	# my $RDF = _getServiceInstanceRDF($LSID);
+my $RDF="<RDF/>";
 	unless ($RDF){return &_success("Registration successful but LSID resolution error",$SVC->service_instance_id,"" )}
 	unless ($RDF =~ /RDF/){
 		return &_success("Registration successful but LSID resolution error $RDF",$SVC->service_instance_id,"")
@@ -1435,10 +1436,10 @@
 	my $RDF_XML    = "";
 	my $lsid_error = "";
 	my $lsid_good = 1;
-	use LS::ID;
-	use LS::Authority::WSDL::Constants;
-	use LS::Client::BasicResolver;
-	use LS::Locator;
+	#use LS::ID;
+	#use LS::Authority::WSDL::Constants;
+	#use LS::Client::BasicResolver;
+	#use LS::Locator;
 
 	my $resolver = LS::Client::BasicResolver->new();
 	my $authority = $resolver->resolve( lsid => $lsid );