[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_@