[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Feb 19 21:23:33 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv16415/MOBY

Modified Files:
	Central.pm 
Log Message:
so much for my ablity to spell.  Catagory is now Category, except in the database schema...
moby-live/Perl/MOBY Central.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/02/20 02:17:27	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/02/20 02:23:33	1.5
@@ -1025,7 +1025,7 @@
 
  inputXML (FOR MOBY SERVICES):
  <registerService>
-  <Catagory>moby</Catagory>
+  <Category>moby</Category>
   <serviceName>YourServiceNameHere</serviceName>
   <serviceType>YourServiceTypeHere</serviceType>
   <authURI>your.URI.here</authURI>
@@ -1052,7 +1052,7 @@
 
  inputXML (FOR CGI GET SERVICES):
  <registerService>
-  <Catagory>cgi</Catagory>
+  <Category>cgi</Category>
   <serviceName>YourServiceNameHere</serviceName>
   <serviceType>YourServiceTypeHere</serviceType>
   <authURI>your.URI.here</authURI>
@@ -1069,7 +1069,7 @@
 
  inputXML (FOR non-MOBY SOAP SERVICES):
  <registerService>
-  <Catagory>soap</Catagory>
+  <Category>soap</Category>
   <serviceName>YourServiceNameHere</serviceName>
   <serviceType>YourServiceTypeHere</serviceType>
   <authURI>your.URI.here</authURI>
@@ -1084,30 +1084,30 @@
 
 sub registerService { 
 	my ($pkg,  $payload) = @_;
-	my ($serviceName, $serviceType, $AuthURI, $INS, $OUTS, $NSS, $URL, $desc, $catagory) = &_registerServicePayload($payload);
+	my ($serviceName, $serviceType, $AuthURI, $INS, $OUTS, $NSS, $URL, $desc, $Category) = &_registerServicePayload($payload);
 
-	unless ($catagory){  # throw error if parameter missing
-		$debug && &_LOG("catagory missing from $payload\n");
+	unless ($Category){  # throw error if parameter missing
+		$debug && &_LOG("Category missing from $payload\n");
 		my $reg = &Registration({
 			success => 0,
-			error_message => "Catagory is a required parameter",
+			error_message => "Category is a required parameter",
 			registration_id => "",
 									  });
 		return $reg;
 	}
-	unless (grep {/$catagory/} ("est", "cgi", "moby")){  # throw error if parameter missing
-		$debug && &_LOG("catagory $catagory invalid\n");
+	unless (grep {/$Category/} ("est", "cgi", "moby")){  # throw error if parameter missing
+		$debug && &_LOG("Category $Category invalid\n");
 		my $reg = &Registration({
 			success => 0,
-			error_message => "Catagory may take the (case sensitive) values 'moby', 'cgi', 'soap'\n",
+			error_message => "Category may take the (case sensitive) values 'moby', 'cgi', 'soap'\n",
 			registration_id => "",
 									  });
 		return $reg;
 	}
 	my ($moby, $cgi, $soap);
-	$moby = $catagory eq "moby"?1:0;
-	$cgi = $catagory eq "cgi"?1:0;
-	$soap = $catagory eq "soap"?1:0;
+	$moby = $Category eq "moby"?1:0;
+	$cgi = $Category eq "cgi"?1:0;
+	$soap = $Category eq "soap"?1:0;
 	
 	if ($moby){
 		unless ($serviceName && $serviceType && $AuthURI && $INS && $OUTS && $URL && $desc){  # throw error if parameter missing
@@ -1279,7 +1279,7 @@
 	return undef unless ($obj eq 'registerService');
 	
 	my $name = &_nodeTextContent($Object, "serviceName");
-	my $catagory = &_nodeTextContent($Object, "Catagory");
+	my $Category = &_nodeTextContent($Object, "Category");
 	my $type = &_nodeTextContent($Object, "serviceType");
 	my $authURI = &_nodeTextContent($Object, "authURI");