fixed URL param, added some real logging
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 6 Sep 2006 15:35:32 +0000 (15:35 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 6 Sep 2006 15:35:32 +0000 (15:35 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5998 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm

index 3dd7437..563a00e 100644 (file)
@@ -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; }
 
        }