[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.83,1.84

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12901/C4/Circulation

Modified Files:
	Circ2.pm 
Log Message:
removing useless warn & renaming a sub that can probably be removed

Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -C2 -r1.83 -r1.84
*** Circ2.pm	15 Sep 2004 16:27:18 -0000	1.83
--- Circ2.pm	8 Nov 2004 19:49:45 -0000	1.84
***************
*** 801,805 ****
  sub issuebook {
  	my ($env,$borrower,$barcode,$date) = @_;
- 	warn "D : $date";
  	my $dbh = C4::Context->dbh;
  #	my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 0);
--- 801,804 ----
***************
*** 1044,1048 ****
  	#	my $tobrcd = ReserveWaiting($resrec->{'itemnumber'}, $resrec->{'borrowernumber'});
  		$resrec->{'ResFound'} = $resfound;
! 	 	$messages->{'ResFound'} = $resrec;
  	}
  	# update stats?
--- 1043,1047 ----
  	#	my $tobrcd = ReserveWaiting($resrec->{'itemnumber'}, $resrec->{'borrowernumber'});
  		$resrec->{'ResFound'} = $resfound;
! 		$messages->{'ResFound'} = $resrec;
  	}
  	# update stats?
***************
*** 1309,1313 ****
  
  # FIXME - Not exported, but used in 'updateitem.pl' anyway.
! sub checkreserve {
  # Stolen from Main.pm
  # Check for reserves for biblio
--- 1308,1312 ----
  
  # FIXME - Not exported, but used in 'updateitem.pl' anyway.
! sub checkreserve_to_delete {
  # Stolen from Main.pm
  # Check for reserves for biblio