[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue May 31 11:09:26 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv5794

Modified Files:
	Central.pm 
Log Message:
Fixed bug that caused an error on test 17 of testMobyClientCentral. ... Eddie

moby-live/Perl/MOBY Central.pm,1.152,1.153
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.152
retrieving revision 1.153
diff -u -r1.152 -r1.153
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/05/30 21:38:41	1.152
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/05/31 15:09:25	1.153
@@ -1409,16 +1409,16 @@
 		);
 	}
 
-  #	use MOBY::Client::Central;
-  #	my $services         = MOBY::Client::Central::_parseServices( '', '', $si );
-  #	my $service_instance = shift @{$services};
+  	use MOBY::Client::Central;
+  	my $services         = MOBY::Client::Central::_parseServices( '', '', $si );
+  	my $service_instance = shift @{$services};
   #	my $storage          = new RDF::Core::Storage::Memory;
   #	my $model            = new RDF::Core::Model( Storage => $storage );
   #	my $RDF_MODEL = MOBY::RDF::ServiceInstanceRDF->new(
   #model            => $model,
   #service_instance => $service_instance );
   #	my $RDF_XML = $RDF_MODEL->serialize;
-	my $LSID       = $si->LSID;
+	my $LSID       = $service_instance->LSID;
 	my $RDF = _getServiceInstanceRDF($LSID);
 	unless ($RDF){return &_success("Registration successful but LSID resolution error",$SVC->service_instance_id,"" )}
 	unless ($RDF =~ /RDF/){