|
Lines 12-25
return {
Link Here
|
| 12 |
WHERE variable='ExpireReservesMaxPickUpDelayCharge'; |
12 |
WHERE variable='ExpireReservesMaxPickUpDelayCharge'; |
| 13 |
}); |
13 |
}); |
| 14 |
|
14 |
|
| 15 |
$expire_reserves_charge //= 0; |
15 |
$expire_reserves_charge ||= 0; |
| 16 |
|
16 |
|
| 17 |
$dbh->do(qq{ |
17 |
my $sth = $dbh->prepare("SELECT branchcode, categorycode, itemtype FROM circulation_rules |
| 18 |
INSERT INTO circulation_rules |
18 |
GROUP BY branchcode, categorycode, itemtype"); |
| 19 |
( categorycode, branchcode, itemtype, rule_name, rule_value ) |
19 |
$sth->execute(); |
| 20 |
VALUES |
20 |
|
| 21 |
( NULL, NULL, NULL, 'expire_reserves_charge', $expire_reserves_charge ); |
21 |
while ( my $r = $sth->fetchrow_hashref ) { |
| 22 |
}); |
22 |
my ($expire_reserves_charge_value) = $dbh->do(" |
|
|
23 |
DELETE FROM circulation_rules |
| 24 |
WHERE |
| 25 |
categorycode ".(defined $r->{categorycode} ? "= '$r->{categorycode}'" : 'IS NULL')." |
| 26 |
AND branchcode ".(defined $r->{branchcode} ? "= '$r->{branchcode}'" : 'IS NULL')." |
| 27 |
AND itemtype ".(defined $r->{itemtype} ? "= '$r->{itemtype}'" : 'IS NULL')." |
| 28 |
AND rule_name = 'expire_reserves_charge' |
| 29 |
AND (rule_value IS NULL OR rule_value = '') |
| 30 |
"); |
| 31 |
|
| 32 |
my ($expire_reserves_charge_value_exists) = $dbh->selectrow_array(" |
| 33 |
SELECT COUNT(1) FROM circulation_rules |
| 34 |
WHERE |
| 35 |
categorycode ".(defined $r->{categorycode} ? "= '$r->{categorycode}'" : 'IS NULL')." |
| 36 |
AND branchcode ".(defined $r->{branchcode} ? "= '$r->{branchcode}'" : 'IS NULL')." |
| 37 |
AND itemtype ".(defined $r->{itemtype} ? "= '$r->{itemtype}'" : 'IS NULL')." |
| 38 |
AND rule_name = 'expire_reserves_charge' |
| 39 |
"); |
| 40 |
|
| 41 |
if( ! $expire_reserves_charge_value_exists ) { |
| 42 |
$dbh->do(qq{ |
| 43 |
INSERT INTO circulation_rules |
| 44 |
( categorycode, branchcode, itemtype, rule_name, rule_value ) |
| 45 |
VALUES |
| 46 |
( } |
| 47 |
.(defined $r->{categorycode} ? "'$r->{categorycode}'" : 'NULL') |
| 48 |
."," |
| 49 |
.(defined $r->{branchcode} ? "'$r->{branchcode}'" : 'NULL') |
| 50 |
."," |
| 51 |
.(defined $r->{itemtype} ? "'$r->{itemtype}'" : 'NULL') |
| 52 |
.qq{, 'expire_reserves_charge', $expire_reserves_charge ); |
| 53 |
}); |
| 54 |
} |
| 55 |
} |
| 23 |
|
56 |
|
| 24 |
say $out "ExpireReservesMaxPickUpDelayCharge migrated to the expire_reserves_charge circulation rule"; |
57 |
say $out "ExpireReservesMaxPickUpDelayCharge migrated to the expire_reserves_charge circulation rule"; |
| 25 |
}, |
58 |
}, |