[new] [L]Database Edit[/L] [if session arg] [set interpolate=1 name="arg"][data session arg][/set] [elsif value select_code] [set interpolate=1 name="arg"][value select_code][/set] [value name=select_code set=""] [/elsif] [elsif value code] [set interpolate=1 name="arg"][value code][/set] [value name=code set=""] [/elsif] [/if] [perl values cgi] my $table = $Safe{values}{mv_data_table}; if ($table ne $Safe{values}{mv_data_table}) { $Safe{values}{mv_data_table} = $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]Table[/L] [value mv_data_table][if scratch export_ok](exported)[/if][/title-bar] [title-bar size=3][L]Edit key[/L] "[scratch arg]"[/title-bar]
[if-key-exists table="[value mv_data_table]" key="[scratch arg]"] Update Insert Delete Yes, delete [else] Update Insert [/else] [/if-key-exists] [if-key-exists table="[value mv_data_table]" key="[scratch arg]"] [substitute name="DBNAME" value="[value mv_data_table]"] [substitute name="KEYNAME" value="[scratch arg]"] [loop arg="[db-columns name='~~DBNAME~~' columns='[value mvc_data_fields]' ]" ] [/loop] [/substitute] [/substitute] [else] [substitute name="DBNAME" value="[value mv_data_table]"] [loop arg="[db-columns ~~DBNAME~~]"] [/loop] [/substitute] [/else] [/if-key-exists]
ColumnValue
[loop-code] [display table="~~DBNAME~~" column="[loop-code]" key="~~KEYNAME~~"]
[loop-code]

    Auto-export
[value name=mvc_data_fields set=""]