From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 29 Jul 2008 19:20:25 +0000 (+0000)
Subject: give subrequests access to the session (will not be used by respond())
X-Git-Tag: osrf_rel_2_0_1~589
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5e1ab0bee119a8bdb139909ffde5470c7a99ce74;p=OpenSRF.git

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
--- 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);
 	}