[if session arg] [seti arg][data session arg][/seti] [elsif value select_code] [seti arg][value select_code][/seti] [value name=select_code set=""] [/elsif] [else] [set arg][/set] [/else] [/if] [if !scratch arg] [seti arg][value name="[value mvc_data_key_name]"][/seti] [/if] [if cgi mv_data_table] [value name=mvc_data_table set="[value mv_data_table]" hide=1] [else] [value name=mv_data_table set="[value mvc_data_table]" hide=1] [/else] [/if] [if-mm !tables] [bounce href="[area config/table_violation]"] [/if-mm] [if scratch arg] [if-mm function=keys name="[scratch arg]"] [else][bounce href="[area config/key_violation]"][/else] [/if-mm] [/if] [perl tables="[value mv_data_table]"] my $table = $Values->{mv_data_table}; $Values->{mvc_data_key_name} = $Db{$table}->config('KEY'); if ($table ne $Values->{mv_data_table}) { $Values->{mv_data_table} = $table; } $Values->{mvc_data_fields} = $CGI->{mvc_data_fields} || $Values->{"$table:mvc_data_fields"} || '' ; if($table eq delete $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 500 6][L]Table[/L] [value mv_data_table][if scratch export_ok](exported)[/if][/title-bar]
[title-bar 200 2][L]Links[/L][/title-bar] [title-bar 200 2][L]Another Key[/L][/title-bar] [if value mvc_dbedit_autoshow]
[/if]
[title-bar size=5][scratch arg][/title-bar] [if scratch mm_failure] [LC] Failed: [/LC] [scratch mm_failure][set mm_failure][/set]
[/if]
[set process_filter] [perl] my @filters = grep /^mm_filter:/, keys %$CGI; return unless @filters; foreach my $key (@filters) { my $val = delete $CGI->{$key}; $key =~ s/mm_filter://; next unless $val; next unless defined $CGI->{$key}; $CGI->{$key} = $Tag->filter($val, $CGI->{$key}, $key); } return; [/perl] [/set] [if-key-exists table="[value mv_data_table]" key="[scratch arg]"] [L]Update[/L] [L]Insert[/L] [L]Delete[/L] [L]Yes, delete[/L] [else] [L]Update[/L] [L]Insert[/L] [/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]' ]" ] [if-mm fields [loop-code]] [/if-mm] [/loop] [/substitute] [/substitute] [else] [substitute name="DBNAME" value="[value mv_data_table]"] [loop arg="[db-columns ~~DBNAME~~]"] [/loop] [/substitute] [/else] [/if-key-exists]
[L]Column[/L][L]Value[/L]
[field-label ~~DBNAME~~ [loop-code]] [if-mm super]
[page config/format_meta ~~DBNAME~~::[loop-code]]meta
[/if-mm]
[display table="~~DBNAME~~" column="[loop-code]" key="~~KEYNAME~~"]
[loop-code]
[calc] my $check = $Values->{mvc_data_fields} || $Tag->db_columns(); return if $check =~ /\b$Values->{mvc_data_key_name}\b/; my $name = $Values->{mvc_data_key_name}; my $val = $Scratch->{arg}; $val =~ s/"/"/g; return qq{}; [/calc]
    [if-mm export] [if !value mvc_too_large] [L]Auto-export[/L] [/if] [/if-mm]

[if-mm advanced display_configure] [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]

[if-mm advanced spreadsheet] [else][/else] [/if-mm] [if-mm advanced spreadsheet] [/if-mm] [if-mm advanced entities] [/if-mm]
Column width
[L](spreadsheet only)[/L]
  

[set Display All Fields][scratch mvc_data_fields_name]= mv_todo=return mv_nextpage=@@MV_PAGE@@ [/set] [widget name="[scratch mvc_data_fields_name]" type="checkbox left 2" data="=ALL,[db-columns joiner=',']" ] [/widget]
[L]Number of rows[/L]
[L](spreadsheet only)[/L]
[L]Decode HTML entities[/L]
[/if-mm] [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]