[open-ils-commits] r19362 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-02-02 13:54:05 -0500 (Wed, 02 Feb 2011)
New Revision: 19362

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

Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2011-02-02 18:53:25 UTC (rev 19361)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2011-02-02 18:54:05 UTC (rev 19362)
@@ -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;