[set page_title][L]Database export[/L][/set] [set ui_class]Admin[/set] [set help_name]dbdownload.main[/set] [set icon_name]icon_config.gif[/set] [set page_perm]dbdownload[/set] [set exported_tables][/set] [if cgi ui_do_export] [/if] @_UI_STD_HEAD_@ [if scratch exported_tables]

> [msg arg.0='[backup-database compress="[cgi ui_compress]" xls="[cgi ui_export_xls]" max_xls_string="[cgi ui_export_max_xls_string]" tables="[scratch exported_tables]" ]']%s tables backed up.[/msg]

[/if] [set mv_deliver][/set] [if file backup/DBDOWNLOAD.xls] [calc] $Scratch->{mv_deliver} .= ' backup/DBDOWNLOAD.xls'; return; [/calc] [page href="ui/backup/DBDOWNLOAD.xls" add_dot_html=0 form=" mv_data_file=backup/DBDOWNLOAD.xls mv_todo=deliver "][L]Download XLS file[/L] ([file-info name="backup/DBDOWNLOAD.xls" date=1], [file-info name="backup/DBDOWNLOAD.xls" size=1] bytes)
[/if] [if scratch ui_error] [L]Errors on last operation[/L]: [scratch ui_error][set ui_error][/set] [/if] [form-session-id]

[perl tables=mv_metadata] my @tabs = $Tag->list_databases(); %backup = (); if($Variable->{UI_BACKUP_TABLES}) { my @backs = grep /\S/, split /[\s,\0]+/, $Variable->{UI_BACKUP_TABLES}; @backup{@backs} = @backs; } else { for(@tabs) { my $meta = $Tag->meta_record($_); if(defined $meta->{backup}) { $backup{$_} = $meta->{backup}; } else { $backup{$_} = ! $meta->{display_filter}; } } } return; [/perl]

What data would you like to export?

> [loop list="[list-databases]"] [loop-code] [if-loop-data __UI_META_TABLE__ name] ([loop-data __UI_META_TABLE__ name]) [/if-loop-data]
> [/loop]

Uncheck all
Check all

Options:

> Compress (if available)
> [if type=explicit compare="[version extended=1 modtest='Spreadsheet::WriteExcel']"]
> Create XLS spreadsheet
> [/if]

@_UI_STD_FOOTER_@