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

(-)a/misc/cronjobs/delete_records_via_leader.pl (-2 / +8 lines)
Lines 53-59 GetOptions( Link Here
53
    'h|help'            => \$help,
53
    'h|help'            => \$help,
54
);
54
);
55
55
56
if ( $help || !$confirm ) {
56
pod2usage(q|--test and --confirm cannot be specified together|) if $test and $confirm;
57
58
unless ( $confirm or $test ) {
59
    warn "Running in test mode as --confirm is not passed\n";
60
    $test = 1;
61
}
62
63
if ( $help ) {
57
    say qq{
64
    say qq{
58
delete_records_via_leader.pl - Attempt to delete any MARC records where the leader character 5 equals 'd'
65
delete_records_via_leader.pl - Attempt to delete any MARC records where the leader character 5 equals 'd'
59
usage: delete_records_via_leader.pl --confirm --verbose [--test]
66
usage: delete_records_via_leader.pl --confirm --verbose [--test]
60
- 

Return to bug 19712