[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
get info out of XML in client central
moby-live/Perl/MOBY/Client Central.pm,1.149,1.150
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.149
retrieving revision 1.150
diff -u -r1.149 -r1.150
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/07/31 12:29:15	1.149
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/09/14 16:53:04	1.150
@@ -1338,7 +1338,7 @@
 		} else {
 		    $lsid = $type;
 		}
-		my ($desc, $auth, $email);
+		my ($desc, $auth, $email, $ISA, $ISA_LSID) = ("","","","","");
 		for
 		  my $elem ( $types->get_node($x)->getElementsByTagName('Description') )
 		{
@@ -1363,8 +1363,18 @@
 				$email = $1;
 			}
 		}
+				for
+		  my $elem ( $types->get_node($x)->getElementsByTagName('ISA') )
+		{
+			$ISA = $elem->firstChild->toString;
+			if ( $email =~ /<!\[CDATA\[((?>[^\]]+))\]\]>/ ) {
+				$email = $1;
+			}
+			$ISA_LSID = $elem->getAttributeNode('lsid')->getValue;
+		}
+
 		$desc =~ s/<!\[CDATA\[((?>[^\]]+))\]\]>/$1/gs;  # somehow these CDATA elements are nested sometimes???
-		$servicetypes{$as_lsid?$lsid:$type} = {Description => $desc, authURI => $auth, contactEmail => $email};
+		$servicetypes{$as_lsid?$lsid:$type} = {Description => $desc, authURI => $auth, contactEmail => $email, ISA => $ISA, ISA_LSID => $ISA_LSID};
 	}
 	return \%servicetypes;
 }