[MOBY-guts] biomoby commit

[José Manuel Rodríguez Carrasco]

jmrc
Mon Sep  1 15:01:49 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv19403/Perl/MOBY-Server/lib/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
*	Fixed the "hideous" bug found by Eddie, related to asynchronous MOBY calls
	with empty mobyData elements. Although it is a very strange case,
	there could be a service with no input parameter. MOBY::Async::SimpleServer
	uses serviceInputParser, which had the bug fixed by this commit.

moby-live/Perl/MOBY-Server/lib/MOBY CommonSubs.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm	2008/03/05 20:27:11	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm	2008/09/01 19:01:49	1.4
@@ -375,6 +375,10 @@
 	foreach my $query ( @queries ) {
             my $queryID =  _getQID( $query );    # get the queryID attribute of the mobyData
             my @input_articles = _getArticlesAsObjects( $query );
+	    # This is done for empty mobyData. It is a strange case
+	    # but it can happen (a service which is a random answer
+	    # generator, for instance)
+	    $input_parameters{$queryID}={};
             foreach my $article ( @input_articles ) { 
                 ${$input_parameters{$queryID}}{$article->articleName} =  $article;
             }