[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 11:02:53 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv5271/Client

Modified Files:
	Central.pm ServiceInstance.pm 
Log Message:
pass the URL back to a service instance object since it should be there, and now we need it for the LSID resolution service

moby-live/Perl/MOBY/Client Central.pm,1.58,1.59 ServiceInstance.pm,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/11/01 15:53:13	1.58
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/11/01 16:02:52	1.59
@@ -1439,6 +1439,7 @@
         my $servicename = $Service->getAttributeNode('serviceName')->getValue;
         my $Type = &_nodeTextContent($Service, 'serviceType');
         my $authoritative = &_nodeTextContent($Service, 'authoritative');
+        my $URL = &_nodeTextContent($Service, 'URL');
         #my $Output = &_nodeTextContent($Service, 'outputObject');
         my $Description = &_nodeTextContent($Service, 'Description');
         my $cat = &_nodeTextContent($Service, 'Category');
@@ -1473,6 +1474,7 @@
         my $Instance = MOBY::Client::ServiceInstance->new(
             authority => $AuthURI,
 			authoritative => $authoritative,
+			URL => $URL,
             name => $servicename,
             type => $Type,
             category => $cat,

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/11/01 15:53:14	1.6
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/11/01 16:02:52	1.7
@@ -132,7 +132,7 @@
 =head2 authoritative
 
  Title     :	authoritative
- Usage     :	$description = $Service->authoritative(1|0)
+ Usage     :	$auth = $Service->authoritative(1|0)
  Args      :    (optional) boolean 1 or 0
  Function  :	get/set authoritative flag
  Returns   :	current value
@@ -140,6 +140,17 @@
 =cut
 
 
+=head2 URL
+
+ Title     :    URL
+ Usage     :	$URL = $Service->URL($url)
+ Args      :    (optional) string representing a URL
+ Function  :	get/set service URL endpoint
+ Returns   :	current value
+
+=cut
+
+
 =head2 registry
 
  Title     :	registry
@@ -167,6 +178,7 @@
 					  registry		=> ['MOBY_Central', 		'read/write'],
 					  XML           => [undef, 		'read/write'],
 					  authoritative => [undef,		'read/write'],
+					  URL			=> [undef, 		'read/write'],
 				);
 
    #_____________________________________________________________