[if session arg]
[set name=arg interpolate=1][data arg][/set]
[else]
[set name=arg]1[/set]
[/else]
[/if]
[perl values cgi]
my $table = $Safe{values}{mv_data_table};
$Safe{'values'}{mvc_data_fields} =
$Safe{cgi}{mvc_data_fields} ||
$Safe{values}{"$table:mvc_data_fields"} || '' ;
if($table eq delete $Safe{values}{mvc_auto_export}) {
return "[set name=export_ok int][tag export $table][/tag][/set]";
}
else {
return '[set name=export_ok][/set]';
}
[/perl]
[title-bar][L]Spreadsheet[/L]: [value mv_data_table][if scratch export_ok] ([L]exported[/L])[/if][/title-bar]
[L]Edit menu for table[/L] [value mv_data_table]
[L]Upload/download/export menu for table[/L] [value mv_data_table]
[scratch menu]
[title-bar 400 2][L]Limit fields to display (changes above will not be made)[/L][/title-bar]
[set name=mvc_data_fields_name int][value mv_data_table]:mvc_data_fields[/set]
[value name=mvc_data_fields set=""]
[L]Edit menu for table[/L] [value mv_data_table]
[L]Upload/download/export menu for table[/L] [value mv_data_table]
[scratch menu]