Lines 201-209
if ($op eq 'save') {
Link Here
|
201 |
} |
201 |
} |
202 |
my $branchloop = GetBranchesLoop($branch); |
202 |
my $branchloop = GetBranchesLoop($branch); |
203 |
|
203 |
|
204 |
my $letters = GetLetters("circulation"); |
204 |
my $letters = GetLetters({ module => "circulation" }); |
205 |
|
|
|
206 |
my $countletters = keys %{$letters}; |
207 |
|
205 |
|
208 |
my @line_loop; |
206 |
my @line_loop; |
209 |
|
207 |
|
Lines 222-246
for my $data (@categories) {
Link Here
|
222 |
); |
220 |
); |
223 |
$row{delay}=$temphash{$data->{'categorycode'}}->{"delay$i"}; |
221 |
$row{delay}=$temphash{$data->{'categorycode'}}->{"delay$i"}; |
224 |
$row{debarred}=$temphash{$data->{'categorycode'}}->{"debarred$i"}; |
222 |
$row{debarred}=$temphash{$data->{'categorycode'}}->{"debarred$i"}; |
225 |
if ($countletters){ |
223 |
$row{selected_lettercode} = $temphash{ $data->{categorycode} }->{"letter$i"}; |
226 |
my @letterloop; |
|
|
227 |
foreach my $thisletter (sort { $letters->{$a} cmp $letters->{$b} } keys %$letters) { |
228 |
my $selected; |
229 |
if ( $temphash{$data->{categorycode}}->{"letter$i"} && |
230 |
$thisletter eq $temphash{$data->{'categorycode'}}->{"letter$i"}) { |
231 |
$selected = 1; |
232 |
} |
233 |
my %letterrow =(value => $thisletter, |
234 |
selected => $selected, |
235 |
lettername => $letters->{$thisletter}, |
236 |
); |
237 |
push @letterloop, \%letterrow; |
238 |
} |
239 |
$row{letterloop}=\@letterloop; |
240 |
} else { |
241 |
$row{noletter}=1; |
242 |
$row{letter}=$temphash{$data->{'categorycode'}}->{"letter$i"}; |
243 |
} |
244 |
my @selected_mtts = @{ GetOverdueMessageTransportTypes( $branch, $data->{'categorycode'}, $i) }; |
224 |
my @selected_mtts = @{ GetOverdueMessageTransportTypes( $branch, $data->{'categorycode'}, $i) }; |
245 |
my @mtts; |
225 |
my @mtts; |
246 |
for my $mtt ( @$message_transport_types ) { |
226 |
for my $mtt ( @$message_transport_types ) { |
Lines 268-291
for my $data (@categories) {
Link Here
|
268 |
overduename => $data->{'categorycode'}, |
248 |
overduename => $data->{'categorycode'}, |
269 |
line => $data->{'description'} |
249 |
line => $data->{'description'} |
270 |
); |
250 |
); |
271 |
if ($countletters){ |
251 |
|
272 |
my @letterloop; |
252 |
$row{selected_lettercode} = $dat->{"letter$i"}; |
273 |
foreach my $thisletter (sort { $letters->{$a} cmp $letters->{$b} } keys %$letters) { |
253 |
|
274 |
my $selected; |
|
|
275 |
if ($dat->{"letter$i"} && $thisletter eq $dat->{"letter$i"}) { |
276 |
$selected = 1; |
277 |
} |
278 |
my %letterrow =(value => $thisletter, |
279 |
selected => $selected, |
280 |
lettername => $letters->{$thisletter}, |
281 |
); |
282 |
push @letterloop, \%letterrow; |
283 |
} |
284 |
$row{letterloop}=\@letterloop; |
285 |
} else { |
286 |
$row{noletter}=1; |
287 |
if ($dat->{"letter$i"}){$row{letter}=$dat->{"letter$i"};} |
288 |
} |
289 |
if ($dat->{"delay$i"}){$row{delay}=$dat->{"delay$i"};} |
254 |
if ($dat->{"delay$i"}){$row{delay}=$dat->{"delay$i"};} |
290 |
if ($dat->{"debarred$i"}){$row{debarred}=$dat->{"debarred$i"};} |
255 |
if ($dat->{"debarred$i"}){$row{debarred}=$dat->{"debarred$i"};} |
291 |
my @selected_mtts = @{ GetOverdueMessageTransportTypes( $branch, $data->{'categorycode'}, $i) }; |
256 |
my @selected_mtts = @{ GetOverdueMessageTransportTypes( $branch, $data->{'categorycode'}, $i) }; |
Lines 333-337
$template->param(
Link Here
|
333 |
branch => $branch, |
298 |
branch => $branch, |
334 |
tabs => \@tabs, |
299 |
tabs => \@tabs, |
335 |
message_transport_types => $message_transport_types, |
300 |
message_transport_types => $message_transport_types, |
|
|
301 |
letters => $letters, |
336 |
); |
302 |
); |
337 |
output_html_with_http_headers $input, $cookie, $template->output; |
303 |
output_html_with_http_headers $input, $cookie, $template->output; |
338 |
- |
|
|