<& /RG/Elements/PermHeader &> <& /RG/Elements/ToggleSave, no_parent => 1 &>
% } else {

<&|/l&>Please select a table on the left side to modify. % }

<&|/l&>Database <&|/l&>User Name
<&|/l&>Driver <&|/l&>Connection Password
<&|/l&>Connection String

<&|/l&>Category:
<&|/l&>Table Name <&|/l&>Display Name
% foreach my $table (@tables) { % my $is_chosen = ($Table eq $table); % my $color = $is_chosen ? '#ffffcc' : '#ffffff'; % my $overcolor = $is_chosen ? '#ffffcc' : '#cbeded'; % }
<% $table %>
% if ($Table) {
<&|/l&>Table Name: <% $Table %>
<&|/l&>Field Name <&|/l&>Display Name
% foreach my $field (sort map lc, keys %{$CF->{tables}{$Table}{fields}}) { % }
<% $field %>
<%INIT> require DBI; my $dbh = DBI->connect($Conf->get_db_src($session{db})); my $CF = $Conf->{DB}{$session{db}}; #foreach my $key (qw(user driver password dsn)) { # $CF->{$key} = $ARGS{$key} if defined $ARGS{$key}; #} foreach my $key (keys %ARGS) { if ($key =~ /^tdesc-(.*)$/) { $CF->{tables}{$1}{description} = $ARGS{$key}; } elsif ($key =~ /^fdesc-(.*)-(.*)$/) { $CF->{tables}{$1}{fields}{$2}{description} = $ARGS{$key}; } } $Conf->{DB} = { %{$Conf->{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 $Category => 0