[open-ils-commits] r19361 - trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-02-02 13:53:25 -0500 (Wed, 02 Feb 2011)
New Revision: 19361

Modified:
   trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
Log:
exit finish_fines_and_voiding() if there is no open circ

Modified: trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm	2011-02-02 03:29:27 UTC (rev 19360)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm	2011-02-02 18:53:25 UTC (rev 19361)
@@ -2437,9 +2437,10 @@
 
 sub finish_fines_and_voiding {
     my $self = shift;
+    return unless $self->circ;
 
     # gather any updates to the circ after fine generation, if there was a circ
-    $self->generate_fines_finish if ($self->circ);
+    $self->generate_fines_finish;
 
     return unless $self->backdate or $self->void_overdues;