From fe9f24bb4a8b0a95963f878fbb65993ba57b9639 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 22 Sep 2015 09:44:31 +0100 Subject: [PATCH] [SIGNED-OFF] Script to generate the permissions include file perl build_permissions_file.pl > koha-tmpl/intranet-tmpl/prog/en/includes/permissions.inc http://bugs.koha-community.org/show_bug.cgi?id=13632 Signed-off-by: Kyle M Hall http://bugs.koha-community.org/show_bug.cgi?id=13622 --- build_permissions_file.pl | 22 ++++++++++++++++++++++ 1 files changed, 22 insertions(+), 0 deletions(-) create mode 100755 build_permissions_file.pl diff --git a/build_permissions_file.pl b/build_permissions_file.pl new file mode 100755 index 0000000..480c7e8 --- /dev/null +++ b/build_permissions_file.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use Modern::Perl; +use C4::Context; +my $dbh = C4::Context->dbh; + +my $flags = $dbh->selectall_arrayref(q|SELECT * FROM userflags|, { Slice => {} }); +my $permissions = $dbh->selectall_arrayref(q|SELECT * FROM permissions|, { Slice => {} }); + +my $content = qq|[%- BLOCK main_permissions -%]\n [% SWITCH name %]\n|; +for my $f ( @$flags ) { + $content .= q| [%- CASE '| . $f->{flag} . q|' -%]| . $f->{flagdesc} . qq|\n|; +} +$content .= qq| [%- END -%]\n[%- END -%]\n\n|; + +$content .= qq|[%- BLOCK sub_permissions -%]\n [% SWITCH name %]\n|; +for my $p ( @$permissions ) { + $content .= qq| [%- CASE '| . $p->{code} . q|' -%]| . $p->{description} . qq|\n|; +} +$content .= qq| [%- END -%]\n[%- END -%]|; + +say $content; -- 1.7.2.5