View | Details | Raw Unified | Return to bug 34621
Collapse All | Expand All

(-)a/misc/import_patrons.pl (-8 / +7 lines)
Lines 34-40 my $welcome_new = 0; Link Here
34
my %defaults;
34
my %defaults;
35
my $ext_preserve = 0;
35
my $ext_preserve = 0;
36
my $confirm;
36
my $confirm;
37
my $verbose      = 0;
37
my $verbose = 0;
38
my $help;
38
my $help;
39
my @preserve_fields;
39
my @preserve_fields;
40
my $update_dateexpiry;
40
my $update_dateexpiry;
Lines 58-66 GetOptions( Link Here
58
    'h|help|?'                       => \$help,
58
    'h|help|?'                       => \$help,
59
) or pod2usage(2);
59
) or pod2usage(2);
60
60
61
pod2usage(1) if $help;
61
pod2usage(1)                                       if $help;
62
pod2usage(q|--ee and --et are mutually exclusive|) if $update_dateexpiry_from_today && $update_dateexpiry_from_existing;
62
pod2usage(q|--ee and --et are mutually exclusive|) if $update_dateexpiry_from_today && $update_dateexpiry_from_existing;
63
pod2usage(q|--file is required|) unless $csv_file;
63
pod2usage(q|--file is required|)       unless $csv_file;
64
pod2usage(q|--matchpoint is required|) unless $matchpoint;
64
pod2usage(q|--matchpoint is required|) unless $matchpoint;
65
65
66
warn "Running in dry-run mode, provide --confirm to apply the changes\n" unless $confirm;
66
warn "Running in dry-run mode, provide --confirm to apply the changes\n" unless $confirm;
Lines 104-117 if ($verbose) { Link Here
104
    say q{};
104
    say q{};
105
}
105
}
106
106
107
if ($verbose > 1 ) {
107
if ( $verbose > 1 ) {
108
    say "Errors:";
108
    say "Errors:";
109
    say Data::Dumper::Dumper( $errors );
109
    say Data::Dumper::Dumper($errors);
110
}
110
}
111
111
112
if ($verbose > 2 ) {
112
if ( $verbose > 2 ) {
113
    say "Feedback:";
113
    say "Feedback:";
114
    say Data::Dumper::Dumper( $feedback );
114
    say Data::Dumper::Dumper($feedback);
115
}
115
}
116
116
117
=head1 NAME
117
=head1 NAME
118
- 

Return to bug 34621