[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	CommonSubs.pm 
Log Message:
fixed.  removing debugging messages

moby-live/Perl/MOBY CommonSubs.pm,1.23,1.24
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 10:23:54	1.23
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 10:40:28	1.24
@@ -588,7 +588,6 @@
 sub extractResponseArticles {
     my ($result) = @_;
     return ([], []) unless $result;
-    print STDERR "***extracted response articles\n";
     my $moby;
     unless (ref($result) =~ /XML\:\:DOM/){
         my $parser = new XML::DOM::Parser;
@@ -603,19 +602,11 @@
     my $success = 0;
     my $responses = $moby->getElementsByTagName('moby:queryResponse');
     $responses ||= $moby->getElementsByTagName('queryResponse');
-    print STDERR "***checked responses\n";
     foreach my $n(0..($responses->getLength - 1)){
-        print STDERR "***found response # $n\n";
         my $resp = $responses->item($n);
         foreach my $response_component($resp->getChildNodes){ 
-            print STDERR "***found child node\n";
             next unless $response_component->getNodeType == ELEMENT_NODE;
             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($response_component->getChildNodes) {
                     next unless $Object->getNodeType == ELEMENT_NODE;
                     $success = 1;