[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Dec  9 16:23:24 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv28350/Perl/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
dumb dumb dumb dumb

moby-live/Perl/MOBY CommonSubs.pm,1.29,1.30
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/12/09 21:06:51	1.29
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/12/09 21:23:24	1.30
@@ -209,7 +209,7 @@
 
 
 sub genericServiceInputParser {
-    my ($message, $namespaces) = @_;  # get the incoming MOBY query XML
+    my ($message) = @_;  # get the incoming MOBY query XML
     my @inputs;           # set empty response
     my @queries = getInputs($message);  # returns XML::DOM nodes
     
@@ -225,7 +225,7 @@
                 push @inputs, [COLLECTION,$queryID, \@simples];
 
             } elsif ($simple){
-                push @inputs, [SIMPLE,$queryID,$simple];
+                push @inputs, [SIMPLE,$queryID,$article];
             }
         }
     }