give subrequests access to the session (will not be used by respond())

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1379 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 08bd106..a93ba88 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -529,7 +529,7 @@ sub run {
        if ( !UNIVERSAL::isa($req, 'OpenSRF::AppRequest') ) {
                $log->debug("Creating a SubRequest object", DEBUG);
                unshift @params, $req;
-               $req = OpenSRF::AppSubrequest->new;
+               $req = OpenSRF::AppSubrequest->new( session => $req->session );
        } else {
                $log->debug("This is a top level request", DEBUG);
        }