Attachment #170003 for bug #37211

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




use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);

return {
    bug_number  => "37211",
    description => "Add permission updatecharges:edit_notes",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        # Do you stuffs here
        $dbh->do(
            q{
            INSERT INTO permissions (module_bit, code, description)
            VALUES (10, 'edit_notes', 'Edit accountline notes')
        }
        );

        # permissions
        say $out "Added new permission 'updatecharges:edit_notes'";

    },
};

Lines 71-76 INSERT INTO permissions (module_bit, code, description) VALUES Link Here

(-)a/installer/data/mysql/mandatory/userpermissions.sql (+1 lines)
71	(10, 'manual_credit', 'Add manual credits to a patron account'),	71	(10, 'manual_credit', 'Add manual credits to a patron account'),
72	(10, 'manual_invoice', 'Add manual invoices to a patron account'),	72	(10, 'manual_invoice', 'Add manual invoices to a patron account'),
73	(10, 'remaining_permissions', 'Remaining permissions for managing fines and fees'),	73	(10, 'remaining_permissions', 'Remaining permissions for managing fines and fees'),
		74	(10, 'edit_notes', 'Edit accountline notes'),
74	(11, 'currencies_manage', 'Manage currencies and exchange rates'),	75	(11, 'currencies_manage', 'Manage currencies and exchange rates'),
75	(11, 'vendors_manage', 'Manage vendors'),	76	(11, 'vendors_manage', 'Manage vendors'),
76	(11, 'contracts_manage', 'Manage contracts'),	77	(11, 'contracts_manage', 'Manage contracts'),

Lines 442-447 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc (-1 / +5 lines)
442	Create purchase suggestions	442	Create purchase suggestions
443	</span>	443	</span>
444	<span class="permissioncode">([% name \| html %])</span>	444	<span class="permissioncode">([% name \| html %])</span>
		445	[%- CASE 'edit_notes' -%]
		446	<span class="sub_permission edit_notes_subpermission">
		447	Edit accountline notes
		448	</span>
		449	<span class="permissioncode">([% name \| html %])</span>
445	[%- CASE 'suggestions_manage' -%]	450	[%- CASE 'suggestions_manage' -%]
446	<span class="sub_permission suggestions_manage_subpermission">	451	<span class="sub_permission suggestions_manage_subpermission">
447	Edit purchase suggestions	452	Edit purchase suggestions
448	-

Return to bug 37211

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_37211.pl (+23 lines)
	1	use Modern::Perl;
	2	use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
	3
	4	return {
	5	bug_number => "37211",
	6	description => "Add permission updatecharges:edit_notes",
	7	up => sub {
	8	my ($args) = @_;
	9	my ( $dbh, $out ) = @$args{qw(dbh out)};
	10
	11	# Do you stuffs here
	12	$dbh->do(
	13	q{
	14	INSERT INTO permissions (module_bit, code, description)
	15	VALUES (10, 'edit_notes', 'Edit accountline notes')
	16	}
	17	);
	18
	19	# permissions
	20	say $out "Added new permission 'updatecharges:edit_notes'";
	21
	22	},
	23	};