X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FStats.pm;h=e1cbd4210ff41d2d9e86238ba6566a17ec35fbe2;hb=47de926463c7f50cde887dfa36895a125a09b7c8;hp=11710f82a775d184c4de45f74d433cd76dbbff9d;hpb=f46abf8b909257a54c9e2c1fdd999ba30c7ac0ae;p=koha_fer

diff --git a/C4/Stats.pm b/C4/Stats.pm
index 11710f82a7..e1cbd4210f 100644
--- a/C4/Stats.pm
+++ b/C4/Stats.pm
@@ -29,7 +29,7 @@ our $debug;
 
 BEGIN {
 	# set the version for version checking
-	$VERSION = 3.01;
+    $VERSION = 3.07.00.049;
 	@ISA    = qw(Exporter);
 	@EXPORT = qw(
 		&UpdateStats
@@ -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
     );
 }