|
Lines 141-150
sub print_notices {
Link Here
|
| 141 |
} |
141 |
} |
| 142 |
|
142 |
|
| 143 |
while ( my ( $branchcode, $branch_messages ) = each %$messages_by_branch ) { |
143 |
while ( my ( $branchcode, $branch_messages ) = each %$messages_by_branch ) { |
| 144 |
my $letter_code = @letter_codes == 1 ? $letter_codes[0] : 'hold'; |
144 |
my $letter_codes = @letter_codes == 0 ? 'all' : join '_', @letter_codes; |
| 145 |
my $filename = $split |
145 |
my $filename = $split |
| 146 |
? "notices_$letter_code-" . $today->output('iso') . "-$branchcode.$format" |
146 |
? "notices_$letter_codes-" . $today->output('iso') . "-$branchcode.$format" |
| 147 |
: "notices_$letter_code-" . $today->output('iso') . ".$format"; |
147 |
: "notices_$letter_codes-" . $today->output('iso') . ".$format"; |
| 148 |
my $filepath = File::Spec->catdir( $output_directory, $filename ); |
148 |
my $filepath = File::Spec->catdir( $output_directory, $filename ); |
| 149 |
if ( $format eq 'html' ) { |
149 |
if ( $format eq 'html' ) { |
| 150 |
generate_html({ |
150 |
generate_html({ |
| 151 |
- |
|
|