|
Lines 78-83
ENDUSAGE
Link Here
|
| 78 |
|
78 |
|
| 79 |
die $usage if $help; |
79 |
die $usage if $help; |
| 80 |
|
80 |
|
|
|
81 |
if ( @letter_code && @exclude_letter_code ) { |
| 82 |
die "The options --code and --exclude-code are mutually exclusive.\nUse one or the other.\n" . $usage; |
| 83 |
} |
| 84 |
|
| 81 |
my $script_handler = Koha::Script->new( { script => $0 } ); |
85 |
my $script_handler = Koha::Script->new( { script => $0 } ); |
| 82 |
|
86 |
|
| 83 |
try { |
87 |
try { |
|
Lines 91-97
try {
Link Here
|
| 91 |
}; |
95 |
}; |
| 92 |
|
96 |
|
| 93 |
# Remove empty elements, see bug 37075 |
97 |
# Remove empty elements, see bug 37075 |
| 94 |
@letter_code = grep { $_ ne q{} } @letter_code; |
98 |
@letter_code = grep { $_ ne q{} } @letter_code; |
| 95 |
@exclude_letter_code = grep { $_ ne q{} } @exclude_letter_code; |
99 |
@exclude_letter_code = grep { $_ ne q{} } @exclude_letter_code; |
| 96 |
|
100 |
|
| 97 |
C4::Letters::SendQueuedMessages( |
101 |
C4::Letters::SendQueuedMessages( |
| 98 |
- |
|
|