[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Aug 16 13:21:35 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv6602/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
Client was redundantly testing identical object types for their ability to invoke a service, which slowed it down.  Collection articles were not being created properly from my GetGotermAssociations service.

moby-live/Perl/scripts/Services LocalServices.pm,1.29,1.30
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/08/16 00:37:50	1.29
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/08/16 17:21:35	1.30
@@ -151,7 +151,7 @@
 			$response_data .= "		<Object namespace='taxon' id='$sp'/>\n";
             $response_data .= "	</CrossReference>\n";
             $response_data .= "</Object>\n";
-			push @simples, simpleResponse($response_data);
+			push @simples, $response_data;
         }
 		$response .= collectionResponse(\@simples); # after all images have been collected, create the collection
     }