[Koha-patches] [PATCH] Bugfix 4118 - Add Collection Code to Statistics Table - Updated C4 Modules to add Collection Codes to stats table
Kyle M Hall
kyle.m.hall at gmail.com
Fri Feb 5 17:24:00 CET 2010
---
C4/Circulation.pm | 8 ++++----
C4/Stats.pm | 8 ++++----
2 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 98f324c..22e07bf 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -685,7 +685,7 @@ sub CanBookBeIssued {
#
if ( $borrower->{'category_type'} eq 'X' && ( $item->{barcode} )) {
# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1 .
- &UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'});
+ &UpdateStats(C4::Context->userenv->{'branch'},'localuse','','',$item->{'itemnumber'},$item->{'itemtype'},$borrower->{'borrowernumber'}, undef, $item->{'ccode'});
return( { STATS => 1 }, {});
}
if ( $borrower->{flags}->{GNA} ) {
@@ -1036,7 +1036,7 @@ sub AddIssue {
C4::Context->userenv->{'branch'},
'issue', $charge,
($sipmode ? "SIP-$sipmode" : ''), $item->{'itemnumber'},
- $item->{'itype'}, $borrower->{'borrowernumber'}
+ $item->{'itype'}, $borrower->{'borrowernumber'}, undef, $item->{'ccode'}
);
# Send a checkout slip.
@@ -1541,7 +1541,7 @@ sub AddReturn {
$branch, 'return', '0', '',
$item->{'itemnumber'},
$biblio->{'itemtype'},
- $borrowernumber
+ $borrowernumber, undef, $item->{'ccode'}
);
# Send a check-in slip. # NOTE: borrower may be undef. probably shouldn't try to send messages then.
@@ -2194,7 +2194,7 @@ sub AddRenewal {
$sth->finish;
}
# Log the renewal
- UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber);
+ UpdateStats( $branch, 'renew', $charge, '', $itemnumber, $item->{itype}, $borrowernumber, undef, $item->{'ccode'});
return $datedue;
}
diff --git a/C4/Stats.pm b/C4/Stats.pm
index b4875aa..c80750c 100644
--- a/C4/Stats.pm
+++ b/C4/Stats.pm
@@ -76,20 +76,20 @@ sub UpdateStats {
my (
$branch, $type,
$amount, $other, $itemnum,
- $itemtype, $borrowernumber, $accountno
+ $itemtype, $borrowernumber, $accountno, $ccode
)
= @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare(
"INSERT INTO statistics
(datetime, branch, type, value,
- other, itemnumber, itemtype, borrowernumber, proccode)
- VALUES (now(),?,?,?,?,?,?,?,?)"
+ other, itemnumber, itemtype, borrowernumber, proccode, ccode)
+ VALUES (now(),?,?,?,?,?,?,?,?,?)"
);
$sth->execute(
$branch, $type, $amount,
$other, $itemnum, $itemtype, $borrowernumber,
- $accountno
+ $accountno, $ccode
);
}
--
1.5.6.5
More information about the Koha-patches
mailing list