|
Lines 1-4
Link Here
|
| 1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
|
|
2 |
use Koha::Installer::Output qw(say_warning say_failure say_success say_info); |
| 2 |
|
3 |
|
| 3 |
return { |
4 |
return { |
| 4 |
bug_number => "36453", |
5 |
bug_number => "36453", |
|
Lines 7-12
return {
Link Here
|
| 7 |
my ($args) = @_; |
8 |
my ($args) = @_; |
| 8 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
9 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
| 9 |
|
10 |
|
|
|
11 |
# Update system preference setting to multiple instead of YesNo |
| 12 |
$dbh->do("UPDATE systempreferences SET type='multiple' WHERE variable='BlockExpiredPatronOpacActions'"); |
| 13 |
say_success( $out, "BlockExpiredPatronOpacActions system preference type updated to multiple." ); |
| 14 |
|
| 10 |
my ($BlockExpiredPatronOpacActions) = $dbh->selectrow_array( |
15 |
my ($BlockExpiredPatronOpacActions) = $dbh->selectrow_array( |
| 11 |
q{ |
16 |
q{ |
| 12 |
SELECT value FROM systempreferences WHERE variable = 'BlockExpiredPatronOpacActions'; |
17 |
SELECT value FROM systempreferences WHERE variable = 'BlockExpiredPatronOpacActions'; |
|
Lines 19-59
return {
Link Here
|
| 19 |
$dbh->do( |
24 |
$dbh->do( |
| 20 |
"UPDATE systempreferences SET value='hold,renew' WHERE variable='BlockExpiredPatronOpacActions' and value=1" |
25 |
"UPDATE systempreferences SET value='hold,renew' WHERE variable='BlockExpiredPatronOpacActions' and value=1" |
| 21 |
); |
26 |
); |
| 22 |
say $out "BlockExpiredPatronOpacActions system preference value updated to 'hold,renew'."; |
27 |
say_info( $out, "BlockExpiredPatronOpacActions system preference value updated to 'hold,renew'." ); |
| 23 |
} elsif ( $BlockExpiredPatronOpacActions eq 0 ) { |
28 |
} elsif ( $BlockExpiredPatronOpacActions eq 0 ) { |
| 24 |
|
29 |
|
| 25 |
# Update system preference settings if 0 |
30 |
# Update system preference settings if 0 |
| 26 |
$dbh->do( |
31 |
$dbh->do( |
| 27 |
"UPDATE systempreferences SET value='' WHERE variable='BlockExpiredPatronOpacActions' and value=0"); |
32 |
"UPDATE systempreferences SET value='' WHERE variable='BlockExpiredPatronOpacActions' and value=0"); |
| 28 |
say $out "BlockExpiredPatronOpacActions system preference value updated to empty string."; |
33 |
say_info( $out, "BlockExpiredPatronOpacActions system preference value updated to an empty string." ); |
| 29 |
} |
34 |
} |
| 30 |
|
35 |
|
| 31 |
# Update system preference setting to multiple instead of YesNo |
|
|
| 32 |
$dbh->do("UPDATE systempreferences SET type='multiple' WHERE variable='BlockExpiredPatronOpacActions'"); |
| 33 |
say $out "BlockExpiredPatronOpacActions system preference value updated to multiple."; |
| 34 |
|
| 35 |
# Update categories database table BlockExpiredPatronOpacActions column settings |
36 |
# Update categories database table BlockExpiredPatronOpacActions column settings |
| 36 |
$dbh->do( |
37 |
$dbh->do( |
| 37 |
"ALTER TABLE categories MODIFY BlockExpiredPatronOpacActions mediumtext NOT NULL DEFAULT 'follow_syspref_BlockExpiredPatronOpacActions' COMMENT 'specific actions expired patrons of this category are blocked from performing or if the BlockExpiredPatronOpacActions system preference is to be followed'" |
38 |
"ALTER TABLE categories MODIFY BlockExpiredPatronOpacActions mediumtext NOT NULL DEFAULT 'follow_syspref_BlockExpiredPatronOpacActions' COMMENT 'specific actions expired patrons of this category are blocked from performing or if the BlockExpiredPatronOpacActions system preference is to be followed'" |
| 38 |
); |
39 |
); |
| 39 |
say $out "categories column BlockExpiredPatronOpacActions updated."; |
40 |
say_success( $out, "Updated categories.BlockExpiredPatronOpacActions" ); |
| 40 |
|
41 |
|
| 41 |
# Update patron categories using -1 |
42 |
# Update patron categories using -1 |
| 42 |
$dbh->do( |
43 |
$dbh->do( |
| 43 |
"UPDATE categories SET BlockExpiredPatronOpacActions = 'follow_syspref_BlockExpiredPatronOpacActions' WHERE BlockExpiredPatronOpacActions = '-1'" |
44 |
"UPDATE categories SET BlockExpiredPatronOpacActions = 'follow_syspref_BlockExpiredPatronOpacActions' WHERE BlockExpiredPatronOpacActions = '-1'" |
| 44 |
); |
45 |
) >= 1 |
| 45 |
say $out |
46 |
and say_info( |
| 46 |
"Patron categories BlockExpiredPatronOpacActions = -1 have been updated to follow the syspref BlockExpiredPatronOpacActions."; |
47 |
$out, |
|
|
48 |
"Patron categories BlockExpiredPatronOpacActions = -1 have been updated to follow the syspref BlockExpiredPatronOpacActions." |
| 49 |
); |
| 47 |
|
50 |
|
| 48 |
# Update patron categories using 0 |
51 |
# Update patron categories using 0 |
| 49 |
$dbh->do("UPDATE categories SET BlockExpiredPatronOpacActions = '' WHERE BlockExpiredPatronOpacActions = '0'"); |
52 |
$dbh->do("UPDATE categories SET BlockExpiredPatronOpacActions = '' WHERE BlockExpiredPatronOpacActions = '0'") |
| 50 |
say $out "Patron categories BlockExpiredPatronOpacActions = 0 have been updated to an empty string ('')."; |
53 |
>= 1 |
|
|
54 |
and say_info( |
| 55 |
$out, |
| 56 |
"Patron categories BlockExpiredPatronOpacActions = 0 have been updated to an empty string ('')." |
| 57 |
); |
| 51 |
|
58 |
|
| 52 |
# Update patron categories using 1 |
59 |
# Update patron categories using 1 |
| 53 |
$dbh->do( |
60 |
$dbh->do( |
| 54 |
"UPDATE categories SET BlockExpiredPatronOpacActions = 'hold,renew' WHERE BlockExpiredPatronOpacActions = '1' " |
61 |
"UPDATE categories SET BlockExpiredPatronOpacActions = 'hold,renew' WHERE BlockExpiredPatronOpacActions = '1' " |
| 55 |
); |
62 |
) >= 1 |
| 56 |
say $out "Patron categories BlockExpiredPatronOpacActions = 1 have been updated to hold,renew'."; |
63 |
and |
| 57 |
|
64 |
say_info( $out, "Patron categories BlockExpiredPatronOpacActions = 1 have been updated to hold,renew'." ); |
| 58 |
}, |
65 |
}, |
| 59 |
}; |
66 |
}; |
| 60 |
- |
|
|