# Perl Support File
# WebStore Order Form Variables
# Variables used by all scripts: /Web_store/ws_global.setup
# File Permissions: 644 -rw-r--r--
# NOTE: If you change the filename of this file, change the value of
# $pre_form_file in outlet.setup to reflect the file's new name.
############################################################################
# Pre.OrderForm.setup #
#==========================================================================#
# Copyright (c) 1996 - 2003, RDC Software #
# WebStore@ratite.com http://www.ratite.com/Perl/WebStore.shtml #
# Version: 4.16.00 Date: 01/01/2003 #
# #
# Full copyright notice can be found in the following files for the #
# listed license type: #
# #
# Single User License: /Docs/Copyright_SingleUser.html #
# Server License: /Docs/Copyright_Server.html #
# #
# This copyright notification can not be altered or removed from this file.#
#==========================================================================#
# Backslash all @ signs --> \@ <-- Perl 5 compatibility. #
# Variables containing @ signs must be enclosed in " (double quotes). #
# #
# All other variables are enclosed in ' (single quotes). #
# #
# If the value you store in a variable enclosed in single quotes requires #
# the use of a single quote, backslash the imbedded single quote. #
############################################################################
#--------------------------------------------------------------------------#
# Order Form: Preliminary Form Input
#--------------------------------------------------------------------------#
# Determine the use of frames to set table widths in $PreOrderForm{0}.
# $frameset_file is defined in outlet.setup.
# Using frames in WebStore environment
if ($frameset_file) {
# 95% for vertical frames, 575 for horizontal frames
$Form0_4 = '95%'; # Table width: Page header
$Form0_5 = '520'; # Table width: Section headers
}
# Not using frames or prior to entering WebStore environment
else {
$Form0_4 = '575'; # Table width: Page header
$Form0_5 = '520'; # Table width: Section headers
}
# The form defined in %PreOrderForm is used to determine the client's sales tax
# liability, shipping method preference, etc.
# WebStore bypasses the form defined in %PreOrderForm when going to the order
# form when the values requested by this form were previously determined during
# client verification and only one order form is defined in %form_files in
# outlet.setup.
%PreOrderForm = (
# Field 0: Form Page Header
'0' => ['', '',
# Comments below page header
'', '',
$Form0_4, # Table width: Page header
$Form0_5, # Table width: Section headers
'325'], # Table width: Form fields (decimal only)
'11' => ['form_file', 'Payment Method', 'select', ''],
'12C' => [],
'13' => ['province', 'Billing Province', 'select', '', 'Canada only'],
'14' => ['state', 'Billing State', 'select', '', 'US citizens only'],
'15' => ['country', 'Billing Country', 'select', 'SELECTED~319', 'R'],
'50C' => [],
'51C' => ['left',
'
Shipping Address:
Please enter your shipping state and country if different
than the billing state and country.
'],
'52' => ['shpProvince', 'Shipping Province', 'select', '', 'Canada only'],
'53' => ['shpState', 'Shipping State', 'select', '', 'United States only'],
'54' => ['shpCountry', 'Shipping Country', 'select', ''],
'54C' => [],
'91S' => ['center',
'
'
],
); # DO NOT REMOVE - terminates %PreOrderForm
# Delete the form selection array and it's spacing array from %PreOrderForm
# when only one order form is defined in %form_files in outlet.setup.
if (!$form_files) { delete $PreOrderForm{11}; delete $PreOrderForm{'12C'}; }
# @opt_shipping is a list of the KEYS in %PreOrderForm which correspond to the
# optionally required shipping fields. If any field listed in @opt_shipping
# is completed by the client, all fields listed in @opt_shipping must be
# completed.
@opt_shipping = ('52', '53', '54');
# Section header rows (xxH) are printed using one of the following color
# combinations for the row's background color and font color.
# Setting $header_colors = '0' uses $header_bkg_clr for the row's
# background color and $header_fnt_clr for the row's font color.
# Setting $header_colors = '1' uses $dsc_hr_bkg_clr for the row's
# background color and $dsc_hr_fnt_clr for the row's font color.
# Setting $header_colors = '2' uses $data_bkg_clr for the row's
# background color and $data_fnt_clr for the row's font color.
# Setting $header_colors = '3' uses $modify_bkg_clr for the row's
# background color and $modify_fnt_clr for the row's font color.
# Setting $header_colors = '' disables header background color and
# header font color. Colors default to and
# attributes.
# $header_colors defaults to '' for values other than 0, 1, 2, or 3.
# $header_bkg_clr, $header_fnt_clr, $dsc_hr_bkg_clr, $dsc_hr_fnt_clr,
# $data_bkg_clr, $data_fnt_clr, $modify_bkg_clr, and $modify_fnt_clr
# are defined in outlet.setup.
$header_colors = '';
#--------------------------------------------------------------------------#
# Subroutines: Display Additional HTML
#--------------------------------------------------------------------------#
# If $pre_form = 1, preface the form with the contents of
# sub pre_client_form_html. Design the HTML code, copy and paste it below
# the PRINTED FROM: hidden comment line in sub pre_client_form_html.
# Setting $pre_form = '' disables access to sub pre_client_form_html.
# Nothing is printed at the top of the form.
$pre_form = '1'; # 1 = Access sub pre_client_form_html
sub pre_client_form_html {
# Images must be placed in the /Graphics sub-directory and must be
# referenced using $graphics_url:
#
# WebStore sets the value of $graphics_url based on the use of SSL.
print qq!
<\!-- PRINTED FROM: sub pre_client_form_html in $pre_form_file -->
!; # DO NOT REMOVE - terminates "print qq!" command above
# Access sub pre_view_modify_html in outlet.setup
&pre_view_modify_html if $pre_view_modify eq '2';
} # DO NOT REMOVE - End of sub pre_client_form_html
#-----------------------------------------------#
# If $form_trailer = 1, append the form with the contents of
# sub client_form_trailer_html. Design the HTML code, copy and paste it
# below the PRINTED FROM: hidden comment line in sub form_trailer_html.
# Setting $form_trailer = '' disables access to sub form_trailer_html.
# Nothing is printed at the bottom of the form.
$form_trailer = '1'; # 1 = Access sub client_form_trailer_html
sub client_form_trailer_html {
# Images must be placed in the /Graphics sub-directory and must be
# referenced using $graphics_url:
#
# WebStore sets the value of $graphics_url based on the use of SSL.
print qq!
<\!-- PRINTED FROM: sub client_form_trailer_html in $pre_form_file -->
!; # DO NOT REMOVE - terminates "print qq!" command above
# Access sub view_modify_trailer_html in outlet.setup
&view_modify_trailer_html if $view_modify_trailer eq '2';
} # DO NOT REMOVE - End of sub client_form_trailer_html
# Undefine variables used only in this file.
# The WebStore script and it's program libraries never use uppercase and
# _ (underscore) in a variable name.
foreach ($Form0_4, $Form0_5) { undef $_ if defined($_) }
1; # DO NOT REMOVE
__END__
# WebStore sets the value of $graphics_url based on the use of SSL.
print qq!
<\!-- PRINTED FROM: sub pre_client_form_html in $pre_form_file -->
!; # DO NOT REMOVE - terminates "print qq!" command above
# Access sub pre_view_modify_html in outlet.setup
&pre_view_modify_html if $pre_view_modify eq '2';
} # DO NOT REMOVE - End of sub pre_client_form_html
#-----------------------------------------------#
# If $form_trailer = 1, append the form with the contents of
# sub client_form_trailer_html. Design the HTML code, copy and paste it
# below the PRINTED FROM: hidden comment line in sub form_trailer_html.
# Setting $form_trailer = '' disables access to sub form_trailer_html.
# Nothing is printed at the bottom of the form.
$form_trailer = '1'; # 1 = Access sub client_form_trailer_html
sub client_form_trailer_html {
# Images must be placed in the /Graphics sub-directory and must be
# referenced using $graphics_url:
#