[if !cgi mv_data_table]
[calc]
$CGI->{mv_data_table} = $Values->{mv_data_table} = $Config->{ProductFiles}[0];
return;
[/calc]
[/if]
[comment]
[if-mm function="!tables" table=`$Config->{ProductFiles}[0]`]
[bounce page="__UI_BASE__/error"]
[/if-mm]
[/comment]
[set page_title]Item editor[/set]
[set table_perm]1[/set]
[set help_name]item.main[/set]
[set icon_name]admin/icon_item.gif[/set]
@@UI_STD_HEAD@@
[set Delete item]
[tag flag write]inventory pricing products[/tag]
mv_nextpage=__UI_BASE__/item
[if-mm advanced item=d]
[perl tables="inventory pricing products"]
my ($item) = $CGI->{item_id};
my $out;
for(qw/products pricing inventory/) {
next unless $Db{$_};
if ($Db{$_}->delete_record($item)) {
$out .= "Deleted $item from $_ table
";
}
else {
$out .= "Item $item not in $_ table (or delete failed)
";
}
}
$Scratch->{ui_message} = $out;
return;
[/perl]
[else]
[set ui_message]Not authorized to delete items.[/set]
[/else]
[/if-mm]
[/set]
[if scratch ui_message]
[scratch ui_message] [set ui_message][/set]
[/if]
@@UI_STD_FOOTER@@