Skip to content
This repository
tree: 4bcbf237f7
Fetching contributors…

Cannot retrieve contributors at this time

file 79 lines (68 sloc) 2.093 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
[set page_title][L]Shipping Preferences - Fed Ex[/L][/set]
[set ui_checklist]1[/set]
[set help_name]wizard.fedex[/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]

<p>
[L]Select the FedEx shipping options you want to offer.[/L]
<p>

[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

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="[either][cgi ui_nextpage][or]__UI_BASE__/wizard/step_ship_country[/either]"
mv_prevpage="[either][cgi ui_prevpage][or]__UI_BASE__/wizard/step_ship[/either]"
hidden.ui_return_to="__UI_BASE__/wizard/index"

ui_wizard_fields="shipzip fedmodes fedadder"

label.shipzip="[L]Warehouse ZIP code[/L]"
check.shipzip=zip
help.shipzip="[L]From what ZIP code will your shipments be sent? (Leave blank if not in U.S.)[/L]"
widget.shipzip=text_5
default.shipzip=`$defaultshipzip`

check.fedmodes=mandatory
label.fedmodes="[L]FedEx Options[/L]"
help.fedmodes="[L]The FedEx delivery options you will allow?[/L]"
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="[L]Handling charge[/L]"
filter.fedadder="digits_dot"
check.fedadder="regex ^\\d+(?:\\.\\d+)?\$"
help.fedadder="[L]Handling/packaging cost to be added to raw FedEx cost[/L]"
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';
}
elsif($Values->{shipmethod} =~ /\bflat\b/i) {
$CGI->{mv_nextpage} = '__UI_BASE__/wizard/step_ship_default';
}
delete $Scratch->{ui_override_next};
return;
[/perl]
[/set]

@_UI_STD_FOOTER_@
Something went wrong with that request. Please try again.