@@ -, +, @@
---
.../data/mysql/atomicupdate/bug_15788.perl | 20 +++++++++++++++++++
.../data/mysql/mandatory/userpermissions.sql | 1 +
.../prog/en/includes/permissions.inc | 5 +++++
3 files changed, 26 insertions(+)
create mode 100644 installer/data/mysql/atomicupdate/bug_15788.perl
--- a/installer/data/mysql/atomicupdate/bug_15788.perl
+++ a/installer/data/mysql/atomicupdate/bug_15788.perl
@@ -0,0 +1,20 @@
+$DBversion = 'XXX'; # will be replaced by the RM
+if ( CheckVersion($DBversion) ) {
+
+ $dbh->do(
+ qq{
+ INSERT IGNORE permissions (module_bit, code, description)
+ VALUES
+ (4, 'delete_borrowers', 'Delete borrowers')
+ }
+ );
+
+ $dbh->do(
+ qq{
+ INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code)
+ SELECT borrowernumber, 4, 'delete_borrowers' FROM borrowers WHERE borrowernumber IN ( SELECT borrowernumber FROM user_permissions WHERE code = 'edit_borrowers')
+ }
+ );
+
+ NewVersion( $DBversion, 15788, "Split edit_borrowers permission" );
+}
--- a/installer/data/mysql/mandatory/userpermissions.sql
+++ a/installer/data/mysql/mandatory/userpermissions.sql
@@ -36,6 +36,7 @@ INSERT INTO permissions (module_bit, code, description) VALUES
( 3, 'manage_keyboard_shortcuts', 'Manage keyboard shortcuts for the advanced cataloging editor'),
( 3, 'manage_smtp_servers', 'Manage SMTP servers configuration'),
( 3, 'manage_background_jobs', 'Manage background jobs'),
+ ( 4, 'delete_borrowers', 'Delete patrons'),
( 4, 'edit_borrowers', 'Add, modify and view patron information'),
( 4, 'view_borrower_infos_from_any_libraries', 'View patron infos from any libraries'),
( 6, 'place_holds', 'Place holds for patrons'),
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc
+++ a/koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc
@@ -265,6 +265,11 @@
Manage background jobs
([% name | html %])
+ [%- CASE 'delete_borrowers' -%]
+
+ Delete patrons
+
+ ([% name | html %])
[%- CASE 'edit_borrowers' -%]
Add, modify and view patron information
--