Adding fix for KPAC hold placement.

Signed-off-by: Chris Sharp <csharp@georgialibraries.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGKPacLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGKPacLoader.pm
index c50e1dd..f9eb664 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGKPacLoader.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGKPacLoader.pm
@@ -93,7 +93,7 @@ sub load_getit {
         ]);
     }
 
-    # If user is logged in and has a default pickup location, grab it
+    # If user is logged in and has a default pickup location for holds, grab it
     if ($ctx->{user}) {
         my $set_map = $self->ctx->{user_setting_map};
         if ($$set_map{'opac.default_pickup_location'}) {
@@ -101,7 +101,6 @@ sub load_getit {
         }
     }
 
-
     $self->ctx->{page} = 'getit'; # repair the page
     return Apache2::Const::OK;
 }
@@ -114,6 +113,11 @@ sub login_and_place_hold {
     my $password = $self->cgi->param('password');
     my $pickup_lib = $self->cgi->param('pickup_lib');
 
+    #Temporary workaround for selection problem - if PINES (value 1) is selected, reload page
+    if ($pickup_lib == '1' || $pickup_lib == '') {
+        return $self->load_login;
+    }
+
     return Apache2::Const::HTTP_BAD_REQUEST 
         unless $pickup_lib =~ /^\d+$/;