From b0c41767ffddb59cb16a68ca00a19bed16b04f09 Mon Sep 17 00:00:00 2001 From: Lucas Gass Date: Wed, 3 May 2023 23:24:53 +0000 Subject: [PATCH] Bug 16122: Add maintenance script to update items.localuse from stats Signed-off-by: Emily Lamancusa Signed-off-by: Katrin Fischer --- .../update_localuse_from_statistics.pl | 84 +++++++++++++++++++ 1 file changed, 84 insertions(+) create mode 100755 misc/maintenance/update_localuse_from_statistics.pl diff --git a/misc/maintenance/update_localuse_from_statistics.pl b/misc/maintenance/update_localuse_from_statistics.pl new file mode 100755 index 0000000000..5da3b79e3c --- /dev/null +++ b/misc/maintenance/update_localuse_from_statistics.pl @@ -0,0 +1,84 @@ +#!/usr/bin/perl +# +# Copyright (C) 2023 ByWater Solutions +# +# 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 . + +use strict; +use warnings; + +use Koha::Script; +use C4::Context; +use Koha::Items; +use Koha::Statistics; +use Getopt::Long qw( GetOptions ); +use Pod::Usage qw( pod2usage ); + + +sub usage { + pod2usage( -verbose => 2 ); + exit; +} + +sub update_localuse { + + my $dbh = C4::Context->dbh; + + my $items = Koha::Items->search(); + + # Loop through each item and update it with statistics info + while( my $item = $items->next ){ + my $itemnumber = $item->itemnumber; + + my $localuse_count = Koha::Statistics->search( { itemnumber => $itemnumber, type => 'localuse' } )->count; + $item->localuse( $localuse_count ); + $item->store; + + print "Updated item $itemnumber with localuse statistics info.\n"; + } +} + +my ( $help ); +my $result = GetOptions( + 'help|h' => \$help, +); + +usage() if $help; + +update_localuse(); + +=head1 NAME + +update_local_use_from_statistics.pl + +=head1 SYNOPSIS + + update_localuse_from_statistics.pl + update_localuse_from_statistics.pl --help + +=head1 DESCRIPTION + +This script updates the items.localuse column with data from the statistics table to make sure the two tables are congruent. + +=over 8 + +=item B<--help> + +Prints this help + +=back + +=cut -- 2.30.2