<& /RG/Elements/PermHeader &> <& /RG/Elements/ToggleSave, no_parent => 1 &>
<&|/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'; % } % for (1..20) { % }
  <&|/l&>Permission Group
<% $group %>
 
<&|/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:

% if ($Table) {
<&|/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} %>
<&|/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