@@ -, +, @@
---
.../bug_23681_add_debarment_types.perl | 16 ++++++++--------
...3681_add_manage_patron_restrictions_perm.perl | 9 +++++++++
.../data/mysql/mandatory/userpermissions.sql | 1 +
.../prog/en/includes/permissions.inc | 5 +++++
.../prog/en/modules/admin/admin-home.tt | 4 ++++
5 files changed, 27 insertions(+), 8 deletions(-)
create mode 100644 installer/data/mysql/atomicupdate/bug_23681_add_manage_patron_restrictions_perm.perl
--- a/installer/data/mysql/atomicupdate/bug_23681_add_debarment_types.perl
+++ a/installer/data/mysql/atomicupdate/bug_23681_add_debarment_types.perl
@@ -18,15 +18,15 @@ if ( CheckVersion( $DBversion ) ) {
('SUSPENSION', 'Suspension', 1, 0),
('DISCHARGE', 'Discharge', 1, 0);
|);
+ $dbh->do( q|
+ ALTER TABLE borrower_debarments
+ MODIFY COLUMN type varchar(50) NOT NULL
+ | );
+ $dbh->do( q|
+ ALTER TABLE borrower_debarments
+ ADD CONSTRAINT borrower_debarments_ibfk_2 FOREIGN KEY (type) REFERENCES debarment_types(code) ON DELETE NO ACTION ON UPDATE CASCADE;
+ | );
}
- $dbh->do( q|
- ALTER TABLE borrower_debarments
- MODIFY COLUMN type varchar(50) NOT NULL
- | );
- $dbh->do( q|
- ALTER TABLE borrower_debarments
- ADD CONSTRAINT borrower_debarments_ibfk_2 FOREIGN KEY (type) REFERENCES debarment_types(code) ON DELETE NO ACTION ON UPDATE CASCADE;
- | );
SetVersion( $DBversion );
print "Upgrade to $DBversion done (Bug 23681 - Add debarment_types)\n";
--- a/installer/data/mysql/atomicupdate/bug_23681_add_manage_patron_restrictions_perm.perl
+++ a/installer/data/mysql/atomicupdate/bug_23681_add_manage_patron_restrictions_perm.perl
@@ -0,0 +1,9 @@
+$DBversion = 'XXX';
+if( CheckVersion( $DBversion ) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO permissions (module_bit, code, description) VALUES
+ ( 3, 'manage_patron_restrictions', 'Manage patron restrictions')
+ });
+ SetVersion( $DBversion );
+ print "Upgrade to $DBversion done (Bug 23681 - Add manage_patron_restrictions_permission)\n";
+}
--- a/installer/data/mysql/mandatory/userpermissions.sql
+++ a/installer/data/mysql/mandatory/userpermissions.sql
@@ -19,6 +19,7 @@ INSERT INTO permissions (module_bit, code, description) VALUES
( 3, 'manage_item_circ_alerts', 'Manage item circulation alerts'),
( 3, 'manage_cash_registers', 'Add and remove cash registers'),
( 3, 'manage_cities', 'Manage cities and towns'),
+ ( 3, 'manage_patron_restrictions', 'Manage patron restrictions'),
( 3, 'manage_marc_frameworks', 'Manage MARC bibliographic and authority frameworks'),
( 3, 'manage_classifications', 'Manage classification sources'),
( 3, 'manage_matching_rules', 'Manage record matching rules'),
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc
+++ a/koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc
@@ -163,6 +163,11 @@
Manage patron categories
([% name | html %])
+ [%- CASE 'manage_patron_restrictions' -%]
+
+ Manage patron restrictions
+
+ ([% name | html %])
[%- CASE 'manage_patron_attributes' -%]
Manage extended patron attributes
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/admin-home.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/admin-home.tt
@@ -119,6 +119,10 @@
Cities and towns
Define cities and towns that your patrons live in
[% END %]
+ [% IF ( CAN_user_parameters_manage_patron_restrictions ) %]
+ Patron restrictions
+ Define patron restrictions.
+ [% END %]
[% END %]
--