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