[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 04:59:04 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv16916/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
adding debugging info to commonsubs.  I broke it with the last commit

moby-live/Perl/MOBY CommonSubs.pm,1.19,1.20
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 09:40:57	1.19
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/11/01 09:59:04	1.20
@@ -603,10 +603,13 @@
     my $responses = $moby->getElementsByTagName('moby:queryResponse');
     $responses ||= $moby->getElementsByTagName('queryResponse');
     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');