Bug 32208: Extend Auth.t

[koha-ffzg.git] / misc / recreateIssueStatistics.pl

diff --git a/misc/recreateIssueStatistics.pl b/misc/recreateIssueStatistics.pl
index 6ba83e1..8032019 100755 (executable)
--- a/misc/recreateIssueStatistics.pl
+++ b/misc/recreateIssueStatistics.pl
@@ -4,28 +4,28 @@
 #
 # This file is part of Koha.
 #
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
 #
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY 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.,
-# 51 Franklin Street, Suite 500, Boston, MA 02110-1335, USA
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 
 # Re-create statistics from issues and old_issues tables
 
 use strict;
 use warnings;
+
+use Koha::Script;
 use C4::Context;
-use C4::Items;
-use Data::Dumper;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
 use Koha::Items;
 
 my $dbh = C4::Context->dbh;
@@ -60,7 +60,7 @@ if ($issues == 1) {
     foreach my $table ('issues', 'old_issues') {
        # Getting issues
        print "looking for missing issues from $table\n";
-       my $query = "SELECT borrowernumber, branchcode, itemnumber, issuedate, renewals, lastreneweddate from $table where itemnumber is not null";
+    my $query = "SELECT borrowernumber, branchcode, itemnumber, issuedate, renewals_count, lastreneweddate from $table where itemnumber is not null";
        my $sth = $dbh->prepare($query);
        $sth->execute;
        # Looking for missing issues
@@ -92,7 +92,7 @@ if ($issues == 1) {
                }
 
                # Looking for missing renewals
-               if ($hashref->{'renewals'} && $hashref->{'renewals'} > 0 ) {
+        if ($hashref->{'renewals_count'} && $hashref->{'renewals_count'} > 0 ) {
                    # This is the not-so accurate part :
                    # We assume that there are missing renewals, based on the last renewal date
                    # Maybe should this be deactivated by default ?
@@ -100,7 +100,7 @@ if ($issues == 1) {
                    my $substh = $dbh->prepare($ctnquery);
                    $substh->execute($hashref->{'borrowernumber'}, $hashref->{'itemnumber'}, $hashref->{'lastreneweddate'});
 
-                   my $missingrenewalscount = $hashref->{'renewals'} - $substh->fetchrow_hashref->{'cnt'};
+            my $missingrenewalscount = $hashref->{'renewals_count'} - $substh->fetchrow_hashref->{'cnt'};
                    print "We assume $missingrenewalscount renewals are missing. Creating them\n" if ($missingrenewalscount > 0);
                    for (my $i = 0; $i < $missingrenewalscount; $i++) {