[Koha-cvs] koha/C4 Stats.pm

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  06/06/01 01:42:19

Modified files:
        C4             : Stats.pm 

Log message:
        Stores an associated borrowernumber now with issue data, if the system 
pref is set.
        Otherwise there is no difference

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Stats.pm.diff?tr1=1.22&tr2=1.23&r1=text&r2=text

Patches:
Index: koha/C4/Stats.pm
diff -u koha/C4/Stats.pm:1.22 koha/C4/Stats.pm:1.23
--- koha/C4/Stats.pm:1.22       Thu Aug 25 23:15:34 2005
+++ koha/C4/Stats.pm    Thu Jun  1 01:42:19 2006
@@ -1,6 +1,6 @@
 package C4::Stats;
 
-# $Id: Stats.pm,v 1.22 2005/08/25 23:15:34 rangi Exp $
+# $Id: Stats.pm,v 1.23 2006/06/01 01:42:19 rangi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -26,7 +26,8 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = 0.01;
+$VERSION = $VERSION = do { my @v = '$Revision: 1.23 $' =~ /\d+/g;
+    shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };;
 
 =head1 NAME
 
@@ -78,11 +79,12 @@
                 $branch=$env->{'branchcode'};
         }
         my $user = $env->{'usercode'};
+        my $organisation = $env->{'organisation'};
         print $borrowernumber;
         # FIXME - Use $dbh->do() instead
         my $sth=$dbh->prepare("Insert into statistics 
(datetime,branch,type,usercode,value,
-                                        
other,itemnumber,itemtype,borrowernumber,proccode) values 
(now(),?,?,?,?,?,?,?,?,?)");
-        
$sth->execute($branch,$type,$user,$amount,$other,$itemnum,$itemtype,$borrowernumber,$accountno);
+                                        
other,itemnumber,itemtype,borrowernumber,proccode,associatedborrower) values 
(now(),?,?,?,?,?,?,?,?,?,?)");
+        
$sth->execute($branch,$type,$user,$amount,$other,$itemnum,$itemtype,$borrowernumber,$accountno,$organisation);
         $sth->finish;
 }