Attachment #149915 for bug #33478

View | Details | Raw Unified | Return to bug 33478
Collapse All | Expand All




use Modern::Perl;

return {
    bug_number => "33478",
    description => "Customise the format of notices when they are printed",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};

        $dbh->do(q{ INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (13, 'format_notices', 'Format how generated notices are laid out when printed') });

        say $out "Added user permission format_notices";
    },
};

Lines 90-95 INSERT INTO permissions (module_bit, code, description) VALUES Link Here

(-)a/installer/data/mysql/mandatory/userpermissions.sql (+1 lines)
90	(13, 'moderate_comments', 'Moderate patron comments'),	90	(13, 'moderate_comments', 'Moderate patron comments'),
91	(13, 'edit_notices', 'Define notices'),	91	(13, 'edit_notices', 'Define notices'),
92	(13, 'edit_notice_status_triggers', 'Set notice/status triggers for overdue items'),	92	(13, 'edit_notice_status_triggers', 'Set notice/status triggers for overdue items'),
		93	(13, 'format_notices', 'Format how generated notices are laid out when printed'),
93	(13, 'edit_quotes', 'Edit quotes for quote-of-the-day feature'),	94	(13, 'edit_quotes', 'Edit quotes for quote-of-the-day feature'),
94	(13, 'view_system_logs', 'Browse the system logs'),	95	(13, 'view_system_logs', 'Browse the system logs'),
95	(13, 'inventory', 'Perform inventory (stocktaking) of your catalog'),	96	(13, 'inventory', 'Perform inventory (stocktaking) of your catalog'),

Lines 514-519 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc (+5 lines)
514	Define notices	514	Define notices
515	</span>	515	</span>
516	<span class="permissioncode">([% name \| html %])</span>	516	<span class="permissioncode">([% name \| html %])</span>
		517	[%- CASE 'format_notices' -%]
		518	<span class="sub_permission format_notices_subpermission">
		519	Format how generated notices are laid out when printed
		520	</span>
		521	<span class="permissioncode">([% name \| html %])</span>
517	[%- CASE 'edit_patrons' -%]	522	[%- CASE 'edit_patrons' -%]
518	<span class="sub_permission edit_patrons_subpermission">	523	<span class="sub_permission edit_patrons_subpermission">
519	Perform batch modification of patrons	524	Perform batch modification of patrons

Lines 245-250 subtest 'superlibrarian tests' => sub { Link Here

(-)a/t/Koha/Auth/Permissions.t (-1 / +1 lines)
245	'CAN_user_tools_edit_calendar' => 1,	245	'CAN_user_tools_edit_calendar' => 1,
246	'CAN_user_tools_edit_notice_status_triggers' => 1,	246	'CAN_user_tools_edit_notice_status_triggers' => 1,
247	'CAN_user_tools_edit_notices' => 1,	247	'CAN_user_tools_edit_notices' => 1,
		248	'CAN_user_tools_format_notices' => 1,
248	'CAN_user_tools_edit_patrons' => 1,	249	'CAN_user_tools_edit_patrons' => 1,
249	'CAN_user_tools_edit_quotes' => 1,	250	'CAN_user_tools_edit_quotes' => 1,
250	'CAN_user_tools_export_catalog' => 1,	251	'CAN_user_tools_export_catalog' => 1,
251	-

Return to bug 33478

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_33478_-_add_format_notices_permission.pl (+14 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "33478",
	5	description => "Customise the format of notices when they are printed",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9
	10	$dbh->do(q{ INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (13, 'format_notices', 'Format how generated notices are laid out when printed') });
	11
	12	say $out "Added user permission format_notices";
	13	},
	14	};