Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

removing useless warn & renaming a sub that can probably be removed

Browse source
This commit is contained in:
tipaul 2004-11-08 19:49:45 +00:00
parent 46c8d4267a
commit 8986960a12
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
C4/Circulation/Circ2.pm
View file

@ -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)=@_;