[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Mar  5 10:29:20 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv7095/Perl/MOBY/Client

Modified Files:
	Central.pm ServiceInstance.pm 
Log Message:
oops
moby-live/Perl/MOBY/Client Central.pm,1.5,1.6 ServiceInstance.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/03/05 15:22:01	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/03/05 15:29:20	1.6
@@ -1136,13 +1136,13 @@
         my $Type = &_nodeTextContent($Service, 'serviceType');
         my $Output = &_nodeTextContent($Service, 'outputObject');
         my $Description = &_nodeTextContent($Service, 'Description');
-        my $cat = &_nodeTextContent($Service, 'Catagory');
+        my $cat = &_nodeTextContent($Service, 'Category');
 		
         my $Instance = MOBY::Client::ServiceInstance->new(
             authority => $AuthURI,
             name => $servicename,
             type => $Type,
-            catagory => $cat,
+            category => $cat,
             output => $Output,
             description => $Description,
 			registry	=> $Registry,

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/02/21 00:15:44	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/03/05 15:29:20	1.3
@@ -20,7 +20,7 @@
      authority => 'bioinfo.pbi.nrc.ca',
      name => 'marksFabulousService',
      type => 'Retrieve',
-	 catagory => 'moby',
+	 category => 'moby',
      output => 'Sequence',
      description => 'retrieves random sequences from a database');
 
@@ -133,7 +133,7 @@
                       name          => [undef,      'read/write'],
                       type          => [undef,      'read/write'],
                       output        => [undef,      'read/write'],
-                      catagory      => [undef,      'read/write'],
+                      category      => [undef,      'read/write'],
                       description   => [undef,      'read/write'],
 					  registry		=> ['MOBY_Central', 		'read/write'],
 				);