From 9617b7b85d67f65070f3ad1948b9d060d40f3bac Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 30 Aug 2012 10:33:38 +0200 Subject: [PATCH 1/1] Bug 8674: Followup: Add POD for misc/batchdeletebiblios.pl --- misc/batchdeletebiblios.pl | 84 +++++++++++++++++++++++++++++++------------- 1 file changed, 60 insertions(+), 24 deletions(-) diff --git a/misc/batchdeletebiblios.pl b/misc/batchdeletebiblios.pl index a6ac693..11fcaec 100755 --- a/misc/batchdeletebiblios.pl +++ b/misc/batchdeletebiblios.pl @@ -1,32 +1,18 @@ #!/usr/bin/perl -# Copyright 2012 BibLibre -# 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 2 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., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -=head1 batchdeletebiblios.pl - - This script batch deletes biblios which contain a biblionumber present in file passed in parameter. - If one biblio has items, it is not deleted. - -=cut - use Modern::Perl; +use Getopt::Long; +use Pod::Usage; +use IO::File; + use C4::Biblio; -use IO::File; +my ($help, $files); +GetOptions( + 'h|help' => \$help, +); + +pod2usage(1) if $help or not @ARGV; for my $file ( @ARGV ) { say "Find biblionumber in file $file"; @@ -51,3 +37,53 @@ for my $file ( @ARGV ) { } } +exit(0); + +__END__ + +=head1 NAME + +batchdeletebiblios.pl + +=head1 SYNOPSIS + +./batchdeletebiblio.pl file1 [file2 ... filen] + +This script batch deletes biblios which contain a biblionumber present in file passed in parameter. +If one biblio has items, it is not deleted. + +=head1 OPTIONS + +=over 8 + +=item B<-h|--help> + +prints this help message + +=back + +=head1 AUTHOR + +Jonathan Druart + +=head1 COPYRIGHT + +Copyright 2012 BibLibre + +=head1 LICENSE + +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 2 of the License, or (at your option) any later version. + +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. + +=head1 DISCLAIMER OF WARRANTY + +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. + +=cut -- 1.7.10.4