[open-ils-commits] r19214 - trunk/Open-ILS/src/perlmods/OpenILS/Application (senator)

[svn at svn.open-ils.org]

Author: senator
Date: 2011-01-19 16:52:28 -0500 (Wed, 19 Jan 2011)
New Revision: 19214

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
Booking: Robert Soulliere spotted and fixed a bug in processing reservation-
related overdue fines.  See https://bugs.launchpad.net/evergreen/+bug/705061

This patch tests successfully for me. Thanks Robert!


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2011-01-19 20:05:13 UTC (rev 19213)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2011-01-19 21:52:28 UTC (rev 19214)
@@ -1623,6 +1623,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},