Koha/misc/maintenance/remove_items_from_biblioitems.pl
Mark Tompsett d5986c9b97 Bug 19040: Refactor GetMarcBiblio parameters
Change parameters to a hashref.

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Looks good to me.
Two calls in migration_tools/22_to_30 still in old style.

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
2017-08-25 10:23:42 -03:00

80 lines
2.3 KiB
Perl
Executable file

#!/usr/bin/perl
# Copyright 2010 BibLibre
# Copyright 2011 Equinox Software, Inc.
#
# 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;
$|=1;
use C4::Context;
use C4::Biblio;
use Getopt::Long;
my ($wherestring, $run, $silent, $want_help);
my $result = GetOptions(
'where:s' => \$wherestring,
'--run' => \$run,
'--silent' => \$silent,
'help|h' => \$want_help,
);
if ( not $result or not $run or $want_help ) {
print_usage();
exit 0;
}
my $dbh = C4::Context->dbh;
my $count = 0;
my $querysth = qq{SELECT biblionumber from biblioitems };
$querysth .= " WHERE $wherestring " if ($wherestring);
my $query = $dbh->prepare($querysth);
$query->execute;
while (my $biblionumber = $query->fetchrow){
$count++;
print "." unless $silent;
print "\r$count" unless ($silent or ($count % 100));
my $record = GetMarcBiblio({ biblionumber => $biblionumber });
if ($record) {
ModBiblio($record, $biblionumber, GetFrameworkCode($biblionumber)) ;
}
else {
print "error in $biblionumber : can't parse biblio";
}
}
print "\n\n$count records processed.\n" unless $silent;
sub print_usage {
print <<_USAGE_;
$0: removes items from selected biblios
This utility is meant to be run as part of the upgrade to
Koha 3.4. It removes the 9XX fields in the bib records that
store a (now) duplicate copy of the item record information. After
running this utility, a full reindexing of the bibliographic records
should be run using rebuild_zebra.pl -b -r.
Parameters:
-where use this to limit modifications to selected biblios
--run perform the update
--silent run silently
--help or -h show this message
_USAGE_
}