[set page_perm]files[/set] [set page_title]Configuration[/set] [set ui_class]Admin[/set] [set help_name]genconfig.main[/set] [set icon_name]admin/icon_config.gif[/set] @_UI_STD_HEAD_@
Database tables
[loop list="[list-databases]"] [loop-sub db_action] sub { #Log("args=" . $Tag->uneval({ ref => \@_ })); my $name = shift; my $rec = shift; my $tab = $rec->[0]; #Log("name=$name tab=$tab"); $name = $tab if ! $name; my $url = "$Config->{VendURL}/__UI_BASE__"; my $froot = sub { my $fn = shift; $fn =~ s#^$Config->{VendRoot}/##o; return $fn; }; my $ref = { upload => { img => '@_UI_IMG_@admin/up.gif', url => "$url/upload_file?mv_arg=" . $froot->(join "/", ($Config->{Database}{$tab}{dir} || $Config->{ProductDir}), $Config->{Database}{$tab}{file} ) . '&ui_return_to=@@MV_PAGE@@', }, view => { img => '@_UI_IMG_@admin/index.gif', url => "$url/do_view?mv_arg=" . $froot->(join "/", ($Config->{Database}{$tab}{dir} || $Config->{ProductDir}), $Config->{Database}{$tab}{file} ), }, download => { img => '@_UI_IMG_@admin/down.gif', url => "$Config->{VendURL}/ui_dbdownload/$tab", }, import => { img => '@_UI_IMG_@admin/left.gif', url => "$url/import_table?mv_data_table=$tab", }, export => { img => '@_UI_IMG_@admin/right.gif', url => "$url/export_table?mv_data_table=$tab", }, edit => { img => '@_UI_IMG_@admin/layout.gif', url => "$url/flex_select?mv_data_table=$tab", }, }; my $out = ''; if(! $dblist_done_one++) { $out .= ''; for(qw/edit import export view upload download /, "Table name (description)") { # Add "report" $out .= qq{}; } $out .= ""; } $out .= ''; for(qw/edit import export view upload download /) { # Add "report" my $line = $ref->{$_}; $out .= <$_ $tab EOF } $out .= qq{}; return $out; } [/loop-sub] [loop-exec db_action][loop-data __UI_META_TABLE__ label][/loop-exec] [/loop]
$_
 $name}; my $desc = tag_data('__UI_META_TABLE__', 'name', $name); $out .= qq{ ($desc)} if $desc; $out .= q{
@_UI_STD_FOOTER_@