|
Lines 164-173
sub print_notices {
Link Here
|
| 164 |
} |
164 |
} |
| 165 |
|
165 |
|
| 166 |
while ( my ( $branchcode, $branch_messages ) = each %$messages_by_branch ) { |
166 |
while ( my ( $branchcode, $branch_messages ) = each %$messages_by_branch ) { |
|
|
167 |
my $letter_code = @letter_codes == 1 ? $letter_codes[0] : 'hold'; |
| 167 |
my $filename = $split |
168 |
my $filename = $split |
| 168 |
? 'holdnotices-' . $today->output('iso') . "-$branchcode.$format" |
169 |
? "notices_$letter_code-" . $today->output('iso') . "-$branchcode.$format" |
| 169 |
: 'holdnotices-' . $today->output('iso') . ".$format"; |
170 |
: "notices_$letter_code-" . $today->output('iso') . ".$format"; |
| 170 |
|
|
|
| 171 |
my $filepath = File::Spec->catdir( $output_directory, $filename ); |
171 |
my $filepath = File::Spec->catdir( $output_directory, $filename ); |
| 172 |
if ( $format eq 'html' ) { |
172 |
if ( $format eq 'html' ) { |
| 173 |
generate_html({ |
173 |
generate_html({ |
| 174 |
- |
|
|