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