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