X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FStats.pm;h=e1cbd4210ff41d2d9e86238ba6566a17ec35fbe2;hb=1db56c834b297eb7fd968691f66ef3517771cba5;hp=b4875aa780cc4a2a420e3ccf625d596c399ec24d;hpb=a244ff667199445ef5e81d5c8f976b34f5ac17b9;p=koha_fer diff --git a/C4/Stats.pm b/C4/Stats.pm index b4875aa780..e1cbd4210f 100644 --- a/C4/Stats.pm +++ b/C4/Stats.pm @@ -14,9 +14,9 @@ package C4::Stats; # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; use warnings; @@ -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 ); } @@ -125,7 +125,7 @@ __END__ =head1 AUTHOR -Koha Developement team +Koha Development Team =cut