From f44ab3d736af7841853485788c1037becda8994d Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 18 Jul 2006 17:23:53 +0000 Subject: [PATCH] sanity check git-svn-id: svn://svn.open-ils.org/ILS/trunk@5064 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm index 8a59b7020d..2e5a7f7d77 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm @@ -299,7 +299,7 @@ sub _set_circ_lost { my $copy_price = $copy->price || 0; # If the copy has a price configured, charge said price to the user - if($copy_price) { + if($copy_price and $copy_price > 0) { $evt = _make_bill($session, $copy_price, 'Lost Materials', $circ->id); return $evt if $evt; } -- 2.11.0