[strip interpolate=1] @_UI_STD_INIT_@ [calc] $CGI->{mv_data_table} = delete $CGI->{mv_return_table} if $CGI->{mv_return_table}; return; [/calc] [tmp page_title] [either] [loc][cgi page_title][/loc] [or] [L]Table Edit[/L]: [cgi mv_data_table] [/either] [/tmp] [tmp page_banner] [either] [cgi page_banner] [or] [if cgi mv_data_table ne __UI_META_TABLE__] [if-mm super] [L]Select for table edit[/L]: [cgi mv_data_table] [if cgi ui_meta_view] ([page href="__UI_BASE__/db_metaconfig_edit" form=' ui_table=[cgi mv_data_table] ui_view=[cgi ui_meta_view] '][cgi ui_meta_view] [L]view[/L]) [/if] ([page href="__UI_BASE__/db_metaconfig_edit" form=' ui_table=[cgi mv_data_table] ui_view=[cgi ui_meta_view] '][L]standard view[/L]) [/if-mm] [/if] [or] [cgi page_title] [or] [L]Select for table edit[/L]: [cgi mv_data_table] [/either] [/tmp] [seti table_perm][cgi mv_data_table]=v[/seti] [seti help_name][either][cgi help_name][or]flex.meta[/either][/seti] [seti icon_name][either][cgi icon_name][or]icon_config.gif[/either][/seti] [if !scratch ui_class][seti ui_class][either][cgi ui_class][or]Admin[/either][/seti][/if] [flag type=write table="[cgi mv_data_table]"] [if cgi ui_new_item] [loop list="__MV_ITEM_TABLES__"] [flag type=write table="[loop-code]"] [/loop] [perl tables="[cgi mv_data_table]"] my $db = $Db{$CGI->{mv_data_table}} or return; unless ($db->config('AUTO_SEQUENCE')) { $db->config('AUTO_NUMBER', '000001') unless $db->config('AUTO_NUMBER'); $CGI->{item_id} = $db->autonumber(); } if ($CGI->{ui_clone_id}) { $CGI->{ui_clone_tables} = '__UI_CLONE_TABLES__' || '__UI_ITEM_TABLES__'; my $db = $Db{$CGI->{mv_data_table}} or return; return unless $db->record_exists($CGI->{ui_clone_id}); my $ref = $db->row_hash($CGI->{ui_clone_id}); $CGI->{ $db->config('KEY') } = $CGI->{item_id} if defined $CGI->{item_id}; @{$CGI}{ keys %$ref } = values %$ref; } return; [/perl] [/if] [/strip]@_UI_STD_HEAD_@ [table-editor cgi=1] [L]No meta display[/L] @_UI_STD_FOOTER_@