[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed May  7 20:10:41 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv30355/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
BROKEN
moby-live/Perl/MOBY/Client Central.pm,1.10,1.11
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/07 23:52:14	1.10
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 00:10:41	1.11
@@ -573,10 +573,31 @@
 			<authURI>$authURI</authURI>";
 
 	if ($Category eq "moby") {
-			my %IN = %{$a{input}}; 
+			my @IN = @{$a{input}}; 
 			my @OUT = @{$a{output}};
 			$message .= "<inputObjects>\n";
-			while (my ($otype, $ns) = each %IN){
+			foreach my $Article(@IN){
+				my ($Objects, $articleName) = @{$Article};
+				my @Objects;				
+				if (ref($Objects) =~ /array/i){
+					@Objects = @{$Objects};
+					$message .="<Collection>\n";
+				} else {
+					@Objects = $Objects;
+				}
+				foreach my $Object(@Objects){
+					$message .="<Simple>\n";					
+					my ($type, $Namespaces) = @{$Object);
+					$message .="<objectType>$type</objectType>\n";
+					foreach my $ns(@{$Namespaces}){
+						$message .="<Namespace>$ns</Namespace>\n";
+					}
+					$message .="</Simple>\n";
+				}
+				if (ref($Object) =~ /array/i){
+					$message .="</Collection>\n";
+				}
+				
 				$message .= "
 					<Input>
 						<objectType>$otype</objectType>\n";