[comment]
ui_template: Yes
ui_template_name: leftonly
ui_template_layout: LEFTONLY_TOP, UI_CONTENT, LEFTONLY_BOTTOM
ui_template_description: Page with top/left areas.
page_title:
description: Page title
page_banner:
description: Page banner
help: Defaults to page title
members_only:
options: 1=Yes,0=No*
widget: radio
description: Members only
component_before:
options: =none, specials=Specials, random=Random items
widget: select
description: Component before content
component_after:
options: =none, specials=Specials, random=Random items
widget: select
description: Component after content
bgcolor:
options: #FFFFFF=White,pink=Pink
widget: select
description: Background color
[/comment]
[set page_title]__COMPANY__ -- Shipping Address Removed[/set]
[set page_banner]Shipping Address Removed[/set]
__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]
[seti remove_addresses][query sql="[scratch sql_req]"][/query][/seti]
The selected shipping addresses have been removed.
BACK __LEFTONLY_BOTTOM__