From 8986960a12a0fc94a6a42815b72d8f80582be58c Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 8 Nov 2004 19:49:45 +0000
Subject: [PATCH] removing useless warn & renaming a sub that can probably be
 removed

---
 C4/Circulation/Circ2.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 7a1fb13114..c023076c6b 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -800,7 +800,6 @@ C<$date> contains the max date of return. calculated if empty.
 #
 sub issuebook {
 	my ($env,$borrower,$barcode,$date) = @_;
-	warn "D : $date";
 	my $dbh = C4::Context->dbh;
 #	my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 0);
 	my $iteminformation = getiteminformation($env, 0, $barcode);
@@ -1043,7 +1042,7 @@ sub returnbook {
 	if ($resfound) {
 	#	my $tobrcd = ReserveWaiting($resrec->{'itemnumber'}, $resrec->{'borrowernumber'});
 		$resrec->{'ResFound'} = $resfound;
-	 	$messages->{'ResFound'} = $resrec;
+		$messages->{'ResFound'} = $resrec;
 	}
 	# update stats?
 	# Record the fact that this book was returned.
@@ -1308,7 +1307,7 @@ sub currentborrower {
 }
 
 # FIXME - Not exported, but used in 'updateitem.pl' anyway.
-sub checkreserve {
+sub checkreserve_to_delete {
 # Stolen from Main.pm
 # Check for reserves for biblio
 	my ($env,$dbh,$itemnum)=@_;
-- 
2.39.5