[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Sep 14 13:02:24 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv22771/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
get info out of XML in client central
moby-live/Perl/MOBY/Client Central.pm,1.150,1.151
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.150
retrieving revision 1.151
diff -u -r1.150 -r1.151
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/09/14 16:53:04	1.150
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/09/14 17:02:24	1.151
@@ -1363,10 +1363,11 @@
 				$email = $1;
 			}
 		}
-				for
+		for
 		  my $elem ( $types->get_node($x)->getElementsByTagName('ISA') )
 		{
-			$ISA = $elem->firstChild->toString;
+			$ISA = $elem->firstChild;
+			$ISA = $ISA?$ISA->toString:"";
 			if ( $email =~ /<!\[CDATA\[((?>[^\]]+))\]\]>/ ) {
 				$email = $1;
 			}