LP#1198465 Put penalty generation in the same xact

The penalties need to "see" any fines we may have just added, so they
need to happen in the same transaction.  Passing in the optional editor
makes this an easy fix.

Signed-off-by: Dan Wells <dbw2@calvin.edu>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
index 9be2fd7..db82c49 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm
@@ -571,9 +571,9 @@ sub generate_fines {
 
 #            $self->method_lookup('open-ils.storage.transaction.commit')->run;
 
-            # Caluclate penalties inline
+            # Calculate penalties inline
             OpenILS::Utils::Penalty->calculate_penalties(
-                undef, $c->usr, $c->$circ_lib_method);
+                $e, $c->usr, $c->$circ_lib_method);
 
         };