Tomas Cohen Arazi
fd30cac85a
This patch makes the code using Koha::Biblio::Metadata->marcflavour use ->schema instead for all interactions. To test: - Update the DB structure: $ updatedatabase - Update the schema files: $ dbic - Notice all the places in which biblio_metadata is used $ cd kohaclone $ git grep biblio_metadata => SUCCESS: They all use `schema` instead of marcflavour - Notice all the places that use Koha::Biblio::Metadata: $ git grep Koha::Biblio::Metadata => SUCCESS: They all use the schema attribute when they used to use marcflavour - Run all the modified tests and scripts => SUCCESS: We are all good - Sign off :-D Note: while this seems like a minor change, the places in which plain SQL is used really require understanding the queries and how they are used, because some query results might be passed to some other method that in turn uses the marcflavour attribute. I of course took that into account but errare humanum est :-D Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
131 lines
4 KiB
Perl
Executable file
131 lines
4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#-----------------------------------
|
|
# Copyright 2013 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, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
#-----------------------------------
|
|
|
|
use Modern::Perl;
|
|
|
|
binmode( STDOUT, ":encoding(UTF-8)" );
|
|
|
|
BEGIN {
|
|
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
use C4::Biblio;
|
|
use C4::Items;
|
|
use Koha::Database;
|
|
use Koha::Biblios;
|
|
use Koha::Biblio::Metadatas;
|
|
|
|
my $delete_items;
|
|
my $confirm;
|
|
my $test;
|
|
my $verbose;
|
|
my $help;
|
|
|
|
GetOptions(
|
|
'i|di|delete-items' => \$delete_items,
|
|
'c|confirm' => \$confirm,
|
|
't|test' => \$test,
|
|
'v|verbose' => \$verbose,
|
|
'h|help' => \$help,
|
|
);
|
|
|
|
pod2usage(q|--test and --confirm cannot be specified together|) if $test and $confirm;
|
|
|
|
unless ( $confirm or $test ) {
|
|
warn "Running in test mode as --confirm is not passed\n";
|
|
$test = 1;
|
|
}
|
|
|
|
if ( $help ) {
|
|
say qq{
|
|
delete_records_via_leader.pl - Attempt to delete any MARC records where the leader character 5 equals 'd'
|
|
usage: delete_records_via_leader.pl --confirm --verbose [--test]
|
|
This script has the following parameters :
|
|
-h --help: Prints this message
|
|
-c --confirm: Script will do nothing without this parameter
|
|
-v --verbose: Be verbose
|
|
-t --test: Test mode, does not delete records.
|
|
Test mode cannot determine if a record/item will be deleted successfully,
|
|
it will only tell you what records and items the script will attempt to delete.
|
|
-i --delete-items: Try deleting items before deleting record.
|
|
Records with items cannot be deleted.
|
|
};
|
|
exit();
|
|
}
|
|
|
|
my @metadatas = # Should be replaced by a call to C4::Search on zebra index
|
|
# Record-status when bug 15537 will be pushed
|
|
Koha::Biblio::Metadatas->search( { format => 'marcxml', schema => C4::Context->preference('marcflavour'), metadata => { LIKE => '%<leader>_____d%' } } );
|
|
|
|
my $total_records_count = @metadatas;
|
|
my $deleted_records_count = 0;
|
|
my $total_items_count = 0;
|
|
my $deleted_items_count = 0;
|
|
|
|
foreach my $m (@metadatas) {
|
|
my $biblionumber = $m->get_column('biblionumber');
|
|
|
|
say "RECORD: $biblionumber" if $verbose;
|
|
|
|
if ($delete_items) {
|
|
my $deleted_count = 0;
|
|
my $biblio = Koha::Biblios->find( $biblionumber );
|
|
my @items = $biblio ? $biblio->items : ();
|
|
foreach my $item ( @items ) {
|
|
my $itemnumber = $item->itemnumber();
|
|
|
|
my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
|
|
$error = undef if $error eq '1';
|
|
|
|
if ($error) {
|
|
say "ERROR DELETING ITEM $itemnumber: $error";
|
|
}
|
|
else {
|
|
say "DELETED ITEM $itemnumber" if $verbose;
|
|
$deleted_items_count++;
|
|
}
|
|
|
|
$total_items_count++;
|
|
}
|
|
|
|
}
|
|
|
|
my $error = $test ? q{Test mode enabled} : DelBiblio($biblionumber);
|
|
if ( $error ) {
|
|
say "ERROR DELETING BIBLIO $biblionumber: $error";
|
|
} else {
|
|
say "DELETED BIBLIO $biblionumber" if $verbose;
|
|
$deleted_records_count++;
|
|
}
|
|
|
|
say q{};
|
|
}
|
|
|
|
if ( $verbose ) {
|
|
say "DELETED $deleted_records_count OF $total_records_count RECORDS";
|
|
say "DELETED $deleted_items_count OF $total_items_count ITEMS" if $delete_items;
|
|
}
|