[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul  1 12:36:43 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv18788

Modified Files:
	LocalServices.pm 
Log Message:
yeah good.  My example service didnt work properly :-)  fixed now.  This is the sample that runs by default on the CGI client

moby-live/Perl/scripts/Services LocalServices.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/06/27 03:26:49	1.4
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/01 16:36:43	1.5
@@ -24,7 +24,7 @@
 
     my @accessions;
     for (0..$x->getLength-1){
-        my @child = $x->item(0)->getChildNodes;
+        my @child = $x->item($_)->getChildNodes;
         my $content;
         foreach (@child){
             $content .= $_->toString;