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

(-)a/misc/import_patrons.pl (-8 / +7 lines)
Lines 35-41 my $welcome_new = 0; Link Here
35
my %defaults;
35
my %defaults;
36
my $ext_preserve = 0;
36
my $ext_preserve = 0;
37
my $confirm;
37
my $confirm;
38
my $verbose      = 0;
38
my $verbose = 0;
39
my $help;
39
my $help;
40
my @preserve_fields;
40
my @preserve_fields;
41
my $update_dateexpiry;
41
my $update_dateexpiry;
Lines 61-69 GetOptions( Link Here
61
    'h|help|?'                       => \$help,
61
    'h|help|?'                       => \$help,
62
) or pod2usage(2);
62
) or pod2usage(2);
63
63
64
pod2usage(1) if $help;
64
pod2usage(1)                                       if $help;
65
pod2usage(q|--ee and --et are mutually exclusive|) if $update_dateexpiry_from_today && $update_dateexpiry_from_existing;
65
pod2usage(q|--ee and --et are mutually exclusive|) if $update_dateexpiry_from_today && $update_dateexpiry_from_existing;
66
pod2usage(q|--file is required|) unless $csv_file;
66
pod2usage(q|--file is required|)       unless $csv_file;
67
pod2usage(q|--matchpoint is required|) unless $matchpoint;
67
pod2usage(q|--matchpoint is required|) unless $matchpoint;
68
68
69
if ($confirm) {
69
if ($confirm) {
Lines 111-124 if ($verbose) { Link Here
111
    say q{};
111
    say q{};
112
}
112
}
113
113
114
if ($verbose > 1 ) {
114
if ( $verbose > 1 ) {
115
    say "Errors:";
115
    say "Errors:";
116
    say Data::Dumper::Dumper( $errors );
116
    say Data::Dumper::Dumper($errors);
117
}
117
}
118
118
119
if ($verbose > 2 ) {
119
if ( $verbose > 2 ) {
120
    say "Feedback:";
120
    say "Feedback:";
121
    say Data::Dumper::Dumper( $feedback );
121
    say Data::Dumper::Dumper($feedback);
122
}
122
}
123
123
124
my $info =
124
my $info =
125
- 

Return to bug 34621