<& /RG/Elements/PermHeader &> <& /RG/Elements/ToggleSave, no_parent => 1 &>

<&|/l&>Permission Group
| <&|/l&>Permission Group
% foreach my $group ('Everbody') { % my $is_chosen = ($Group eq $group); % my $color = $is_chosen ? '#ffffcc' : '#ffffff'; % my $overcolor = $is_chosen ? '#ffffcc' : '#cbeded';
| <% $group %>
% } % for (1..20) {
% }
|  |  | <&|/l&>Page(s)
% if ($Group) { <&|/l&>Group Membership | <&|/l&>Action Permissions
<&|/l&>Other Users: |  | <&|/l&>Current Members:
<&|/l&>Print | <&|/l&>Save | <&|/l&>New
<&|/l&>Delete | <&|/l&>Copy | <&|/l&>Import
<&|/l&>Export |
<&|/l&>Component Permissions
<&|/l&>P | <&|/l&>IMG | <&|/l&>GRAPH
<&|/l&>TABLE | <&|/l&>SUBREPORT
<&|/l&>Data Field Settings
<&|/l&>Category:
<&|/l&>Table Name | <&|/l&>Field Permissions
% foreach my $table (@tables) { % my $is_chosen = ($Table eq $table); % my $color = $is_chosen ? '#ffffcc' : '#ffffff'; % my $overcolor = $is_chosen ? '#ffffcc' : '#cbeded';
<% $CF->{tables}{$table}{description} %>
% } % if ($Table) { |
<&|/l&>Other Fields |  | <&|/l&>Accessible Fields
% } else { | <&|/l&>Please select a table on the left side to modify. % }
% } else { | <&|/l&>Please select a group on the left side to modify. % }

<%INIT> require DBI; our $Conf; my $dbh = DBI->connect($Conf->get_db_src($session{db})); my $CF = $Conf->{DB}{$session{db}}; my @categories = sort @{$dbh->selectcol_arrayref( "select distinct FUNCTION_NAME from hrms_tables" ) || []}; my @tables = sort map lc, @{$dbh->selectcol_arrayref( "select TABLE_NAME from hrms_tables where FUNCTION_NAME = " . $dbh->quote($categories[$Category]) ) || []}; @categories = map { Encode::decode('big5', $_) } @categories; <%ARGS> $Table => undef $Group => undef $Category => 0