[if cgi mv_data_table]
[if-mm function=!export table="[cgi mv_data_table]"]
[set ui_error]Not allowed to export table '[cgi mv_data_table]'.[/seti]
[bounce page="__UI_BASE__/error"]
[/if-mm]
[/if]
[set page_title]Individual Table Export[/set]
[set ui_class]Admin[/set]
[set table_perm]1[/set]
[set help_name]export.main[/set]
[set icon_name]admin/icon_config.gif[/set]
@_UI_STD_HEAD_@
[page __UI_BASE__/dbdownload]Multiple table export[/page]
[seti user_tables][loop list="[list-databases]"][if-mm function=export table="[loop-code]"][loop-code]
[/if-mm][/loop][/seti]
[seti tables][scratch user_tables]
__UI_ACCESS_TABLE__
__UI_META_TABLE__[/seti]
[perl table="[scratch tables]"]
my @tables = grep /\S/, split /\s+/, $Scratch->{tables};
my $out;
for(@tables) {
#Log("table $_");
unless (ref $Db{$_}) {
Log("bad table $_");
next;
}
$tables{$_} = [ $Db{$_}->columns() ];
}
$out = "
EOF
[/perl]
[if cgi ui_export_database]
[update values]
[seti result][export-database
table="[value mv_data_table]"
file="[value mv_data_file]"
type="[value mv_data_export_type]"
sort="[if value ui_sort_field][value ui_sort_field]:[value ui_sort_option][/if]"
][/seti]
[if scratch result]
Export of table [cgi mv_data_table] successful