[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm ServiceInstance.html ServiceInstance.pm 
Log Message:
pass the authoritative flag 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.57,1.58 ServiceInstance.html,1.3,1.4 ServiceInstance.pm,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -r1.57 -r1.58
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/10/22 14:27:46	1.57
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/11/01 15:53:13	1.58
@@ -1438,6 +1438,7 @@
         my $AuthURI = $Service->getAttributeNode('authURI')->getValue;
         my $servicename = $Service->getAttributeNode('serviceName')->getValue;
         my $Type = &_nodeTextContent($Service, 'serviceType');
+        my $authoritative = &_nodeTextContent($Service, 'authoritative');
         #my $Output = &_nodeTextContent($Service, 'outputObject');
         my $Description = &_nodeTextContent($Service, 'Description');
         my $cat = &_nodeTextContent($Service, 'Category');
@@ -1471,6 +1472,7 @@
 		
         my $Instance = MOBY::Client::ServiceInstance->new(
             authority => $AuthURI,
+			authoritative => $authoritative,
             name => $servicename,
             type => $Type,
             category => $cat,

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.html,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.html	2003/07/01 15:00:47	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.html	2003/11/01 15:53:14	1.4
@@ -26,6 +26,7 @@
 		<li><a href="#input">input</a></li>
 		<li><a href="#output">output</a></li>
 		<li><a href="#description">description</a></li>
+		<li><a href="#authoritative">authoritative</a></li>
 		<li><a href="#registry">registry</a></li>
 	</ul>
 
@@ -148,6 +149,15 @@
  Returns   :    string</pre>
 <p>
 </p>
+<h2><a name="authoritative">authoritative</a></h2>
+<pre>
+ Title     :    authoritative
+ Usage     :    $description = $Service-&gt;authoritative(1|0)
+ Args      :    (optional) boolean 1 or 0
+ Function  :    get/set authoritative flag
+ Returns   :    current value</pre>
+<p>
+</p>
 <h2><a name="registry">registry</a></h2>
 <pre>
  Title     :    registry

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/07/01 15:00:47	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/11/01 15:53:14	1.6
@@ -129,6 +129,17 @@
 =cut
 
 
+=head2 authoritative
+
+ Title     :	authoritative
+ Usage     :	$description = $Service->authoritative(1|0)
+ Args      :    (optional) boolean 1 or 0
+ Function  :	get/set authoritative flag
+ Returns   :	current value
+
+=cut
+
+
 =head2 registry
 
  Title     :	registry
@@ -155,6 +166,7 @@
                       description   => [undef,      'read/write'],
 					  registry		=> ['MOBY_Central', 		'read/write'],
 					  XML           => [undef, 		'read/write'],
+					  authoritative => [undef,		'read/write'],
 				);
 
    #_____________________________________________________________