|
Lines 17-23
return {
Link Here
|
| 17 |
|
17 |
|
| 18 |
say $out "Added new permission 'view_holds_history'"; |
18 |
say $out "Added new permission 'view_holds_history'"; |
| 19 |
|
19 |
|
| 20 |
my $IntranetHoldsHistory = C4::Context->preference('IntranetReadingHistoryHolds'); |
20 |
my ($IntranetHoldsHistory) = $dbh->selectrow_array( |
|
|
21 |
q| |
| 22 |
SELECT value FROM systempreferences WHERE variable='IntranetReadingHistoryHolds' |
| 23 |
| |
| 24 |
); |
| 25 |
|
| 21 |
if ($IntranetHoldsHistory) { |
26 |
if ($IntranetHoldsHistory) { |
| 22 |
|
27 |
|
| 23 |
my $insert_sth = $dbh->prepare( |
28 |
my $insert_sth = $dbh->prepare( |
| 24 |
- |
|
|