[MOBY-guts] biomoby commit

[senger@ebi.ac.uk]

senger
Sun Mar  2 02:47:36 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv15075

Modified Files:
	Central.pm 
Log Message:
changed typo Catagory to Category in output XMLs pieces
moby-live/Perl/MOBY Central.pm,1.10,1.11
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/02/28 21:20:37	1.10
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/03/02 07:47:36	1.11
@@ -1683,7 +1683,7 @@
 			next if $seen{"$AuthURI"."||"."$serviceName"} == 1;  # non-redundant list please
 			$seen{"$AuthURI"."||"."$serviceName"} = 1;
 			$response .="<Service authURI='$AuthURI' serviceName='$serviceName'>\n";
-				$response .="<Catagory>$cat</Catagory>\n";
+				$response .="<Category>$cat</Category>\n";
 				$response .="<serviceType>$type</serviceType>\n";
 				$response .="<outputObject>$objectOUT</outputObject>\n";
 				$response .= "<Description><![CDATA[$desc]]></Description>\n";
@@ -2587,7 +2587,7 @@
 		next if $seen{"$AuthURI"."||"."$serviceName"};  # non-redundant list please
 		$seen{"$AuthURI"."||"."$serviceName"} = 1;
 		$response .="<Service authURI='$AuthURI' serviceName='$serviceName'>\n";
-            $response .="<Catagory>$cat</Catagory>\n";
+            $response .="<Category>$cat</Category>\n";
             $response .="<serviceType>$type</serviceType>\n";
             $response .="<outputObject>$objectOUT</outputObject>\n";
             $response .= "<Description><![CDATA[$desc]]></Description>\n";