[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 10:24:09 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv417/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
temp commit to get some changes over.  Client library broken
moby-live/Perl/MOBY/Client Central.pm,1.12,1.13
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 14:10:29	1.12
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 14:24:09	1.13
@@ -615,9 +615,9 @@
 				}
 				$message .="</Simple>\n";
 			}
-#			if (ref($Object) =~ /array/i){
-#				$message .="</Collection>\n";
-#			}
+			if (ref($Objects) =~ /array/i){
+				$message .="</Collection>\n";
+			}
 		}
 		$message .= "
 			   </Input>\n";
@@ -641,9 +641,9 @@
 				}
 				$message .="</Simple>\n";
 			}
-#			if (ref($Object) =~ /array/i){
-#				$message .="</Collection>\n";
-#			}
+			if (ref($Objects) =~ /array/i){
+				$message .="</Collection>\n";
+			}
 		}
 		foreach my $Sec(@SEC){
 #			[parameter1 => [{