[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.83,1.84
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.83,1.84 |
Date: |
Mon, 08 Nov 2004 11:49:48 -0800 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.83,1.84,
Paul POULAIN <=