[if !cgi mv_data_table]
[calc]
$CGI->{mv_data_table} = $Values->{mv_data_table} = $Config->{ProductFiles}[0];
return;
[/calc]
[/if]
[if cgi deleterecords]
[if-mm function="!tables" table="[cgi mv_data_table]"]
[bounce page="__UI_BASE__/error"]
[else]
[/else]
[/if-mm]
[/if]
[perl tables="[cgi mv_data_table] __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;
}
return unless $CGI->{item_id};
return unless delete $CGI->{deleterecords};
return unless $Tag->if_mm('tables', '=d');
delete $Scratch->{ui_location};
$Config->{NoSearch} = '';
my $tab = $CGI->{mv_data_table} or return;
my $db = $Db{$tab};
if(! ref $db) {
$Scratch->{error_message} = "Error: no $tab database.
";
$Scratch->{ui_location} = "__UI_BASE__/error";
return;
}
for(grep $_, @{$CGI_array->{item_id}}) {
$db->delete_record($_)
or push @errors, $@;
}
if(@errors) {
my $plural = @errors > 1 ? 's' : '';
return "Error$plural:
";
}
return;
[/perl]
[if scratch ui_location]
[bounce href=`delete $Scratch->{ui_location}`]
[/if]
[set ui_class]Items[/set]
[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_@
[if scratch ui_message]
[scratch ui_message] [set ui_message][/set]
[/if]
[if cgi ui_text_qualification]