fixed bug in stream response handling, lengthened timeout

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6911 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm b/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm
index 1ff6510..330b22f 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/XMLRPCGateway.pm
@@ -86,7 +86,7 @@ sub run_request {
 
     my $data = [];
     my $req = $ses->request($method, @args);
-    while( my $resp = $req->recv( timeout => 300 ) ) {
+    while( my $resp = $req->recv( timeout => 600 ) ) {
         if( $req->failed ) {
             push( @$data, $req->failed );
             last;
@@ -95,6 +95,8 @@ sub run_request {
     }
 
     return [] if scalar(@$data) == 0;
+    return wrap_perl($$data[0]) 
+        if scalar(@$data) == 1 and $method !~ /.atomic$/og;
     return wrap_perl($data);
 }