[perl arg=config interpolate=1] $Safe{config}{TaxShipping} = '[dv tax_shipping]'; $Safe{config}{SalesTax} = '[dv tax_based_on]'; return ''; [/perl]
[if-dv smlogo]
[dv company] Logo
[/if-dv]
[dv company]
[dv address]
[dv city]

Phone: [dv phone] [dv tollfree]
FAX: [dv fax]
[if session logged_in] [then] [set [L]Log out[/L]] mv_todo=return mv_nextpage=ord/checkout [userdb function=logout options="clear=yes"] [/set]
[L]Hi[/L] [value name]! [L]You are logged in as user[/L] [value mv_username].
Change your password
[if type=data term="userdb::acl::[data session username]"] Check order status [/if]
[/then] [else] [set Login] mv_todo=return mv_nextpage=ord/checkout [userdb login] [/set]

[if session failure] [data session failure] [/if]

[L]If you have an account with us, please enter your user name and password[/L]. (test/test for testing)

[L]Username[/L] [page new_account][L]Create a new account[/L][/page]
[L]Password[/L]   
[/else][/if]
[if items] [then] [item-list] [/item-list]
[L]Order details[/L]
remove [item-description] [item-quantity] @ [item-price] [item-subtotal]
Back to cart
[L]Subtotal[/L] [subtotal]
[L]Sales Tax[/L] [salestax]
[L]Shipping[/L] [shipping]
[L]TOTAL[/L] [total-cost]

[/then] [else]

[L]No items in your basket.[/L]

[L]You can enter information, and it will be saved, but no checkout will happen until you order something![/L] [/else] [/if]
[L]Shipping Address[/L]
[L]Name[/L]
[L]Address[/L]


[L]City[/L]

[L]State/Province[/L]

[L]Zip/Postal Code[/L]
[L]Email Address[/L]
[L]Country[/L] [if value country =~ /(^$|US|CA)/] [else] [/else] [/if]
[L]Daytime Phone[/L]
[L]Evening[/L]
[L]We need these fields to process your order[/L]
[if session logged_in] [userdb function=get_shipping_names] [set [L]Save shipping[/L]] mv_todo=return mv_nextpage=ord/checkout [userdb function=set_shipping] [/set] [set [L]Recall shipping[/L]] mv_todo=return mv_nextpage=ord/checkout [userdb function=get_shipping] [/set] [set [L]DELETE shipping[/L]] mv_todo=return mv_nextpage=ord/checkout [userdb function=delete_shipping] [/set] [if value address_book] [/if]
You can create a new entry for the shipping address in your address book.
Nickname:
You can save the shipping address to an entry in your address book.
[loop arg="[value address_book]" ] [loop-code] [/loop]
You can recall a shipping address from your address book.
[loop arg="[value address_book]" ] [loop-code] [/loop]
You can DELETE a shipping address from your address book.
[loop arg="[value address_book]" ] [loop-code] [/loop]
[/if]

[L]Choose your shipping method[/L]

[if data vendor::only_shipmodes::__STORE_ID] [elsif value country =~ /(^$|US)/] [/elsif] [elsif data vendor::intl_shipmodes::__STORE_ID__] [/elsif] [else] Shipping not supported to your country. Contact us for more information. [/else] [/if]
[if session ship_message]
[L]Note[/L]: [data session ship_message]
[/if]
[L]Credit Card Information[/L]        

[L]Card Number[/L] (test number 4111 1111 1111 1111)
[L]Expires[/L]
[L]Pay by credit card[/L]
[L]I will call with payment information[/L]
[if value tried_credit_card] [L]Force this card number to be taken[/L]
[/if]
[L]Billing Address (if different)[/L]
[L]Name[/L]
[L]Address[/L]
[L]City[/L], [L]State[/L], [L]Postal Code[/L]
[if session logged_in] [userdb function=get_billing_names] [set [L]Save billing[/L]] mv_todo=return mv_nextpage=ord/checkout [userdb function=set_billing] [/set] [set [L]Recall billing[/L]] mv_todo=return mv_nextpage=ord/checkout [userdb function=get_billing] [/set] [set [L]DELETE billing[/L]] mv_todo=return mv_nextpage=ord/checkout [userdb function=delete_billing] [/set] [if value accounts] [/if]
You can create a new entry for the billing address in your account book.
Nickname:
You can save the billing address to an entry in your account book.
[loop arg="[value accounts]" ] [loop-code] [/loop]
You can recall a billing address from your account book.
[loop arg="[value accounts]" ] [loop-code] [/loop]
You can DELETE a billing address from your account book.
[loop arg="[value accounts]" ] [loop-code] [/loop]
[/if] [set [L]Place Order![/L]] mv_todo=submit [if-dv cybercash]mv_cyber_mode=[dv cyber_mode] [set CreditCardAuto][/set] [else][perl arg="config" interpolate=1] $Safe{config}{CreditCardAuto} = 1; my $tmp; $tmp = q{[dv encrypt_program]}; $Safe{config}{EncryptProgram} = $tmp if $tmp; $tmp = q{[dv pgp_program]}; $Safe{config}{PGP} = $tmp if $tmp; $tmp = q{[dv pgp_key]}; $Safe{config}{EncryptProgram} =~ s/%r/"$tmp"/ if $tmp; return ''; [/perl][/else][/if-dv] [/set] [if session logged_in]
Yes No Send an email copy of my receipt
Save my information in the database [set Save_database] [userdb save] [/set] [/if]


Gift note or Special Instructions

Return to [dv company] home page (make sure you save first!)
[set checkout_profile] [set name=config_results int] [perl arg=config interpolate=1] my $ref = $Safe{config}; $ref->{MailOrderTo} = q{[dv email_order]} || $ref->{MailOrderTo}; #[if-dv encrypt_program] $ref->{EncryptProgram} = q{[dv encrypt_program]}; #[/if-dv] #[if-dv pgp_program] $ref->{PGP} = q{[dv pgp_program]}; #[/if-dv] #[if-dv pgp_key] $ref->{EncryptProgram} =~ s/%r/"[dv pgp_key]"/; #[/if-dv] $cyber = (q{[dv cybercash]} =~ /^\s*[y1]/i); $ref->{CyberCash} = $cyber; $ref->{CreditCardAuto} = ! $cyber; return < $ref->{CyberCash} CreditCardAuto=> $ref->{CreditCardAuto} EncryptProgram=> $ref->{EncryptProgram} EOF [/perl] [/set] name=required address=required city=required country=required [calc] my $country = q{[cgi country]}; $country =~ s/\W+//g; return 'phone_day=phone' unless $country =~ /^(US|CA|USA|UnitedStates|Canada)$/i; return "state=state_province\nzip=zip\nphone_day=phone_us"; [/calc] email=required email=email &fatal = yes [if value fax_order] &set = mv_payment Call Us [elsif config CyberCash] [perl arg=config interpolate=1] my $ref = $Safe{config}{Variable}; $ref->{CYBER_MODE} = q{[dv cyber_mode]}; $ref->{CYBER_HOST} = q{[dv cyber_host]}; $ref->{CYBER_PORT} = q{[dv cyber_port]}; $ref->{CYBER_VERSION} = q{[dv cyber_version]}; $ref->{CYBER_CURRENCY} = q{[dv cyber_currency]}; $ref->{CYBER_SERVER_VERSION} = q{[dv cyber_version]}; $ref->{CYBER_CONFIGFILE} = q{[dv cyber_configfile]}; $ref->{CYBER_SECRET} = q{[dv cyber_secret]}; return ''; [/perl] &set=mv_payment CyberCash Credit Card [/elsif] [elsif config CreditCardAuto] &set=mv_payment Credit Card ([default mv_credit_card_type unknown]) mv_credit_card_info=required [/elsif] [else] &set=mv_payment Will Call [/else] [/if] &final = yes &set=mv_email [value email] [/set]