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 |
- |
|
|