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