[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 14 20:06:18 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv2787/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
fixed errors in the collectionouput creation in the CommonSubs library

moby-live/Perl/MOBY CommonSubs.pm,1.9,1.10
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/07/14 21:17:13	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/07/15 00:06:18	1.10
@@ -259,7 +259,7 @@
 sub collectionResponse {
     my ($data, $articleName) = @_;  # articleName optional
     my $content = "";
-    unless (ref $data =~ /array/){  # we're expecting an arrayref as input data
+    unless (ref($data) =~ /array/i){  # we're expecting an arrayref as input data
         return "<moby:queryResponse>
                 </moby:queryResponse>";
     }
@@ -268,7 +268,7 @@
         if($_) {
             $content .= "
                 <Simple>
-                    $data
+                    $_
                 </Simple>
             ";
         } else {