|
Lines 134-143
sub print_notices {
Link Here
|
| 134 |
} |
134 |
} |
| 135 |
|
135 |
|
| 136 |
while ( my ( $branchcode, $branch_messages ) = each %$messages_by_branch ) { |
136 |
while ( my ( $branchcode, $branch_messages ) = each %$messages_by_branch ) { |
|
|
137 |
my $letter_code = @letter_codes == 1 ? $letter_codes[0] : 'hold'; |
| 137 |
my $filename = $split |
138 |
my $filename = $split |
| 138 |
? 'holdnotices-' . $today->output('iso') . "-$branchcode.$format" |
139 |
? "notices_$letter_code-" . $today->output('iso') . "-$branchcode.$format" |
| 139 |
: 'holdnotices-' . $today->output('iso') . ".$format"; |
140 |
: "notices_$letter_code-" . $today->output('iso') . ".$format"; |
| 140 |
|
|
|
| 141 |
my $filepath = File::Spec->catdir( $output_directory, $filename ); |
141 |
my $filepath = File::Spec->catdir( $output_directory, $filename ); |
| 142 |
if ( $format eq 'html' ) { |
142 |
if ( $format eq 'html' ) { |
| 143 |
generate_html({ |
143 |
generate_html({ |
| 144 |
- |
|
|