gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 16122: Add maintenance script to update items.localuse from stats 

Signed-off-by: Emily Lamancusa <emily.lamancusa@montgomerycountymd.gov>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Andrew Fuerste-Henry <andrewfh@dubcolib.org>
Signed-off-by: Andrew Fuerste Henry <andrewfh@dubcolib.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Lucas Gass 2023-05-03 23:24:53 +00:00 committed by Katrin Fischer
parent 5e71338ae5
commit 95ff045c65
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 84 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
misc/maintenance/update_localuse_from_statistics.pl Executable file
View File

@ -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 <http://www.gnu.org/licenses>.
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