[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4/Circulation Circ2.pm [dev_week]
From: |
Kyle Hall |
Subject: |
[Koha-cvs] koha/C4/Circulation Circ2.pm [dev_week] |
Date: |
Fri, 23 Mar 2007 13:58:29 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Kyle Hall <kylemhall> 07/03/23 13:58:29
Modified files:
C4/Circulation : Circ2.pm
Log message:
Renewals from circulation.pl were writing 2 renewal lines to stats.
Commented out the UpdateStats for renewals in issuebook(). UpdateStats is
already executed in renewbook(). Also updated renewbook()'s UpdateStats call to
include the borrowernumber in the stats line.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.87.2.14.2.17&r2=1.87.2.14.2.18
Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.87.2.14.2.17
retrieving revision 1.87.2.14.2.18
diff -u -b -r1.87.2.14.2.17 -r1.87.2.14.2.18
--- Circ2.pm 16 Mar 2007 15:50:09 -0000 1.87.2.14.2.17
+++ Circ2.pm 23 Mar 2007 13:58:29 -0000 1.87.2.14.2.18
@@ -3,7 +3,7 @@
package C4::Circulation::Circ2;
-# $Id: Circ2.pm,v 1.87.2.14.2.17 2007/03/16 15:50:09 kylemhall Exp $
+# $Id: Circ2.pm,v 1.87.2.14.2.18 2007/03/23 13:58:29 kylemhall Exp $
#package to deal with Returns
#written 3/11/99 by address@hidden
@@ -862,7 +862,7 @@
createcharge($env, $dbh,
$iteminformation->{'itemnumber'}, $borrower->{'borrowernumber'}, $charge);
$iteminformation->{'charge'} = $charge;
}
-
&UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$borrower->{'borrowernumber'});
+
#&UpdateStats($env,$env->{'branchcode'},'renew',$charge,'',$iteminformation->{'itemnumber'},$iteminformation->{'itemtype'},$borrower->{'borrowernumber'});
renewbook($env, $borrower->{'borrowernumber'},
$iteminformation->{'itemnumber'});
} else {
#
@@ -1706,7 +1706,7 @@
=head2 renewbook
- &renewbook($env, $borrowernumber, $itemnumber, $datedue);
+ &renewbook($env, $borrowernumber, $itemnumber, $datedue, $branch);
Renews a loan.
@@ -1760,7 +1760,7 @@
$sth->finish;
# Log the renewal
- UpdateStats($env,$env->{'branchcode'},'renew','','',$itemno);
+ UpdateStats($env,$env->{'branchcode'},'renew','','',$itemno,'',$bornum);
# Charge a new rental fee, if applicable?
my ($charge,$type)=calc_charges($env, $itemno, $bornum);