15 pod2usage(1) if $help or not @ARGV;
17 for my $file ( @ARGV ) {
18 say "Find biblionumber in file $file";
19 open(FD, $file) or say "Error: '$file' $!" and next;
22 my $biblionumber = $_;
23 $biblionumber =~ s/$1/\n/g if $biblionumber =~ m/(\r\n?|\n\r?)/;
25 my $dbh = C4::Context->dbh;
26 next if not $biblionumber =~ /^\d*$/;
27 print "Delete biblionumber $biblionumber ";
30 $error = DelBiblio $biblionumber;
33 say "KO $@ ($! | $error)";
50 ./batchdeletebiblio.pl file1 [file2 ... filen]
52 This script batch deletes biblios which contain a biblionumber present in file passed in parameter.
53 If one biblio has items, it is not deleted.
61 prints this help message
67 Jonathan Druart <jonathan.druart@biblibre.com>
71 Copyright 2012 BibLibre
75 This file is part of Koha.
77 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
78 Foundation; either version 2 of the License, or (at your option) any later version.
80 You should have received a copy of the GNU General Public License along
81 with Koha; if not, write to the Free Software Foundation, Inc.,
82 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
84 =head1 DISCLAIMER OF WARRANTY
86 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
87 A PARTICULAR PURPOSE. See the GNU General Public License for more details.