# Perl Support File
# Secondary Form Variables
# Variables used by all scripts:  /Web_store/ws_global.setup
# File Permissions:  644  -rw-r--r--

############################################################################
#                           Form.Catalog.setup                             #
#==========================================================================#
# Copyright (c) 1996 - 2002, RDC Software                                  #
# WebStore@ratite.com   http://www.ratite.com/Perl/WebStore.shtml          #
# Version:  4.15.00     Date:  01/01/2002                                  #
#                                                                          #
# 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.#
#==========================================================================#
#                                                                          #
# Call secondary forms using one of the following query strings:           #
#                                                                          #
# ?form=Form.Catalog&cart_id=                                              #
# ?form=Form.Catalog&frontpage=Y&cart_id=                                  #
# ?form=Form.Catalog&page=frontpage.html&cart_id=                          #
# ?form=Form.Catalog&category=Page.html&cart_id=                           #
# ?form=Form.Catalog&category=DbaseCategory&cart_id=                       #
# ?form=Form.Catalog&category=DbaseCategory&page=Page.html&cart_id=        #
#                                                                          #
# The use of category=, frontpage=Y, and page= allows you to define the    #
# the HTML page or the database category to be loaded after forms          #
# submission.  The use of cart_id= is required to maintain the client's    #
# shopping cart file reference number.                                     #
#                                                                          #
# All form file names must end in '.setup'                                 #
# The script adds '.setup' to the file name received in the query string   #
# if the received file name does not end in '.setup'.                      #
#                                                                          #
#==========================================================================#
#        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.          #
############################################################################


# $mail_file is the | (pipe) delimited flatfile mailing list database
# consisting of e-mail addresses and names.  When a Reseller form is submitted,
# the reseller's e-mail address and name are added to $mail_file if the
# submitted e-mail address does not exist in $mail_file.

# WebStore adds '.list' to the filename defined in $mail_file if the
# filename does not end in '.list'.

# The mailing list defined in $mail_file in any secondary form file replaces
# the mailing list defined in $mail_file of the store's setup file,
# outlet.setup, for the script process which processes the secondary form
# submission.

# Example database record:  susan@cgicentral.net|Susan Smith

$mail_file = 'Free.Catalog.list';



# When $join_list = '1', resellers are added to the mailing list defined in
# $mail_file regardless of the use or condition of the form field 'joinlist'.

# Setting $join_list = '' disables automatic addition to the mailing list.
# A form field for 'joinlist' must be included on the form and the client
# must choose to be added to the mailing list.

# $join_list defined in any secondary form file replaces the value of $join_list
# defined in the store's setup file, outlet.setup, for the script process which
# processes the secondary form submission.

$join_list = '1';



# Other variables you may wish to redefine in this file include:

#    VARIABLE          FILE VARIABLE IS DEFINED IN
#
#    $admin_email      ws_global.setup
#    $company_email    ws_global.setup
#    $dns_lookup       ws_global.setup

#    @company          outlet.setup
#    $country_file     outlet.setup



#--------------------------------------------------------------------------#
#                                   Form
#--------------------------------------------------------------------------#


# %Form is a hash of arrays listing all form input fields for this form.

# EXAMPLE:  $Form{0}[5]
#
# {0}  An array's KEY value.  KEY values will be reference by their numeric
#      value in the explanations below (1, 2, 3, etc.).
#
# [5]  An array's element reference.  Element numeric values will be spelled
#      in the explanations below (one, two, three, etc.)
#
#      Specific arrays will be referenced as $Form{0}.
#
#      A specific element within a specific array will be referenced as
#      $Form{0}[5].

# Numeric array KEYS allow the Webstore script to sort the fields in ascending
# order for printing to the client's web browser, in the e-mail to the
# administrator, and the confirmation e-mail sent to the client.

# Arrays 1 - 10 are reserved and can not be used.

# Each form input field is printed within a table row preceded by a hidden
# HTML tag in the "Document Source" containing the field's name from each
# field's array element one:  <!-- Name -->
#
# Each form field table row also contains a named anchor <A NAME="10"></A>
# consisting of the field array's KEY.


# SPECIFIC FORM FIELD NAMES (Element zero)

# The functions for the form field names below are restricted to 'select',
# 'text', and 'password' input types.

# "country", exact match
# When a field's name equals "country", the script forces the field to required.

# "email", exact match
# When a field's name equals "email", the script forces the field to required
# and checks the field's contents for minimum e-mail address syntax,
# Text@Text.Text.  The domain name present in the e-mail address will be checked
# using nslookup according to the value of $dns_lookup in ws_global.setup.

# Ending in "email", case insensitive
# When a field's name ends in "email", case insensitive, the script checks the
# field's contents for minimum e-mail address syntax, Text@Text.Text.
# The domain name present in the e-mail address will be checked using nslookup
# according to the value of $dns_lookup in ws_global.setup.

# Ending in "img", case insensitive
# When a field's name ends in "img" case insensitive, the field's contents
# will be checked for a minimum of:  http://Text.Text/Page.xxx.
# xxx = .gif, .jpg, .jpeg, or .png.

# Ending in "imgexist", case insensitive
# When a field's name ends in "imgexist" case insensitive, the field's contents
# will be checked for a minimum of:  http://Text.Text/Page.xxx.
# xxx = .gif, .jpg, .jpeg, or .png.
# The image must exist before form submission will be accepted.
#
# The libwww-perl library is used to check the existence of the image url.
# If the libwww-perl library has not been installed on your server, the image
# url will not be checked for existence.
# Download libwww-perl:  http://search.cpan.org/search?module=LWP

# Ending in "name", case insensitive
# When a field's name ends in "name", the field's contents will be checked for
# a minimum of two alpha-numeric strings, separated by a space.

# "password1", exact match
# When a field's name equals "password1", the script forces the field to
# required and checks the field for minimum length of eight characters.

# "password1" and "password2", exact match of both field names
# Password verification will be performed if the array KEYS for these password
# fields are sequential, whole numbers (23 & 24, 31 & 32, 57 & 58, etc.) with
# "password1" preceding "password2".

# Ending in "url", case insensitive
# When a field's name ends in "url", case insensitive, the field's contents
# will be checked for a minimum of:  http://Text.Text

# Ending in "urlexist", case insensitive
# When a field's name ends in "urlexist", case insensitive, the field's contents
# will be checked for a minimum of:  http://Text.Text
# The url must exist before form submission will be accepted.
#
# The libwww-perl library is used to check the existence of the url.
# If the libwww-perl library has not been installed on your server, the url
# will not be checked for existence.
# Download libwww-perl:  http://search.cpan.org/search?module=LWP

# Ending in "urlpage", case insensitive
# When a field's name ends in "urlpage" case insensitive, the field's contents
# will be checked for a minimum of:  http://Text.Text/Page.xxx.
# xxx = .htm, .html, .phtml, or .shtml.

# Ending in "year", case insensitive, 'select' input type
# When a field's name ends in "year", case insensitive, the script will
# generate a drop down select element consisting of years (four digit format),
# spanning ten years from the current year.

#--------------------------------------------------------------------------#


# The contents of array 0 are used for the form's page header text and
# table width values.
#
# EXAMPLE:  Page Header Text Row
#
# KEY     zero      one             two     three   four   five   six
# '0' => ['center', 'Request Form', 'left', 'Text', '85%', '80%', '425'],
#
# '0':    The array's KEY (index number).
#
# zero:   Alignment attribute for text in element one.
#         Text in element one will be centered if element zero is set to ''.
#
# one:    Text printed in a table row at the top of the form page.
#         HTML code may be used.
#         The script prints form submission error messages below this row.
#         When submission error messages are printed, the contents of
#         element three are not printed to the web browser.
#
# two:    Alignment attribute for text in element three.  Text in element
#         three will be centered if element two is set to ''.
#
# three:  Text printed in a table row below element one's table row.
#         HTML code may be used.
#
# four:   Width attribute for the top of page table containing element one
#         and element three table rows.  Width may be a percentage of the
#         browser's window or pixel count.  If no value is placed in element
#         four, the script sets this table's width at '85%'.
#
# five:   Width attribute for section header tables (xxH).
#         Width may be a percentage of the browser's window or pixel count.
#         If no value is placed in element five, the script uses the value
#         present in element four.  If no value is placed in element four,
#         the script sets the table's width at '85%'.
#
# six:    Width attribute for tables containing form elements.
#         Width must be a 3 digit whole number.  If no value is placed in
#         element six or element six is mis-configured, the script sets the
#         width at '425' for these tables.
#
#
# NOTE:   If no text is placed in element three, configure as follows:
#
#         '0'  => ['center', 'Request Form', '', '', '85%', '80%'],
#
#         $Form{0} is optional and may be removed from %Form.
#         The script will set table widths as described above when
#         $Form{0} is not defined.  Text to be printed at the top
#         of the form may be placed in sub pre_form_html.

# END OF:  Array 0
#--------------------------------------------------------------------------#


# Array KEYS ending with H (xxH) are section headers.
#
# EXAMPLE:  Section Header
#
# KEY       zero      one                 two     three
# '10H' => ['center', 'Mailing Address', 'left', 'Text'],
#
# '10H':  The array's KEY (index number).
#
# zero:   Alignment attribute for text in element one.
#         Text in element one will be centered if element zero is set to ''.
#
# one:    Text printed in a table row at the top of the form.  The text is
#         also used in e-mail messages to subdivide form field data into
#         visual sections.
#         HTML code can not be used.
#
# two:    Alignment attribute for text in element three.  Text in element
#         three will be centered if element two is set to ''.
#
# three:  Text printed in a table row below element one's table row.
#         HTML code may be used.
#
#         An opening <TABLE> tag is printed for each Section Header array
#         detected, closing the previous </TABLE>.
#
# NOTE:   If no text is placed in element three, configure as follows:
#
#         '10H' => ['center', 'Mailing Address'],
#
# NOTE:   Elements zero and one are required.  If you remove all text from
#         element one, the script prints the following error message in
#         the table's row:
#
#                    No Header Text:  $Form{10H}[1]

# END OF:  Section Header
#--------------------------------------------------------------------------#


# Array KEYS ending with C (xxC) are text comment rows or spacing rows.
#
# EXAMPLE:  Comment Row
#
# KEY       zero    one
# '70C' => ['left', 'Please complete the survey information below.'],
#
# '70C':  The array's KEY (index number).
#
# zero:   Alignment attribute for text in element one.
#         Text in element one will be centered if element zero is set to ''.
#
# one:    Text printed in a table row with COLSPAN=3, the total number
#         of columns in form tables.  HTML code may be used.
#
#
# NOTE:   When text placed in a comment row exceeds 55 characters, the script
#         sets the row's width attribute to the value of $Form{0}[5] when
#         $Form{0}[5] is a decimal value.  When $Form{0}[5] is a percentage
#         value or it is set to '', the script sets width to 425.
#
#
# EXAMPLE:  Using Comment Array as a Space Row:
#
# '11C' => [],
#
# With no elements defined in a Comment Row, the script prints a table
# row with a height of 10, <TR><TD COLSPAN=3 HEIGHT=10> </TD></TR>.

# END OF:  Comment Row
#--------------------------------------------------------------------------#


# Array KEYS greater than or equal to 90 and ending with S (9xS) are for
# form submission buttons and associated text.
#
# EXAMPLE:  Submit Button Row
#
# KEY       zero
# '91S' => ['center',
#
#           one
#           '<INPUT TYPE="submit" NAME="chkform" VALUE="Submit Request">
#            <INPUT TYPE="reset" VALUE="Reset">
#           ',
#
#           two
#           'center',
#
#           three
#           qq!
#           Text
#         !],
#
# '91S':  The array's KEY (index number).
#
# zero:   Alignment attribute for the form buttons in element one.
#         Form buttons in element one will be centered in a table row if
#         element zero is set to ''.
#
# one:    Form submit buttons must be placed in this element.
#
#         A form submit button named "chkform" must exist in element one of a
#         %Form array greater than or equal to 90S or WebStore will not print
#         the contents of any array greater than or equal to 90.  When the
#         button is not detected, WebStore prints an error message at the top
#         of the page, informing you the form submit button did not exist in an
#         array greater than or equal to 90S.
#
# two:    Alignment attribute for text in element three.
#         Text in element three will be centered in a table row if element
#         two is set to ''.
#
# three:  HTML code and associated text are placed in this element.
#
#         Note the use of href anchors in element three, <a href="#40H"> and
#         <A HREF="#20">.  The script prints name anchors at the beginning of
#         each form input row which corresponds to the form input's array KEY.
#         You may add href anchors to point to any field printed to the web
#         browser.

# END OF:  Submit Button Row
#--------------------------------------------------------------------------#


# Form INPUT TYPES which may be defined in %Form include:
#
#              checkbox, password, radio, select, text, textarea


# EXAMPLE 1 of 2:  INPUT TYPE="checkbox"
#
# KEY      zero        one            two         three               four  five
# '21' => ['joinlist', 'Field Label', 'checkbox', 'Descriptive Text', '',   ''],
#
# '21':   The array's KEY (index number).
#
# zero:   <INPUT NAME="joinlist">
#
# one:    Descriptive text printed to e-mail messages.
#         HTML code can not be used.
#
# two:    <INPUT TYPE="checkbox">
#
# three:  Descriptive text printed in e-mail messages.
#         HTML code can not be used.
#
# four:   Required/Optional Field:  Not used
#         checkbox inputs are forced OPTIONAL regardless of the value
#         of element four.
#
# five:   Text printed in a table row below the form element in
#         the same column as the form element.  HTML code may be used.
#
#
# NOTE:   If you do not place text in element five, elements four and
#         five may be omitted:
#
# '21'  => ['joinlist', 'Join our mailing list?', 'checkbox', 'Yes'],
#
#         The use of  CHECKED~  is not allowed in checkbox inputs and
#         will be removed by the script if present.


# EXAMPLE 2 of 2:  INPUT TYPE="checkbox"
#
# KEY      zero        one  two         three                           four  five
# '21' => ['joinlist', '',  'checkbox', 'Add me to your mailing list', '',   ''],
#
# '21':   The array's KEY (index number).
#
# zero:   <INPUT NAME="joinlist">
#
# one:    Descriptive text printed in e-mail messages.
#         Not used in this example.
#         HTML code can not be used.
#
# two:    <INPUT TYPE="checkbox">
#
# three:  Descriptive text printed in e-mail messages.
#         HTML code can not be used.
#
# four:   Required/Optional Field:  Not used
#         checkbox inputs are forced OPTIONAL regardless of the value
#         of element four.
#
# five:   Text printed in a table row below the form element in
#         the same column as the form element.  HTML code may be used.
#
#
# NOTE:   If you do not place text in element five, elements four and
#         five may be omitted:
#
# '21' => ['joinlist', '', 'checkbox', 'Add me to your mailing list'],
#
#         The use of  CHECKED~  is not allowed in checkbox inputs.
#         CHECKED~  will be removed by the script if present.

# END OF:  INPUT TYPE="checkbox"
#--------------------------------------------------------------------------#


# EXAMPLE:  INPUT TYPE="password" and INPUT TYPE="text" are identical
#
# Field 12:  <INPUT NAME="name" TYPE="text" SIZE="30" MAXLENGTH="100">
#
# KEY      zero    one     two     three                        four  five
# '12' => ['name', 'Name', 'text', 'SIZE="30" MAXLENGTH="100"', 'R',  ''],
#
# '12':   The array's KEY (index number).
#
# zero:   <INPUT NAME="name">
#
# one:    Descriptive text printed left of the form element and
#         in e-mail messages.  HTML code can not be used.
#
# two:    <INPUT TYPE="text">
#
# three:  Attributes for the <INPUT TYPE> (size, maxlength, etc.)
#
# four:   Required:  Set to 'R'
#         Form submission is not accepted until field is completed.
#
#         Optional:  Set to '' or text may be included in element four.
#         When the length of text exceeds 20 characters, the text is placed
#         in a table row beneath the field.  HTML code may be used.
#         OPTIONAL text is printed in <FONT SIZE=1>.
#
# five:   Text printed in a table row below the form element in
#         the same column as the form element.  HTML code may be used.
#
#
# NOTE:   If a "text" field is OPTIONAL and you do not place text in
#         element five, elements four and five may be omitted:
#
#         '12' => ['name', 'Name', 'text', 'SIZE="30" MAXLENGTH="100"'],


# SCRIPT VERIFIED PASSWORD FIELDS:
#
#          <INPUT NAME="password1"> and <INPUT NAME="password2">
#
# '23' => ['password1', 'Password',       'password', 'SIZE="25" MAXLENGTH="35"', 'R'],
# '24' => ['password2', 'Password Again', 'password', 'SIZE="25" MAXLENGTH="35"', 'R'],
#
#         Password verification may be performed by using "password1" and
#         "password2" as <INPUT NAMES> for <INPUT TYPE="password">.
#
#         Password verification will be performed if the array KEYS for these
#         two password fields are sequential, whole numbers (23 & 24, 31 & 32,
#         57 & 58, etc.) with "password1" preceding "password2".
#
#         Password fields not named password1 and password2 will not be
#         verified.
#
#         Password verification requires the submitted value of password1 to
#         be a minimum of 8 characters.
#
#         Password fields not named password1 will not be checked for minimum
#         length of 8 characters.

# END OF:  INPUT TYPE="password" and INPUT TYPE="text"
#--------------------------------------------------------------------------#


# EXAMPLE:  INPUT TYPE="radio"
#
# KEY      zero     one          two      three                      four  five
# '73' => ['name', 'Desc Text', 'radio', 'Option1:Option2:Option3', 'R',  ''],
#
# '73':   The array's KEY (index number).
#
# zero:   <INPUT NAME="name">
#
# one:    Descriptive text printed left of the form element and
#         in e-mail messages.  HTML code can not be used.
#
# two:    <INPUT TYPE="radio">
#
# three:  Colon delimited listing of options.
#
# four:   Required field.  Set to '' if field is OPTIONAL
#
# five:   Text printed in a table row below the form element in
#         the same column as the form element.  HTML code may be used.
#
#
# NOTE:   If a "radio" field is OPTIONAL and you do not place text in
#         element five, elements four and five may be omitted:
#
# '73' => ['name', 'Desc Text', 'radio', 'Option1:Option2:Option3'],
#
#
#         To select an option's value as <OPTION CHECKED>, precede the
#         the option with  CHECKED~
#
# '73' => ['name', 'Desc Text', 'radio', 'Option1:CHECKED~Option2:Option3'],
#
#         Option2 will be printed as the <OPTION CHECKED> in the example above.

# END OF:  INPUT TYPE="radio"
#--------------------------------------------------------------------------#


# EXAMPLE:  INPUT TYPE="select"
#
# KEY      zero    one          two       three                      four  five
# '73' => ['name', 'Desc Text', 'select', 'Option1:Option2:Option3', 'R',  ''],
#
# '73':   The array's KEY (index number).
#
# zero:   <INPUT NAME="name">
#
# one:    Descriptive text printed left of the form element and
#         in e-mail messages.  HTML code can not be used.
#
# two:    <INPUT TYPE="select">
#
# three:  Colon delimited listing of options.
#
# four:   Required field.  Set to '' if field is OPTIONAL
#
# five:   Text printed in a table row below the form element in
#         the same column as the form element.  HTML code may be used.
#
#
# NOTE:   If a "select" field is OPTIONAL and you do not place text in
#         element five, elements four and five may be omitted:
#
# '73' => ['name', 'Desc Text', 'select', 'Option1:Option2:Option3'],
#
#
#
# NOTE:   To select an option's value as <OPTION SELECTED>, precede the
#         the option with  SELECTED~
#
# '73' => ['name', 'Desc Text', 'select', 'Option1:SELECTED~Option2:Option3'],
#
#         Option2 will be printed as the <OPTION SELECTED> in the example above.


# SCRIPT GENERATED SELECT FIELDS:
#
# '17' => ['province', 'Province', 'select', '', 'Canada only'],
#
# zero:   The script will generate a drop down select element consisting of
#         Canadian provinces whenever element zero ends in "province", case
#         insensitive.
#
#         Canadian provinces are derived from %provinces in
#         outlet.state_country.setup.
#
#         The script determines if the "province" field is required by the
#         country selected from the "country" field (Canadian citizens).
#
# three:  SELECTED~XXXX will print the province associated with element XXXX
#         from %provinces in outlet.state_country.setup (XXXX = 1000 - 1012).
#         In WebStore forms, element three should be set to ''.


# '18' => ['state',   'State',   'select', '', 'US citizens only'],
#
# zero:   The script will generate a drop down select element consisting of
#         states whenever element zero ends in "state", case insensitive.
#
#         States are derived from %states in outlet.state_country.setup.
#
#         The script determines if the "state" field is required by the
#         country selected from the "country" field (US citizens).
#
# three:  SELECTED~XX will print the state associated with element XX from
#         %states in outlet.state_country.setup (XX = 10 - 61).
#         In WebStore forms, element three should be set to ''.


# '19' => ['country', 'Country', 'select', 'SELECTED~319', 'R'],
#
# zero:   The script will generate a drop down select element consisting of
#         countries whenever element zero ends in "country", case insensitive.
#
#         When element zero equals "country", the field is forced to required
#         and element four is set to 'R'.
#
#         Countries are derived from %countries in outlet.state_country.setup.
#
#         US State/Country verification will be performed if the array KEYS for
#         the "state" and "country" fields are sequential, whole numbers
#         (18 & 19, 31 & 32, 57 & 58, etc.) with "state" preceding "country".
#
#         Canadian Province/Country verification will be performed if the array
#         KEYS for the "province" and "country" fields are whole numbers with a
#         difference of two (17 & 19, 30 & 32, 56 & 58, etc.) with "province"
#         preceding "country".
#
# three:  SELECTED~319 will print the country associated with element 319 from
#         %countries in outlet.state_country.setup.

# '45' => ['ccYear',  'Expiration Year', 'select', '', 'R'],
#
# zero:   The script will generate a drop down select element consisting of
#         years (four digit format), spanning ten years from the current year
#         whenever element zero ends in "year", case insensitive.
#
# three:  Element three is disabled in SCRIPT GENERATED year fields.


# END OF:  INPUT TYPE="select"
#--------------------------------------------------------------------------#


# EXAMPLE:  INPUT TYPE="textarea"
#
# KEY      zero        one        two         three                 four        five
# '58' => ['comment', 'Comments', 'textarea', 'ROWS="6" COLS="55"', 'Optional', ''],
#
# '58':   The array's KEY (index number).
#
# zero:   <INPUT NAME="comment">
#
# one:    Descriptive text printed in a table row above the form element
#         and in e-mail messages.  HTML code can not be used.
#
# two:    <INPUT TYPE="textarea">
#
# three:  Attributes for the <INPUT TYPE> (rows, cols, etc.)
#
# four:   Required field.  Set to '' if field is OPTIONAL
#
# five:   Text printed in a table row below the form element with COLSPAN=3.
#         HTML code may be used.
#
#         "textarea" input types are printed in a table row with COLSPAN=3.
#         Text in elements one and five are printed in table rows above and
#         below the "textarea" form element row (respectively).
#
# NOTE:   If a "textarea" field is OPTIONAL and you do not place text in
#         element five, elements four and five may be omitted:
#
# '58' => ['comment', 'Comments', 'textarea', 'ROWS="6" COLS="50" WRAP=PHYSICAL'],

# END OF:  INPUT TYPE="textarea"
#--------------------------------------------------------------------------#


# Determine the use of frames to set table widths in $Form{0}.
# $frameset_file is defined in outlet.setup.

# Using frames
if ($frameset_file) {
	# 95% for vertical frames, 575 for horizontal frames
	$Form0_4 = '95%';  # Table width:  Page header
	$Form0_5 = '500';  # Table width:  Section headers
}
# Not using frames
else {
	$Form0_4 = '575';  # Table width:  Page header
	$Form0_5 = '500';  # Table width:  Section headers
}



%Form = (

	         # Field 0: Form Page Header
	'0'   => ['center', $global_page_title.' - Free Catalog Request',
#	'0'   => ['center', 'RDC Software - Catalog Request Form',        # Same as above
	         # Comments below page header
	          'center',
	          qq!
	           <TABLE BORDER=0 CELLSPACING=3>
	           <TR><TD>${nc_fnt_tag}Your request will be processed within one business day of receipt.</FONT></TD></TR>
	           <TR><TD>${nc_fnt_tag}Fields marked <B>Required</B> must be completed before
	           <A HREF="#91S">submitting</A> your request.</FONT></TD></TR>
	           </TABLE>
	          !,
	          $Form0_4,  # Table width:  Page header
	          $Form0_5,  # Table width:  Section headers
	          '425'],    # Table width:  Form fields (decimal only)


	         # Field 10H: Section Header
	'10H' => ['center',   'Mailing Address'],
	'11'  => ['name',     'Name',            'text',   'SIZE="35" MAXLENGTH="100"', 'R'],
#	'12'  => ['company',  'Company',         'text',   'SIZE="35" MAXLENGTH="100"'],
	'13'  => ['addr1',    'Address 1',       'text',   'SIZE="35" MAXLENGTH="100"', 'R'],
	'14'  => ['addr2',    'Address 2',       'text',   'SIZE="35" MAXLENGTH="100"'],
#	'15'  => ['addr3',    'Address 3',       'text',   'SIZE="35" MAXLENGTH="100"'],
	'16'  => ['city',     'City',            'text',   'SIZE="35" MAXLENGTH="100"', 'R'],
	'17'  => ['province', 'Province',        'select', '', 'Canada only'],
	'18'  => ['state',    'State',           'select', '', 'US citizens only'],
	'19'  => ['country',  'Country',         'select', 'SELECTED~319', 'R'],
	'20'  => ['zip',      'Zip/Postal Code', 'text',   'SIZE="25" MAXLENGTH="30"',  'R'],
	'21'  => ['phone',    'Phone Number',    'text',   'SIZE="25" MAXLENGTH="30"',  'R'],
	'22'  => ['fax',      'Fax Number',      'text',   'SIZE="25" MAXLENGTH="30"'],
	'23'  => ['email',    'E-mail Address',  'text',   'SIZE="35" MAXLENGTH="100"', 'R',
	          '<FONT SIZE=1>A copy of this form is mailed to this address</FONT>'],
	'24'  => ['joinlist', 'Mailing List', 'checkbox', 'Add me to your mailing list'],
	'25C' => [],


#	'90H' => ['center', 'Submit Your Request'],
	'91S' => ['center',
	          '<INPUT TYPE="submit" NAME="chkform" VALUE="Submit Catalog Request">
	           <INPUT TYPE="reset" VALUE="Reset">
	        '],

); # DO NOT REMOVE - terminates %Form



# @opt_shipping is a list of the KEYS in %Form which correspond to the
# optioanlly 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 = ('51','52','53','54','55','56','57');



# 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 <BODY BGCOLOR or BACKGROUND> and
# <BODY TEXT> 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 = '0';



#--------------------------------------------------------------------------#
#                Subroutines:  Display Additional HTML
#--------------------------------------------------------------------------#


# If $pre_form = 1, preface the form with the contents of sub pre_form_html.
# Design the HTML code, copy and paste it below the PRINTED FROM: hidden comment
# line in sub pre_form_html.

# Setting $pre_form = '' disables access to
# sub pre_form_html.  Nothing is printed at the top of the form.

$pre_form = '1';   # 1 = Access sub pre_form_html


sub pre_form_html {

	# Images must be placed in the /Graphics sub-directory and must be
	# referenced using $graphics_url:

	#   <IMG SRC="$graphics_url/image.gif" BORDER=0 WIDTH=325 HEIGHT=40>

	# WebStore sets the value of $graphics_url based on the use of SSL.

	print qq!

<\!-- PRINTED FROM:  sub pre_form_html in $form -->

!; # 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_form_html



              #-----------------------------------------------#



# If $form_trailer = 1, append the form with the contents of
# sub 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 form_trailer_html


sub form_trailer_html {

	# Images must be placed in the /Graphics sub-directory and must be
	# referenced using $graphics_url:

	#   <IMG SRC="$graphics_url/image.gif" BORDER=0 WIDTH=325 HEIGHT=40>

	# WebStore sets the value of $graphics_url based on the use of SSL.

	print qq!

<\!-- PRINTED FROM:  sub form_trailer_html in $form -->

!; # DO NOT REMOVE - terminates "print qq!" command above

} # DO NOT REMOVE - End of sub form_trailer_html



# $email_subject used as SUBJECT of e-mail to customer and administrator.
# The client's identification number is appended to the SUBJECT:
#     RDC Software - Catalog Request: [980712040921989]

# $global_page_title = 'RDC Software', defined in the General Settings
# section of outlet.setup.

$email_subject = $global_page_title.' - Free Catalog Request';



# $pre_client_msg is printed at the beginning of the e-mail sent to the client.

# You may personalize the text in $pre_client_msg by using the client's
# name and e-mail address.

# Occurrences of  ~~FIRST~~  ~~FULL~~  ~~EMAIL~~  and  ~~STORE~~  found in
# $pre_client_msg will be replaced with:
#
#                    ~~FIRST~~    Client's first name
#                    ~~FULL~~     Client's full name
#                    ~~EMAIL~~    Client's e-mail address
#                    ~~STORE~~    WebStore URL

# Occurrences of ~~FIRST~~ are replaced with the full name instead of the first
# name if the full name ends in Co, Company, Corp, Corporation, Inc, or
# Incorporated (case insensitive, optional trailing period).

# Occurrences of ~~STORE~~ are replaced with $main_script_url, defined in
# ws_global.setup.  The client's username and password are included when
# name=value pairs for the client's username and password exist:
#
#     http://www.YourDomain.xxx/Web_store/ws400CS.cgi?uid=USERID&pwd=PASSWORD
#
# The client's username and password name=value pairs are provided by WebStore
# when using client form files, a filename is defined in $client_file (above).
#
# A name=value pair for store= is included when the required store setup file
# is not equal to $default_setup_file, defined in the WebStore script.
#
# A name=value pair for demo= is included when WebStore is operating in
# demonstration mode and $demo = '' in ws_global.setup.

# Space the contents of $pre_client_msg as you would like it to appear in
# the e-mail message.

# Paragraph line lengths should be equal to or less than the value of
# $message_columns.  Placing entire paragraphs on one line allows WebStore to
# split line lengths according to the value of $message_columns.

# Paragraphs containing ~~FIRST~~, ~~FULL~~, ~~EMAIL~~, and ~~STORE~~ should be
# on one line as the number of characters replacing these values can not be
# pre-determined.

# WebStore removes all leading and trailing whitespace from $pre_client_msg
# before line length formatting occurs.  One blank line is added to the end of
# $pre_client_msg.

# Setting $pre_client_msg = qq!!; disables printing $pre_client_msg to the
# client's confirmation e-mail.

# join("\n",@company)."\n". prints the contents of @company, defined in the
# Confirmation of Order HTML Page section of outlet.setup.

# if ($email_link_url) prints the contents of $email_link_url, defined in the
# General Settings section of outlet.setup.

if ($email_link_url) { $E_mail = "\n".'E-mail:  mailto:'.$email_link_url }
else { $E_mail = '' }

$pre_client_msg  = join("\n",@company)."\n".
	qq!

~~FULL~~:

Thank you for your catalog request ~~FIRST~~.  Your catalog will be mailed to you within one business day.

Please retain this e-mail for your records.\n$E_mail
Store:   ~~STORE~~
!; # DO NOT REMOVE - terminates $pre_client_msg



# $app_client_msg is printed at the end of the e-mail sent to the client.

# You may personalize the text in $app_client_msg by using the client's
# name and e-mail address.

# Occurrences of  ~~FIRST~~  ~~FULL~~  ~~EMAIL~~  and  ~~STORE~~  found in
# $app_client_msg will be replaced with:
#
#                    ~~FIRST~~    Client's first name
#                    ~~FULL~~     Client's full name
#                    ~~EMAIL~~    Client's e-mail address
#                    ~~STORE~~    WebStore URL

# Occurrences of ~~FIRST~~ are replaced with the full name instead of the first
# name if the full name ends in Co, Company, Corp, Corporation, Inc, or
# Incorporated (case insensitive, optional trailing period).

# Occurrences of ~~STORE~~ are replaced with $main_script_url, defined in
# ws_global.setup.  The client's username and password are included when
# name=value pairs for the client's username and password exist:
#
#     http://www.YourDomain.xxx/Web_store/ws400CS.cgi?uid=USERID&pwd=PASSWORD
#
# The client's username and password name=value pairs are provided by WebStore
# when using client form files, a filename is defined in $client_file (above).
#
# A name=value pair for store= is included when the required store setup file
# is not equal to $default_setup_file, defined in the WebStore script.
#
# A name=value pair for demo= is included when WebStore is operating in
# demonstration mode and $demo = '' in ws_global.setup.

# Space the contents of $app_client_msg as you would like it to appear in
# the e-mail message.

# Paragraph line lengths should be equal to or less than the value of
# $message_columns.  Placing entire paragraphs on one line allows WebStore to
# split line lengths according to the value of $message_columns.

# Paragraphs containing ~~FIRST~~, ~~FULL~~, ~~EMAIL~~, and ~~STORE~~ should be
# on one line as the number of characters replacing these values can not be
# pre-determined.

# WebStore removes all leading and trailing whitespace from $app_client_msg
# before line length formatting occurs.

# Setting $app_client_msg = qq!!; disables printing $app_client_msg to the
# client's e-mail.

$app_client_msg  = qq!
!; # DO NOT REMOVE - terminates $app_client_msg



# 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 ($E_mail, $Form0_4, $Form0_5) { undef $_ if defined($_) }



1; # DO NOT REMOVE

# End of file