gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 34621: Tidy import_patrons.pl 

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit c6641ef24f)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Kyle M Hall 2024-03-18 07:04:23 -04:00 committed by Fridolin Somers
parent f065c42a7a
commit aabe54000a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
misc/import_patrons.pl
View File

@ -34,7 +34,7 @@ my $welcome_new = 0;
my %defaults;
my $ext_preserve = 0;
my $confirm;
my $verbose = 0;
my $verbose = 0;
my $help;
my @preserve_fields;
my $update_dateexpiry;
@ -58,9 +58,9 @@ GetOptions(
'h|help|?' => \$help,
) or pod2usage(2);
pod2usage(1) if $help;
pod2usage(1) if $help;
pod2usage(q|--ee and --et are mutually exclusive|) if $update_dateexpiry_from_today && $update_dateexpiry_from_existing;
pod2usage(q|--file is required|) unless $csv_file;
pod2usage(q|--file is required|) unless $csv_file;
pod2usage(q|--matchpoint is required|) unless $matchpoint;
warn "Running in dry-run mode, provide --confirm to apply the changes\n" unless $confirm;
@ -104,14 +104,14 @@ if ($verbose) {
say q{};
}
if ($verbose > 1 ) {
if ( $verbose > 1 ) {
say "Errors:";
say Data::Dumper::Dumper( $errors );
say Data::Dumper::Dumper($errors);
}
if ($verbose > 2 ) {
if ( $verbose > 2 ) {
say "Feedback:";
say Data::Dumper::Dumper( $feedback );
say Data::Dumper::Dumper($feedback);
}
=head1 NAME