|
Lines 268-276
return {
Link Here
|
| 268 |
foreach my $i ( 1 .. 3 ) { |
268 |
foreach my $i ( 1 .. 3 ) { |
| 269 |
my $most_frequent_delay = $most_frequent_delay{$branchcode}{$i}; |
269 |
my $most_frequent_delay = $most_frequent_delay{$branchcode}{$i}; |
| 270 |
say $out "Inserting " |
270 |
say $out "Inserting " |
| 271 |
. ( $branchcode_value // '' ) |
271 |
. ( $branchcode_value // '' ) . ":all:" |
| 272 |
. ":undef:" |
272 |
. ( $itemtype // '' ) |
| 273 |
. ( $itemtype // '' ) |
|
|
| 274 |
. " default most frequent delay for overdue_$i: " |
273 |
. " default most frequent delay for overdue_$i: " |
| 275 |
. $most_frequent_delay; |
274 |
. $most_frequent_delay; |
| 276 |
$insert->execute( |
275 |
$insert->execute( |
|
Lines 284-290
return {
Link Here
|
| 284 |
my $most_frequent_notice = $most_frequent_notice{$branchcode}{$i}; |
283 |
my $most_frequent_notice = $most_frequent_notice{$branchcode}{$i}; |
| 285 |
say $out "Inserting " |
284 |
say $out "Inserting " |
| 286 |
. ( $branchcode_value // '' ) |
285 |
. ( $branchcode_value // '' ) |
| 287 |
. ":undef:undef default most frequent notice for overdue_$i: " |
286 |
. ":all:all default most frequent notice for overdue_$i: " |
| 288 |
. $most_frequent_notice; |
287 |
. $most_frequent_notice; |
| 289 |
$insert->execute( |
288 |
$insert->execute( |
| 290 |
$branchcode_value, |
289 |
$branchcode_value, |
|
Lines 297-303
return {
Link Here
|
| 297 |
my $most_frequent_mtt = $most_frequent_mtt{$branchcode}{$i}; |
296 |
my $most_frequent_mtt = $most_frequent_mtt{$branchcode}{$i}; |
| 298 |
say $out "Inserting " |
297 |
say $out "Inserting " |
| 299 |
. ( $branchcode_value // '' ) |
298 |
. ( $branchcode_value // '' ) |
| 300 |
. ":undef:undef default most frequent mtt for overdue_$i: " |
299 |
. ":all:all default most frequent mtt for overdue_$i: " |
| 301 |
. $most_frequent_mtt; |
300 |
. $most_frequent_mtt; |
| 302 |
$insert->execute( |
301 |
$insert->execute( |
| 303 |
$branchcode_value, |
302 |
$branchcode_value, |
|
Lines 310-316
return {
Link Here
|
| 310 |
my $most_frequent_restrict = $most_frequent_restrict{$branchcode}{$i}; |
309 |
my $most_frequent_restrict = $most_frequent_restrict{$branchcode}{$i}; |
| 311 |
say $out "Inserting " |
310 |
say $out "Inserting " |
| 312 |
. ( $branchcode_value // '' ) |
311 |
. ( $branchcode_value // '' ) |
| 313 |
. ":undef:undef default most frequent restrict for overdue_$i: " |
312 |
. ":all:all default most frequent restrict for overdue_$i: " |
| 314 |
. $most_frequent_restrict; |
313 |
. $most_frequent_restrict; |
| 315 |
$insert->execute( |
314 |
$insert->execute( |
| 316 |
$branchcode_value, |
315 |
$branchcode_value, |
|
Lines 321-329
return {
Link Here
|
| 321 |
); |
320 |
); |
| 322 |
|
321 |
|
| 323 |
# Insert the has_rules rule for group $i's default context |
322 |
# Insert the has_rules rule for group $i's default context |
| 324 |
say $out "Inserting " |
323 |
say $out "Inserting " . ( $branchcode_value // '' ) . ":all:all default has_rules for overdue_$i: 1"; |
| 325 |
. ( $branchcode_value // '' ) |
|
|
| 326 |
. ":undef:undef default has_rules for overdue_$i: 1"; |
| 327 |
$insert->execute( |
324 |
$insert->execute( |
| 328 |
$branchcode_value, |
325 |
$branchcode_value, |
| 329 |
undef, |
326 |
undef, |
| 330 |
- |
|
|