[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 .= <
EOF
}
$out .= qq{ $name};
my $desc = tag_data('__UI_META_TABLE__', 'name', $name);
$out .= qq{ ($desc)} if $desc;
$out .= q{ | };
return $out;
}
[/loop-sub]
[loop-exec db_action][loop-data __UI_META_TABLE__ label][/loop-exec]
[/loop]
|