[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri May  9 10:42:20 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv8467/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
retrieve relationship types
moby-live/Perl/MOBY Central.pm,1.65,1.66
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -r1.65 -r1.66
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:39:31	1.65
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 14:42:20	1.66
@@ -2650,6 +2650,7 @@
 
 sub retrieveRelationshipTypes {
 	my ($pkg, $payload) = @_;
+	print "payload $payload\n";
 	my $Parser = new XML::DOM::Parser;
 	my $doc = $Parser->parse($payload);
 	my $DOM = $doc->getDocumentElement();
@@ -2659,6 +2660,7 @@
     if ($x->item(0)){@child = $x->item(0)->getChildNodes;}
     foreach (@child){
         $debug && &_LOG ($_->getNodeTypeName, "\t", $_->toString,"\n");
+        print $_->getNodeTypeName, $_->toString;
 		next unless ($_->getNodeType == TEXT_NODE);
 		my $name = $_->toString; chomp $name;
 		$ontology = $name;