Koha/misc/recreateIssueStatistics.pl
Jonathan Druart 632146366a
Bug 34478: op =~ ^cud- in pl/pm - Manual revert changes to recreateIssueStatistics.pl
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
2024-03-01 10:57:15 +01:00

173 lines
6.2 KiB
Perl
Executable file

#!/usr/bin/perl
# Copyright 2011 BibLibre
#
# 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 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.
#
# 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 Getopt::Long qw( GetOptions );
use Koha::Items;
my $dbh = C4::Context->dbh;
# Options
my $issues = 0;
my $returns = 0;
my $help = 0;
GetOptions ('issues' => \$issues, 'returns' => \$returns, 'help|?|h' => \$help);
# Show usage
if ($help == 1) {
print ("Usage : perl $0 [--issues] [--returns]\n\n");
print (" issues: process only issues\n");
print (" returns: process only returns\n");
exit 0;
}
if ($issues == 0 && $returns == 0) {
$issues = 1;
$returns = 1;
}
# Counters
my $count_issues = 0;
my $count_renewals = 0;
my $count_returns = 0;
# Issues and renewals can be found in both issues and old_issues tables
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_count, lastreneweddate from $table where itemnumber is not null";
my $sth = $dbh->prepare($query);
$sth->execute;
# Looking for missing issues
while (my $hashref = $sth->fetchrow_hashref) {
my $ctnquery = "SELECT count(*) as cnt FROM statistics WHERE borrowernumber = ? AND itemnumber = ? AND DATE(datetime) = ? AND type = 'issue'";
my $substh = $dbh->prepare($ctnquery);
$substh->execute($hashref->{'borrowernumber'}, $hashref->{'itemnumber'}, $hashref->{'issuedate'});
my $count = $substh->fetchrow_hashref->{'cnt'};
if ($count == 0) {
# Inserting missing issue
my $insert = "INSERT INTO statistics (datetime, branch, value, type, other, itemnumber, itemtype, borrowernumber)
VALUES(?, ?, ?, ?, ?, ?, ?, ?)";
$substh = $dbh->prepare($insert);
my $item = Koha::Items->find($hashref->{'itemnumber'});
my $itemtype = $item->effective_itemtype;
$substh->execute(
$hashref->{'issuedate'},
$hashref->{'branchcode'},
0,
'issue',
'',
$hashref->{'itemnumber'},
$itemtype,
$hashref->{'borrowernumber'}
);
print "date: $hashref->{'issuedate'} branchcode: $hashref->{'branchcode'} type: issue itemnumber: $hashref->{'itemnumber'} itype: $itemtype borrowernumber: $hashref->{'borrowernumber'}\n";
$count_issues++;
}
# Looking for missing renewals
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 ?
my $ctnquery = "SELECT count(*) as cnt FROM statistics WHERE borrowernumber = ? AND itemnumber = ? AND DATE(datetime) = ? AND type = 'renew'";
my $substh = $dbh->prepare($ctnquery);
$substh->execute($hashref->{'borrowernumber'}, $hashref->{'itemnumber'}, $hashref->{'lastreneweddate'});
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++) {
# Inserting missing renewals
my $insert = "INSERT INTO statistics (datetime, branch, value, type, other, itemnumber, itemtype, borrowernumber)
VALUES(?, ?, ?, ?, ?, ?, ?, ?)";
$substh = $dbh->prepare($insert);
my $item = Koha::Items->find($hashref->{'itemnumber'});
my $itemtype = $item->effective_itemtype;
$substh->execute(
$hashref->{'lastreneweddate'},
$hashref->{'branchcode'},
0,
'renew',
'',
$hashref->{'itemnumber'},
$itemtype,
$hashref->{'borrowernumber'}
);
print "date: $hashref->{'lastreneweddate'} branchcode: $hashref->{'branchcode'} type: renew itemnumber: $hashref->{'itemnumber'} itype: $itemtype borrowernumber: $hashref->{'borrowernumber'}\n";
$count_renewals++;
}
}
}
}
}
# Getting returns
if ($returns == 1) {
print "looking for missing returns from old_issues\n";
my $query = "SELECT * from old_issues where itemnumber is not null";
my $sth = $dbh->prepare($query);
$sth->execute;
# Looking for missing returns
while (my $hashref = $sth->fetchrow_hashref) {
my $ctnquery = "SELECT count(*) as cnt FROM statistics WHERE borrowernumber = ? AND itemnumber = ? AND DATE(datetime) = ? AND type = 'return'";
my $substh = $dbh->prepare($ctnquery);
$substh->execute($hashref->{'borrowernumber'}, $hashref->{'itemnumber'}, $hashref->{'returndate'});
my $count = $substh->fetchrow_hashref->{'cnt'};
if ($count == 0) {
# Inserting missing issue
my $insert = "INSERT INTO statistics (datetime, branch, value, type, other, itemnumber, itemtype, borrowernumber)
VALUES(?, ?, ?, ?, ?, ?, ?, ?)";
$substh = $dbh->prepare($insert);
my $item = Koha::Items->find($hashref->{'itemnumber'});
my $itemtype = $item->effective_itemtype;
$substh->execute(
$hashref->{'returndate'},
$hashref->{'branchcode'},
0,
'return',
'',
$hashref->{'itemnumber'},
$itemtype,
$hashref->{'borrowernumber'}
);
print "date: $hashref->{'returndate'} branchcode: $hashref->{'branchcode'} type: return itemnumber: $hashref->{'itemnumber'} itype: $itemtype borrowernumber: $hashref->{'borrowernumber'}\n";
$count_returns++;
}
}
}
print "Missing issues added: $count_issues\n" if $issues;
print "Missing renewals added: $count_renewals\n" if $issues;
print "Missing returns added: $count_returns\n" if $returns;