[open-ils-commits] r19217 - branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application (senator)

[svn at svn.open-ils.org]

Author: senator
Date: 2011-01-19 16:55:14 -0500 (Wed, 19 Jan 2011)
New Revision: 19217

Modified:
   branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
Backport r19214 from trunk

Booking: Robert Soulliere spotted and fixed a bug in processing reservation-
related overdue fines.  See https://bugs.launchpad.net/evergreen/+bug/705061


Modified: branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2011-01-19 21:54:42 UTC (rev 19216)
+++ branches/rel_1_6_1/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2011-01-19 21:55:14 UTC (rev 19217)
@@ -1551,6 +1551,14 @@
     return $loc->[0]->{circ_lib} if @$loc;
 
     $loc = $e->json_query({
+        "select" => {bresv => ["request_lib"]},
+        from     => "bresv",
+        "where"  => {id => $xact_id},
+    });
+
+    return $loc->[0]->{request_lib} if @$loc;
+
+    $loc = $e->json_query({
         "select" => {mg => ["billing_location"]},
         from     => "mg",
         "where"  => {id => $xact_id},