Stash the current requestrec for opensrf to test

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AccessHandler.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AccessHandler.pm
index 24f1d9e..a8d0c52 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AccessHandler.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AccessHandler.pm
@@ -14,7 +14,7 @@ use URI::Escape;
 
 # Auth Handler
 sub handler {
-    my ($r) = @_;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
 
     # Configuration options
 

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm
index 254d790..700b961 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm
@@ -88,7 +88,7 @@ sub child_init {
 
 sub handler {
 
-    my $r   = shift;
+    my $r   = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
 
     # If the URL requested matches a file on the filesystem, have Apache serve that file
     # this allows for local content (most typically images) to be used for some requests

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
index c5d9ee1..e7c726f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
@@ -203,7 +203,7 @@ sub output_handler {
 sub handler {
     child_init() unless $init_done;
 
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $cgi = new CGI;
 
     my $editor = new_editor;

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm
index 523b6d4..7eaa670 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/BadDebt.pm
@@ -41,7 +41,7 @@ sub child_init {
 }
 
 sub handler {
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $cgi = new CGI;
     my $auth_ses = $cgi->cookie('ses') || $cgi->param('ses');
 

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm
index da18d7e..2d4a27e 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGWeb.pm
@@ -50,7 +50,7 @@ sub child_init {
 }
 
 sub handler {
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $stat = handler_guts($r);
 
     # other opensrf clients share this apache process,

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Exporter.pm
index bf2fa36..3482c58 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Exporter.pm
@@ -51,7 +51,7 @@ sub child_init {
 }
 
 sub handler {
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $cgi = new CGI;
 
     # find some IDs ...

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm
index b80c9e8..d3dec45 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/FlatFielder.pm
@@ -214,7 +214,7 @@ sub output_handler {
 }
 
 sub handler {
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $cgi = new CGI;
 
     my %args;

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/IDL2js.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/IDL2js.pm
index 497b0db..50ad13f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/IDL2js.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/IDL2js.pm
@@ -58,7 +58,7 @@ sub child_init {
 
 my %idl_cache;
 sub handler {
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $args = $r->args || '';
     child_init() unless $__initted;
 

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList.pm
index 6e6c9fd..3d42e4e 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/PhoneList.pm
@@ -58,7 +58,7 @@ sub child_init {
 }
 
 sub handler {
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $cgi = new CGI;
     my $authid = $cgi->cookie('ses') || $cgi->param('ses');
     my $user = $U->simplereq('open-ils.auth', 'open-ils.auth.session.retrieve', $authid);

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy.pm
index ed6cdf9..b74d25f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy.pm
@@ -59,7 +59,7 @@ sub child_init {
 }
 
 sub handler {
-    my $apache = shift;
+    my $apache = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
 
     my $proxyhtml = $apache->dir_config('OILSProxyHTML');
     my $title = $apache->dir_config('OILSProxyTitle');

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy/Authen.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy/Authen.pm
index 5b1c64b..3a5b2c7 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy/Authen.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Proxy/Authen.pm
@@ -31,7 +31,7 @@ sub child_init {
 }
 
 sub handler {
-    my $apache = shift;
+    my $apache = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
 
     my $ltype = $apache->dir_config('OILSProxyLoginType');
     my $perms = [ split ' ', $apache->dir_config('OILSProxyPermissions') ];

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm
index d55c01f..924edc1 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Redirect.pm
@@ -53,7 +53,7 @@ sub parse_ips_file {
 
 my %org_cache;
 sub handler {
-    my $apache = shift;
+    my $apache = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
 
     my $cgi = CGI->new( $apache );
     my $port = $cgi->server_port();

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Reporter.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Reporter.pm
index 882c12d..1d27104 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/Reporter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/Reporter.pm
@@ -54,7 +54,7 @@ sub child_init {
 
 sub handler {
 
-    my $apache = shift;
+    my $apache = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     return Apache2::Const::DECLINED if (-e $apache->filename);
 
     my $cgi = CGI->new;

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/TemplateBatchBibUpdate.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/TemplateBatchBibUpdate.pm
index 6d75965..65b761a 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/TemplateBatchBibUpdate.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/TemplateBatchBibUpdate.pm
@@ -52,7 +52,7 @@ sub child_init {
 }
 
 sub handler {
-    my $r = shift;
+    my $r = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $cgi = new CGI;
 
     my $authid = $cgi->cookie('ses') || $cgi->param('ses');

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/XMLRPCGateway.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/XMLRPCGateway.pm
index 43e99e4..96f2a23 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/XMLRPCGateway.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/XMLRPCGateway.pm
@@ -54,7 +54,7 @@ sub child_init {
 
 sub handler {
 
-    my $r       = shift;
+    my $r       = $ENV{OSRF_APACHE_REQUEST_OBJ} = shift;
     my $cgi = CGI->new;
     my $service = $r->path_info;
     $service =~ s#^/##;