[comment]
ui_template: Yes
ui_template_name: leftonly
[/comment]
[tmp page_title]__COMPANY__ -- Shipping Address Removed[/tmp]
@_LEFTONLY_TOP_@
[perl]
my $dbname = 'ship_addresses';
my @addresses = split /\0/, $Values->{remove_sa};
my $sql_req = "delete from $dbname WHERE code = ";
$sql_req .= join(' or code = ', @addresses);
$Scratch->{sql_req} = $sql_req;
return "";
[/perl]
[tag flag write]ship_addresses[/tag]
[seti remove_addresses][query sql="[scratch sql_req]"][/query][/seti]
The selected shipping addresses have been removed.
BACK @_LEFTONLY_BOTTOM_@