Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 34621: Tidy import_patrons.pl

Browse source 
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>
(cherry picked from commit aabe54000a)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Kyle Hall 2024-03-18 07:04:23 -04:00 committed by Lucas Gass
parent 4e66af5a9f
commit 1d124d492b
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 %defaults;
my $ext_preserve = 0; my $ext_preserve = 0;
my $confirm; my $confirm;
my $verbose = 0; my $verbose = 0;
my $help; my $help;
my @preserve_fields; my @preserve_fields;
my $update_dateexpiry; my $update_dateexpiry;
@ -58,9 +58,9 @@ GetOptions(
'h|help|?' => \$help, 'h|help|?' => \$help,
) or pod2usage(2); ) 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|--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; pod2usage(q|--matchpoint is required|) unless $matchpoint;
warn "Running in dry-run mode, provide --confirm to apply the changes\n" unless $confirm; warn "Running in dry-run mode, provide --confirm to apply the changes\n" unless $confirm;
@ -104,14 +104,14 @@ if ($verbose) {
say q{}; say q{};
} }
if ($verbose > 1 ) { if ( $verbose > 1 ) {
say "Errors:"; say "Errors:";
say Data::Dumper::Dumper( $errors ); say Data::Dumper::Dumper($errors);
} }
if ($verbose > 2 ) { if ( $verbose > 2 ) {
say "Feedback:"; say "Feedback:";
say Data::Dumper::Dumper( $feedback ); say Data::Dumper::Dumper($feedback);
} }
=head1 NAME =head1 NAME