[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 31 18:32:27 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv1818/MOBY/Client

Modified Files:
	Central.pm ServiceInstance.pm 
Log Message:
added LSID method to ServiceInstance.  fix docs for ClientCentral

moby-live/Perl/MOBY/Client Central.pm,1.122,1.123 ServiceInstance.pm,1.15,1.16
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -r1.122 -r1.123
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/30 17:18:52	1.122
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/08/31 22:32:27	1.123
@@ -1071,7 +1071,7 @@
 		<MOBYRegistration>
 			<id></id>
 			<success>0</success>
-			<message><![CDATA[you did not pass a valid service ID number]]></message>
+			<message><![CDATA[you did not pass a valid service Identifier]]></message>
 		</MOBYRegistration>" )
 	);
 	my $message = "
@@ -1318,11 +1318,6 @@
 	my $reg = $args{registry};
 	$reg = $reg ? $reg : $self->default_MOBY_servername;
 	return undef unless ( $self->Connection($reg) );
-
-#  CODE GOES HERE....
-
-
-
 	my ($return) = $self->_call( $reg, 'retrieveResourceURLs', "" );
 	my $parser = XML::LibXML->new();
 	my $doc        = $parser->parse_string($return);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2005/07/22 17:12:13	1.15
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2005/08/31 22:32:27	1.16
@@ -160,6 +160,17 @@
 
 =cut
 
+
+=head2 LSID
+
+ Title     :    contactEmail
+ Usage     :	$email = $Service->LSID()
+ Args      :    none
+ Function  :	get (readonly) service instance LSID
+ Returns   :	current value as scalar string
+
+=cut
+
 =head2 registry
 
  Title     :	registry