|
Line 0
Link Here
|
| 0 |
- |
1 |
#!/usr/bin/perl |
|
|
2 |
|
| 3 |
use Modern::Perl; |
| 4 |
use C4::Context; |
| 5 |
my $dbh = C4::Context->dbh; |
| 6 |
|
| 7 |
my $flags = $dbh->selectall_arrayref(q|SELECT * FROM userflags|, { Slice => {} }); |
| 8 |
my $permissions = $dbh->selectall_arrayref(q|SELECT * FROM permissions|, { Slice => {} }); |
| 9 |
|
| 10 |
my $content = qq|[%- BLOCK main_permissions -%]\n [% SWITCH name %]\n|; |
| 11 |
for my $f ( @$flags ) { |
| 12 |
$content .= q| [%- CASE '| . $f->{flag} . q|' -%]<span>| . $f->{flagdesc} . qq|</span>\n|; |
| 13 |
} |
| 14 |
$content .= qq| [%- END -%]\n[%- END -%]\n\n|; |
| 15 |
|
| 16 |
$content .= qq|[%- BLOCK sub_permissions -%]\n [% SWITCH name %]\n|; |
| 17 |
for my $p ( @$permissions ) { |
| 18 |
$content .= qq| [%- CASE '| . $p->{code} . q|' -%]<span>| . $p->{description} . qq|</span>\n|; |
| 19 |
} |
| 20 |
$content .= qq| [%- END -%]\n[%- END -%]|; |
| 21 |
|
| 22 |
say $content; |