3 #-----------------------------------
4 # Copyright 2013 ByWater Solutions
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 3 of the License, or (at your option) any later
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License along
18 # with Koha; if not, write to the Free Software Foundation, Inc.,
19 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20 #-----------------------------------
24 binmode( STDOUT, ":encoding(UTF-8)" );
28 # find Koha's Perl modules
29 # test carefully before changing this
31 eval { require "$FindBin::Bin/../kohalib.pl" };
39 use Koha::Biblio::Metadatas;
48 'i|di|delete-items' => \$delete_items,
49 'c|confirm' => \$confirm,
51 'v|verbose' => \$verbose,
55 if ( $help || !$confirm ) {
57 delete_records_via_leader.pl - Attempt to delete any MARC records where the leader character 5 equals 'd'
58 usage: delete_records_via_leader.pl --confirm --verbose [--test]
59 This script has the following parameters :
60 -h --help: Prints this message
61 -c --confirm: Script will do nothing without this parameter
62 -v --verbose: Be verbose
63 -t --test: Test mode, does not delete records.
64 Test mode cannot determine if a record/item will be deleted successfully,
65 it will only tell you what records and items the script will attempt to delete.
66 -i --delete-items: Try deleting items before deleting record.
67 Records with items cannot be deleted.
72 my @metadatas = # Should be replaced by a call to C4::Search on zebra index
73 # Record-status when bug 15537 will be pushed
74 Koha::Biblio::Metadatas->search( { format => 'marcxml', marcflavour => C4::Context->preference('marcflavour'), metadata => { LIKE => '%<leader>_____d%' } } );
76 my $total_records_count = @metadatas;
77 my $deleted_records_count = 0;
78 my $total_items_count = 0;
79 my $deleted_items_count = 0;
81 foreach my $m (@metadatas) {
82 my $biblionumber = $m->get_column('biblionumber');
84 say "RECORD: $biblionumber" if $verbose;
87 my $deleted_count = 0;
88 my $biblioitem = Koha::Biblioitem->find( $biblionumber );
89 foreach my $item ( $biblioitem->items() ) {
90 my $itemnumber = $item->itemnumber();
92 my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
93 $error = undef if $error eq '1';
96 say "ERROR DELETING ITEM $itemnumber: $error";
99 say "DELETED ITEM $itemnumber" if $verbose;
100 $deleted_items_count++;
103 $total_items_count++;
108 my $error = $test ? q{Test mode enabled} : DelBiblio($biblionumber);
110 say "ERROR DELETING BIBLIO $biblionumber: $error";
112 say "DELETED BIBLIO $biblionumber" if $verbose;
113 $deleted_records_count++;
120 say "DELETED $deleted_records_count OF $total_records_count RECORDS";
121 say "DELETED $deleted_items_count OF $total_items_count ITEMS" if $delete_items;