[open-ils-commits] r17046 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (phasefx)

[svn at svn.open-ils.org]

Author: phasefx
Date: 2010-07-27 18:33:10 -0400 (Tue, 27 Jul 2010)
New Revision: 17046

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
since we're re-circulating to previous patrons sometimes as a poor man's check-in undo, give us the power to turn off these fee-generating features.  berick++


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2010-07-27 22:33:01 UTC (rev 17045)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2010-07-27 22:33:10 UTC (rev 17046)
@@ -518,6 +518,8 @@
     return_patron
     claims_never_checked_out
     skip_permit_key
+    skip_deposit_fee
+    skip_rental_fee
 /;
 
 
@@ -1432,6 +1434,9 @@
         ($self->is_deposit and not $self->is_deposit_exempt) or 
         ($self->is_rental and not $self->is_rental_exempt);
 
+    return if $self->is_deposit and $self->skip_deposit_fee;
+    return if $self->is_rental and $self->skip_rental_fee;
+
 	my $bill = Fieldmapper::money::billing->new;
     my $amount = $copy->deposit_amount;
     my $billing_type;