[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul  1 12:09:02 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv18632/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
fixing client program

moby-live/Perl/scripts MOBY-Client05.cgi,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/01 16:01:02	1.4
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/01 16:09:02	1.5
@@ -454,12 +454,12 @@
             my ($type) = $_->type;
             my $objs = $_->output;
             my $output = "(";
-            foreach (@{$objs}){
-                if ($_->isSimple){
-                    $output .= "Simple:".($_->objectType)." ,";
+            foreach my $param(@{$objs}){
+                if ($param->isSimple){
+                    $output .= "Simple:".($param->objectType)." ,";
                 } else {
                     $output .= "Collection:[";
-                    foreach my $simp(@{$_->Simples}){
+                    foreach my $simp(@{$param->Simples}){
                         $output .= ($simp->objectType).",";
                     }
                     chop $output;