[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_@ [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