[if !cgi mv_data_table] [or cgi ui_scrub_table] [calc] $CGI->{mv_data_table} = $Values->{mv_data_table} = $Config->{ProductFiles}[0]; return; [/calc] [/if] [set ui_class]Items[/set] [tmp page_title][L]Item editor[/L][/tmp] [if-mm super] [tmp page_banner] [page href="__UI_BASE__/db_metaconfig_select" secure="[scratch page_secure]" form=' ui_return_to=__UI_BASE__/index ui_view=item_select ui_table=[cgi mv_data_table] '][L]Item editor[/L] [/tmp] [/if-mm] [set table_perm]__ProductFiles_0__=v[/set] [set help_name]item.editor[/set] [set icon_name]icon_item.gif[/set] @_UI_STD_HEAD_@ [comment] [/comment] [if cgi deleterecords] [if-mm function="!tables" table="[cgi mv_data_table]"] [set ui_error][msg arg.0="[cgi mv_data_table]"]Not allowed to delete from %s.[/msg][/set] [bounce page="__UI_BASE__/error"] [else] [tmp extra_tables][loop list=` my @tab = grep /\S/, split /[\s,\0]+/, q{__UI_ITEM_TABLES__}; my %seen; for (@tab) { s/:.*//; next if $seen{$_}++; } return join " ", @tab; `][if-mm tables [loop-code]=d][loop-code] [flag type=write table="[loop-code]"][/if-mm][/loop][/tmp] [/else] [/if-mm] [/if] [perl tables="[cgi mv_data_table] [scratch extra_tables] __UI_META_TABLE__"] delete $Scratch->{ui_location}; if($CGI->{ui_sequence_edit}) { my $doit; if($CGI->{item_id_left} =~ s/^(.*?),//) { $CGI->{item_id} = $1; $doit = 1; } elsif ($CGI->{item_id_left}) { $CGI->{item_id} = delete $CGI->{item_id_left}; delete $CGI->{ui_sequence_edit}; $doit = 1; } else { delete $CGI->{item_id}; delete $CGI->{ui_sequence_edit}; } return unless $doit; $Scratch->{ui_location} = $Tag->area( { href => '__UI_BASE__/item_edit', form => qq{ item_id=$CGI->{item_id} item_id_left=$CGI->{item_id_left} ui_sequence_edit=$CGI->{ui_sequence_edit} }, }); return; } [/perl] [if scratch ui_location] [bounce href=`delete $Scratch->{ui_location}`] [/if]
[L]Message[/L]:
[scratchd ui_message]
|
[/if]