X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FStats.pm;h=e1cbd4210ff41d2d9e86238ba6566a17ec35fbe2;hb=543e1dc6731d4a26b777223920bfe4037e7546dd;hp=77d5d1442b70a3c55a15bfe19c6ab03cb00aa50a;hpb=6cc8cb75f8f8d7042be7ffd4e45e5cd2549401ea;p=koha_fer diff --git a/C4/Stats.pm b/C4/Stats.pm index 77d5d1442b..e1cbd4210f 100644 --- a/C4/Stats.pm +++ b/C4/Stats.pm @@ -14,12 +14,12 @@ 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; # FIXME +use warnings; require Exporter; use C4::Context; use C4::Debug; @@ -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