[open-ils-commits] r18229 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-10-07 17:40:48 -0400 (Thu, 07 Oct 2010)
New Revision: 18229

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm
Log:
choose the hold permit test variant correctly

Signed-off-by: Galen Charlton <gmc at esilibrary.com>


Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm	2010-10-07 21:39:05 UTC (rev 18228)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/PermitHold.pm	2010-10-07 21:40:48 UTC (rev 18229)
@@ -204,7 +204,7 @@
 sub indb_hold_permit {
     my $params = shift;
 
-    my $function = $$params{retarget} ? 'action.hold_request_permit_test' : 'action.hold_retarget_permit_test';
+    my $function = $$params{retarget} ? 'action.hold_retarget_permit_test' : 'action.hold_request_permit_test';
     my $patron_id = 
         ref($$params{patron}) ? $$params{patron}->id : $$params{patron_id};
     my $request_lib =