[perl tables="__UI_META_TABLE__"] $CGI->{mv_data_table} = $Config->{ProductFiles}[0]; $CGI->{ui_hide_key} = 1 unless $CGI->{ui_new_item}; if(! $CGI->{ui_return_to} or $CGI->{ui_sequence_edit}) { my @args = ( '__UI_BASE__/item', "item_id_left=$CGI->{item_id_left}", "ui_sequence_edit=$CGI->{ui_sequence_edit}", ); $CGI->{ui_return_to} = join "\0", @args; } return; [/perl] [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] [set ui_class]Items[/set] [seti page_title][L]Item editor[/L]: [cgi item_id][/seti] [set help_name]edit.item[/set] [set icon_name]icon_item.gif[/set] [if-mm super] [tmp page_banner][page href="__UI_BASE__/db_metaconfig" form=' ui_table=[cgi mv_data_table] ui_view=[cgi ui_meta_view] ui_return_to=__UI_BASE__/item mv_return_table=[cgi mv_data_table] start_at=extended.ui_data_fields '][L]Item editor[/L] [msg arg.0="[cgi item_id]"]edit item %s[/msg] [/tmp] [else] [tmp page_banner][L]Item editor[/L]: [msg arg.0="[cgi item_id]"]edit item %s[/msg][/tmp] [/else] [/if-mm] @_UI_STD_HEAD_@
[table-editor file_upload=1 cgi=1] [if-mm super] [L]No meta display[/L] [/if-mm] @_UI_STD_FOOTER_@