From 9156f17fef7f6afdbdb47a6f662bcb2d65a3902c Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 6 Sep 2006 15:35:32 +0000 Subject: [PATCH] fixed URL param, added some real logging git-svn-id: svn://svn.open-ils.org/ILS/trunk@5998 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm index 3dd743732c..563a00ec5e 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm @@ -14,6 +14,7 @@ use CGI (); use OpenSRF::AppSession; use OpenSRF::System; use OpenILS::Utils::Fieldmapper; +use OpenSRF::Utils::Logger qw/$logger/; use vars '$lib_ips_hash'; @@ -44,13 +45,13 @@ sub handler { my $path = $apache_obj->path_info(); - warn "Client connecting from $user_ip\n"; + $logger->debug("Apache client connecting from $user_ip"); if( my $lib_data = redirect_libs( $user_ip ) ) { my $region = $lib_data->[0]; my $library = $lib_data->[1]; - warn "Will redirect to $region / $library\n"; + $logger->info("Apache redirecting to $region / $library"); my $session = OpenSRF::AppSession->create("open-ils.storage"); my $shortname = "$region-$library"; @@ -58,7 +59,7 @@ sub handler { "open-ils.storage.direct.actor.org_unit.search.shortname", $shortname)->gather(1); - if($org) { $url .= "?location=" . $org->id; } + if($org) { $url .= "?ol=" . $org->id; } } -- 2.43.2