Lines 14-24
return {
Link Here
|
14 |
|
14 |
|
15 |
say $out "Added new system preference 'OPACAllowUserToChangeBranch'"; |
15 |
say $out "Added new system preference 'OPACAllowUserToChangeBranch'"; |
16 |
|
16 |
|
|
|
17 |
my ($value) = $dbh->selectrow_array(q{ |
18 |
SELECT CASE WHEN value=1 THEN 'intransit' ELSE '' END |
19 |
FROM systempreferences |
20 |
WHERE variable='OPACInTransitHoldPickupLocationChange' |
21 |
}); |
22 |
|
17 |
$dbh->do(q{ |
23 |
$dbh->do(q{ |
18 |
UPDATE systempreferences |
24 |
UPDATE systempreferences |
19 |
SET value=(SELECT CASE WHEN value=1 THEN 'intransit' ELSE '' END FROM systempreferences WHERE variable='OPACInTransitHoldPickupLocationChange') |
25 |
SET value=(?) |
20 |
WHERE variable='OPACAllowUserToChangeBranch' |
26 |
WHERE variable='OPACAllowUserToChangeBranch' |
21 |
}); |
27 |
}, undef, $value); |
22 |
|
28 |
|
23 |
$dbh->do(q{ |
29 |
$dbh->do(q{ |
24 |
DELETE FROM systempreferences |
30 |
DELETE FROM systempreferences |
25 |
- |
|
|