[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]
	<!-- exporting
	[calc]
		$Values->{ui_gnumeric} = $CGI->{ui_gnumeric};
		$Values->{ui_compress} = $CGI->{ui_compress};
		$Scratch->{exported_tables} = join "\n",
			 grep /\S/, split /[,\s\0]+/, $CGI->{ui_do_export};
	[/calc] -->
[/if]

@_UI_STD_HEAD_@

[if scratch exported_tables]
<BLOCKQUOTE>
	[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]
</BLOCKQUOTE>
[/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)</A><BR>
[/if]

[if scratch ui_error]
	<B>[L]Errors on last operation[/L]:</B>
	[scratch ui_error][set ui_error][/set]
[/if]

<form ACTION="[area @@MV_PAGE@@]" method="POST" NAME=dbdownload>
[form-session-id]
<table __UI_T_PROPERTIES__>

<tr>
<td class=rborder><img src="bg.gif" height=1></td>
</tr>

<tr>
<td class=rborder>
&nbsp;
<p>

[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]

<TABLE>
<TR>
<TD VALIGN=top>
What data would you like to export?
<blockquote>
[loop list="[list-databases]"]
<INPUT type=checkbox value="[loop-code]" name="ui_do_export" [loop-calc]
	return 'CHECKED' if $backup{'[loop-code]'};
	return;
[/loop-calc]> [loop-code]
	[if-loop-data __UI_META_TABLE__ name]
		(<small>[loop-data __UI_META_TABLE__ name]</small>)
	[/if-loop-data]
	<BR>
[/loop]
</blockquote>
<A HREF="javascript:checkAll(document.dbdownload, 'ui_do_export', 1)">Uncheck all</A><BR>
<A HREF="javascript:checkAll(document.dbdownload, 'ui_do_export', 0)">Check all</A>
</td>
<td valign=top>
	<B>Options:</B><BR><BR>
	<BLOCKQUOTE>
	<INPUT TYPE=checkbox NAME=ui_compress VALUE=on [checked ui_compress on]> Compress (if available)<BR>
	[if type=explicit compare="[version extended=1 modtest='Spreadsheet::WriteExcel']"]
	<BR><INPUT TYPE=checkbox VALUE=1 NAME=ui_export_xls [checked name=ui_export_xls value=1]> Create XLS spreadsheet
	<SELECT NAME=ui_export_max_xls_string>
[loop lr=1 option=ui_export_max_xls_string cgi=1 list="
0	Max string length 255
1024	1024 (compatible with some)
4096	4096 (compatible with some)
16384	16384 (compatible with some)
"]
<OPTION VALUE="[loop-code]"> [loop-pos 1]
[/loop]
	</SELECT>
	[/if]
	</BLOCKQUOTE>
	<p>
	<input type=submit name="do_download" value="[L]Perform export[/L]">
	</td>
</tr>
</table>
&nbsp;
</td>
</tr>

<tr>
<td colspan=2 class=rborder><img src="bg.gif" width=__UI_MAIN_WIDTH__ height=1></td>
</tr>

</table>

</form>



<!-- ----- END REAL STUFF ----- -->

@_UI_STD_FOOTER_@
<!-- page: @@MV_PAGE@@ -->