[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Oct 16 10:13:39 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts
In directory dev.open-bio.org:/tmp/cvs-serv24454/MOSES-MOBY/bin/scripts

Modified Files:
	moses-testing-service.pl 
Log Message:
bug fix: when polling a cgi-async service with > 1 job, only the first job is polled for and when it is complete both are assumed to be complete
moby-live/Perl/MOSES-MOBY/bin/scripts moses-testing-service.pl,1.12,1.13
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2009/10/09 15:31:00	1.12
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/bin/scripts/moses-testing-service.pl	2009/10/16 14:13:39	1.13
@@ -341,9 +341,12 @@
 			my $xml    = $response->content();
 			my $parser = XML::LibXML->new();
 			my $doc    = $parser->parse_string($xml);
-			$doc = $doc->documentElement()->firstChild()->firstChild();
-
-			my $status = LSAE::AnalysisEventBlock->new( $doc->toString );
+			my $xpath = "//*[\@*='$queryID']";
+            my $xpc   = XML::LibXML::XPathContext->new();
+            my $nodes = $xpc->findnodes( $xpath, $doc->documentElement );
+            # should only be one ...
+            die unless $nodes->size() == 1;
+			my $status = LSAE::AnalysisEventBlock->new( $nodes->get_node(1)->toString() );
 			&_check_status( $status, \%completed, $queryID, $opt_v );
 		}
 		last if scalar keys(%completed) == $#query_ids + 1;