From b1465be2f041028fcd4eebce7e8c32c79d2590e3 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Fri, 20 Jun 2008 15:18:15 -0500
Subject: [PATCH] Use C4::Debug to conditionalize warn.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 opac/opac-reserve.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl
index df074d5c9f..88da5d3e3e 100755
--- a/opac/opac-reserve.pl
+++ b/opac/opac-reserve.pl
@@ -28,6 +28,7 @@ use C4::Dates qw/format_date/;
 use C4::Context;
 use C4::Members;
 use C4::Branch; # GetBranches
+use C4::Debug;
 # use Data::Dumper;
 
 my $MAXIMUM_NUMBER_OF_RESERVES = C4::Context->preference("maxreserves");
@@ -168,6 +169,7 @@ foreach my $itm (@items) {
     push @duedates, { date_due => format_date( $itm->{'date_due'} ) }
       if defined $itm->{'date_due'};
     $itm->{ $itm->{'publictype'} } = 1;
+	$debug and warn $itm->{'notforloan'};
     my $fee = GetReserveFee( undef, $borrowernumber, $itm->{'biblionumber'},
         'a', ( $itm->{'biblioitemnumber'} ) );
     $fee = sprintf "%.02f", $fee;
-- 
2.39.5