[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 05:23:54 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv18446/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
this should fix it.

moby-live/Perl/MOBY CommonSubs.pm,1.22,1.23
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 10:04:13	1.22
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 10:23:54	1.23
@@ -587,7 +587,6 @@
 
 sub extractResponseArticles {
     my ($result) = @_;
-    print STDERR "***extracting response articles\n";
     return ([], []) unless $result;
     print STDERR "***extracted response articles\n";
     my $moby;
@@ -614,10 +613,10 @@
             if (($response_component->getTagName eq "Simple") || ($response_component->getTagName eq "moby:Simple")){
                 print STDERR "***found Simple # $n\n";
 
-                my $simples = $resp->getElementsByTagName('Simple');
-                $simples ||=$resp->getElementsByTagName('moby:Simple');
-                next unless $simples->item(0);
-                foreach my $Object($simples->item(0)->getChildNodes) {
+#                my $simples = $resp->getElementsByTagName('Simple');
+#                $simples ||=$resp->getElementsByTagName('moby:Simple');
+ #               next unless $simples->item(0);
+                foreach my $Object($response_component->getChildNodes) {
                     next unless $Object->getNodeType == ELEMENT_NODE;
                     $success = 1;
                     push @objects,$Object;