[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Sep 14 12:53:04 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv22674/MOBY

Modified Files:
	Central.pm 
Log Message:
get info out of XML in client central
moby-live/Perl/MOBY Central.pm,1.287,1.288
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.287
retrieving revision 1.288
diff -u -r1.287 -r1.288
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/09/14 14:55:30	1.287
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/09/14 16:53:04	1.288
@@ -2695,10 +2695,11 @@
  Args      :	none
  XML       :
 	<serviceTypes>
-	   <serviceType name="serviceName" lsid="urn:lsid...">
+	   <serviceType name="serviceTypeName" lsid="urn:lsid...">
 		  <Description><![CDATA[free text description here]]></Description>
 		  <contactEmail>your at email.here</contactEmail>
 		  <authURI>authority.uri.here</authURI>
+		  <ISA lsid="urn:lsid...">parentTypeName</ISA>  <!-- empty for root! -->
 	   </serviceType>
 		...
 		...
@@ -2716,7 +2717,14 @@
 		if ( $desc =~ /<!\[CDATA\[((?>[^\]]+))\]\]>/ ) {
 			$desc = $1;
 		}
-		$types .="<serviceType name='$serv' lsid='$lsid'>\n<Description><![CDATA[$desc]]></Description>\n<contactEmail>$contact</contactEmail>\n<authURI>$auth</authURI>\n</serviceType>\n"; #UNCOMMENT
+		$isa_type ||="";
+		$isa_lsid ||="";
+		$types .="<serviceType name='$serv' lsid='$lsid'>
+		<Description><![CDATA[$desc]]></Description>
+		<contactEmail>$contact</contactEmail>
+		<authURI>$auth</authURI>
+		<ISA lsid='$isa_lsid'>$isa_type</ISA>
+		</serviceType>\n"; #UNCOMMENT
 	}
 	$types .= "</serviceTypes>\n";
 	return $types;