[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul 19 10:33:47 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv20166/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
temporarily removing all LSID code to get a fresh start

moby-live/Perl/MOBY/Client Central.pm,1.97,1.98
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -r1.97 -r1.98
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/05/30 22:54:43	1.97
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/19 14:33:46	1.98
@@ -1725,7 +1725,7 @@
 		my $Service       = $Services->get_node($x);
 		my $AuthURI       = $Service->getAttributeNode('authURI')->getValue;
 		my $servicename   = $Service->getAttributeNode('serviceName')->getValue;
-		my $lsid   		  = $Service->getAttributeNode('lsid')->getValue;
+		#my $lsid   		  = $Service->getAttributeNode('lsid')->getValue;
 		my $Type          = &_nodeTextContent( $Service, 'serviceType' );
 		my $authoritative = &_nodeTextContent( $Service, 'authoritative' );
 		my $contactEmail  = &_nodeTextContent( $Service, 'contactEmail' );
@@ -1789,7 +1789,7 @@
 			authority     => $AuthURI,
 			authoritative => $authoritative,
 			URL           => $URL,
-			LSID		  => $lsid,
+			#LSID		  => $lsid,
 			contactEmail  => $contactEmail,
 			name          => $servicename,
 			type          => $Type,