[Opensrf-commits] r1379 - trunk/src/perlmods/OpenSRF

[svn at svn.open-ils.org]

Author: miker
Date: 2008-07-29 15:20:25 -0400 (Tue, 29 Jul 2008)
New Revision: 1379

Modified:
   trunk/src/perlmods/OpenSRF/Application.pm
Log:
give subrequests access to the session (will not be used by respond())

Modified: trunk/src/perlmods/OpenSRF/Application.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/Application.pm	2008-07-29 13:17:03 UTC (rev 1378)
+++ trunk/src/perlmods/OpenSRF/Application.pm	2008-07-29 19:20:25 UTC (rev 1379)
@@ -529,7 +529,7 @@
 	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);
 	}