[set page_title]Shipping Configuration[/set]
[set ui_checklist]1[/set]
@_UI_STD_HEAD_@
[perl]
# use company ZIP for default if it's a standard US ZIP code
$defaultshipzip = ($Values->{zip} =~ /^(\d{5})/) ? $1 : "";
return;
[/perl]
Select the Federal Express shipping options you want to offer. In the
Handling charge field, enter the amount beyond the cost of shipping
you want to charge the customer for delivery. Enter this value as a decimal
amount. For example, enter 3.00 for a $3.00 handling charge.
|
[seti fed_modes][available-www-shipping fed][/seti]
[calc]
my @modes = split /\n/, $Scratch->{fed_modes};
my @out;
for (@modes) {
s/^\w+://;
s/\t\w+:/=/;
}
$Scratch->{fed_modes} = join ",\n", @modes;
return;
[/calc]
[table-editor
table=variable
left_width=120
table_width="500"
wizard=1
defaults=1
bottom_buttons=1
no_top=1
no_bottom=1
row_template="[scratch row_template]"
mv_nextpage=__UI_BASE__/wizard/step_pay
mv_prevpage=__UI_BASE__/wizard/step_ship
hidden.ui_return_to="__UI_BASE__/wizard/index"
ui_data_key=code
default.code="[value code]"
help.code="If this is the first time you have used this definition, you will need to assign a nickname. Only A-Z0-9 are valid."
label.code="Catalog Identifier"
widget.code=text_10
ui_data_fields="code shipzip fedmodes fedadder"
ui_display_only="shipzip fedmodes fedadder"
ui_hide_key="1"
label.shipzip="Warehouse ZIP code"
check.shipzip=zip
help.shipzip="From what ZIP code will your shipments be sent? (Leave blank if not in U.S.)"
widget.shipzip=text_5
default.shipzip=`$defaultshipzip`
check.fedmodes=mandatory
label.fedmodes="Federal Express Options"
help.fedmodes="The Federal Express delivery options you will allow?"
widget.fedmodes=checkbox_left_2
passed.fedmodes=`$Scratch->{fed_modes}`
filter.fedmodes="checkbox null_to_space"
default.fedmodes="FEG F2D FSO FIE FIP"
label.fedadder="Handling charge"
filter.fedadder="digits_dot"
check.fedadder="regex ^\\d+(?:\\.\\d+)?\$"
help.fedadder="Handling/packaging cost to be added to raw Fedex cost"
widget.fedadder=text_8
default.fedadder="3.00"
]
[set ui_override_next]
[perl]
if ($Values->{shipmethod} =~ /\bups\b/i) {
$CGI->{mv_nextpage} = '__UI_BASE__/wizard/step_ship_ups';
}
else {
$CGI->{mv_nextpage} = '__UI_BASE__/wizard/step_ship_default';
}
delete $Scratch->{ui_override_next};
return;
[/perl]
[/set]
@_UI_STD_FOOTER_@