[set violation]1[/set] [perl arg="values session scratch" int] my $arg = q{[data session arg]} || $Safe{'values'}{mvc_data_table}; my $allowed = q{[scratch dbs_to_edit]}; my $configured = q{[list-databases]}; if($allowed =~ /\b$arg\b/ and $configured =~ /\b$arg\b/) { undef $Safe{scratch}{violation}; $Safe{'values'}{mv_data_table} = $arg; $Safe{'values'}{mvc_data_table} = $arg; } else { undef $Safe{'values'}{mv_data_table}; undef $Safe{'values'}{mvc_data_table}; } return ''; [/perl] [bounce href="[area special/violation]" if="[scratch violation]"]
[L]Edit Menu for table[/L] [value mv_data_table]
[scratch menu]
[rotate-database]
[if scratch mvc_data_file] [title-bar][L]Upload new database text source file[/L][/title-bar]
[/if] [title-bar 400 5][L]Upload updates text file[/L][/title-bar] [if type=file term="upload/[value mv_data_table].update"] [check-upload file="[value mv_data_table].update" same=1] [/if] [if type=file term="upload/[value mv_data_table].add"] [check-upload file="[value mv_data_table].add" same=1] [/if] [if type=file term="products/[value mv_data_table].update"] [tag op="flag write" interpolate=1][value mv_data_table][/tag] [import-fields table="[value mv_data_table]" move=1] [/if] [if type=file term="products/[value mv_data_table].add"] [tag op="flag write" interpolate=1][value mv_data_table][/tag] [import-fields table="[value mv_data_table]" file="products/[value mv_data_table].add" move=1 add=1] [/if]
[L]Edit Menu for table[/L] [value mv_data_table]
[scratch menu]