#!/usr/bin/perl

# Change LINE 1 to point to your server's Perl5.
# Variables used by all scripts:       /Web_store/ws_global.setup
# Variables specific to ws_400CS.cgi:  /Databases/outlet.setup
# File Permissions:  755  -rwxr-xr-x

# NOTE:  If you change the filename "outlet.setup", change the value
#        of $default_setup_file below to reflect the file's new name.

############################################################################
#           ws400CS.cgi  -  VERSION: 4.14.02 CS - Frames Support           #
############################################################################

# Copyright (c) 1996 - 2001, RDC Software
# 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

# Created:  07/30/96        Last Modified:  05/13/2001
# WebStore@cgiCentral.net   http://www.cgiCentral.net
# RDC Software, Route 3, Box 29B, Grapeland, TX 75844, USA

# This copyright notification can not be altered or removed from this file.

#==========================================================================#

# ws400CS.cgi is a perl script for UNIX systems which allows
# you to sell merchandise over the Internet via web browsers.

# If your domain has a specific directory configured for perl scripts, such
# as cgi-bin, place all .cgi files and ws_global.setup in the cgi-bin
# directory, otherwise, the .cgi files and ws_global.setup may be left in
# the /Web_store directory or placed in a directory of your choosing.

# The /Web_store directory and all sub-directories must be placed in a
# directory which can parse HTML files and output graphic files to the
# http daemon.

# The directory which is accessed with the URL  http://www.YourDomain.xxx
# or any sub-directory under this directory is normally the correct location
# for the /Web_store directory structure.

# Perl scripts can not be placed in any directory assigned to MS Frontpage.

#==========================================================================#
# BUTTOM IMAGE TYPES IN WEBSTORE
#
# For details on <INPUT TYPE="image"> in WebStore (and where to place them),
#
#               SEARCH FOR:   **Buttom Images in WebStore**

############################################################################
# DEFINE VARIABLES


# $default_setup_file is the setup file used if the URL pointing to
# ws400CS.cgi does not contain a name=value pair for 'store' in the
# query string:  ws400CS.cgi?store=outlet

$default_setup_file = 'outlet.setup';



# If you change the filename of the global setup file,
# change:  'ws_global.setup'

&file_status(__FILE__, __LINE__, 'req', './ws_global.setup');



# $main_script_url is the absolute NON SECURE URL for ws400CS.cgi.
# This script uses $main_script_url for all processes until the
# client goes to the order form.
# If the client's web browser is not capable of SSL transmissions,
# $main_script_url is used to construct the <FORM ACTION> used on
# the order form.
# If you change the filename of this script, change  'ws400CS.cgi'

$main_script_url .= '/'.'ws400CS.cgi';



# $ssl_url is the absolute SECURE URL for ws400CS.cgi.
# If $use_ssl=1, and the client's web browser is capable of SSL
# transmissions, this script will use $ssl_url to construct the
# <FORM ACTION> used on the order form.
# If you are not using SSL, set $ssl_url equal to $main_script_url.
# If you change the filename of this script, change  'ws400CS.cgi'

$ssl_url         .= '/'.'ws400CS.cgi';


# End DEFINE VARIABLES
############################################################################
$version = '4.14.02';

$|=1; # Enable command buffering - force fflush(3) after every print

if (defined($ENV{'REQUEST_METHOD'})) { %in = &ReadParse }
# Eliminate perl warning:  Use of uninitialized value
else { foreach ('category','chkClientAccess','frames','getClientForm','mdyClientRecord','page','pcat','pwd','uid') { $in{$_} = '' } }


if ($in{'store'}) { $store = $in{'store'} } else { $store = $default_setup_file }
# Accept filename without .setup extension
$store .= '.setup' if $store !~ /\.setup$/;

&file_status(__FILE__, __LINE__, 'req',
	$data_directory.'/'.$store,
	$libr_directory.'/'.'WSLib.pl',
);
$script_url = $main_script_url;


if ($password_file) {
	$real_clnt_dir = $clnt_directory; $clnt_directory = $rstr_directory;
	$real_cart_dir = $cart_directory; $cart_directory = $rcrt_directory;
	$client_file = $password_file;
	if ($in{'getClientForm'}) { $in{'mdyClientRecord'} = 'Y'; $in{'getClientForm'} = ''; }
}
else { $real_cart_dir = $real_clnt_dir = $def_username = $def_password = '' }


# Demo mode
if (defined($demo) && ($demo || defined($in{'demo'}))) {
	if ($demo_form_file) {
		foreach (reverse sort keys %form_files) {
			push(@{ $form_files{$_+1} },($demo_form_file,'Demonstration Order Form'));
			last;
		}
	}
	if ($demo) { $in{'demo'} = $demo = 'Y' } else { $in{'demo'} = $demo = '1' }
}
else { $demo = '' }


if (defined($in{'form_file'}) && $in{'form_file'}) { $a = $in{'formfile'} = $in{'form_file'}; }
elsif ((defined($in{'formfile'}) && $in{'formfile'})) { $a = $in{'formfile'} }
else { foreach (sort keys %form_files) { $a = $in{'formfile'} = $_; last; } }
$form_file = $form_files{$a}[0]; undef $a;
$form_file =~ s/\s+//g;
if (scalar(keys %form_files) > 1) { $form_files = 'Y' } else { $form_files = '' }


# Accept filenames without .setup extension
foreach ($client_file,$country_file,$default_setup_file,$form_file,$pre_form_file,$reseller_file) {
	$_ .= '.setup' if $_ ne '' && $_ !~ /\.setup$/
}


# Common font and color attributes
$data_font      = '2' if !$data_font   || $data_font   !~ /^\d+$/;
$header_font    = '3' if !$header_font || $header_font !~ /^\d+$/;
$dt_font        = $data_font;
$data_font      = qq!SIZE="$data_font"!;
$header_font    = qq!SIZE="$header_font"!;
$data_face      = qq! FACE="$data_face"!         if $data_face      ne '';
$header_face    = qq! FACE="$header_face"!       if $header_face    ne '';
$border_bkg_clr = qq! BGCOLOR="$border_bkg_clr"! if $border_bkg_clr ne '';
$data_bkg_clr   = qq! BGCOLOR="$data_bkg_clr"!   if $data_bkg_clr   ne '';
$dsc_hr_bkg_clr = qq! BGCOLOR="$dsc_hr_bkg_clr"! if $dsc_hr_bkg_clr ne '';
$header_bkg_clr = qq! BGCOLOR="$header_bkg_clr"! if $header_bkg_clr ne '';
$modify_bkg_clr = qq! BGCOLOR="$modify_bkg_clr"! if $modify_bkg_clr ne '';
$data_fnt_clr   = qq! COLOR="$data_fnt_clr"!     if $data_fnt_clr   ne '';
$dsc_hr_fnt_clr = qq! COLOR="$dsc_hr_fnt_clr"!   if $dsc_hr_fnt_clr ne '';
$header_fnt_clr = qq! COLOR="$header_fnt_clr"!   if $header_fnt_clr ne '';
$modify_fnt_clr = qq! COLOR="$modify_fnt_clr"!   if $modify_fnt_clr ne '';
$dh_fnt_tag     = "<FONT $data_font$dsc_hr_fnt_clr$data_face>";
$dt_fnt_tag     = "<FONT $data_font$data_fnt_clr$data_face>";
$hr_fnt_tag     = "<FONT $header_font$header_fnt_clr$header_face>";
$hrd_fnt_tag    = "<FONT SIZE=2$header_fnt_clr$header_face>";
$md_fnt_tag     = "<FONT $data_font$modify_fnt_clr$data_face>";
$nc_fnt_tag     = "<FONT $data_font$data_face>";
$smdt_fnt_tag   = "<FONT SIZE=1$data_fnt_clr$data_face>";
$error_bkg_clr  = ' BGCOLOR="#000000"';
$error_fnt_clr  = ' COLOR="#FFFF00"';
$error_fnt_tag  = "<FONT $data_font$error_fnt_clr$data_face>";
$search_border  = $table_border;


$SPACE      = '&nbsp;';
$table_open = "<TABLE BORDER=$border CELLPADDING=$CELLPADDING CELLSPACING=0>";
$c_col_spc  = "<TD WIDTH=$spc_width>$SPC</TD>";
$ch_col_spc = "<TD WIDTH=$spc_width>$SPACE</TD>";
$m_col_spc  = "<TD WIDTH=$modify_spc_width>$SPC</TD>";
$mh_col_spc = "<TD WIDTH=$modify_spc_width>$SPACE</TD>";


# Absolute addressing
$data_file1 = $data_file;
$data_file  = $data_directory.'/'.$data_file;
$count_file = $stat_directory.'/'.$count_file  if $count_file;  # Access counter


# Client order form files
if ($client_file) { $access_attempts = '3' if $access_attempts < 2 || $access_attempts > 10 }
else { $client_delete_age = $in{'pwd'} = $in{'uid'} = $in{'client_form'} = '' }


# Browser type
$browser = $ENV{'HTTP_USER_AGENT'};
$in{'no_search'} = $in{'ns'} = $in{'submit_search'} = '' if !$search_engine;
if ($frameset_file) { $target = ' TARGET="_top"' } else { $target = '' }
&dbase_error if @duplicate_ids;


# Currency
if (defined($currency)) { $currency =~ s/\s{2,}/ /g; $currency =~ s/^\s+|\s+$//g; }
else { $currency = '' }
$currency = '$' if $currency !~ /\S+/;
$currency .= ' ' if length($currency) > 1;


# Buy Item - View Item
$in{'buy_item'} = $in{'view_item'} = '' if $item_fld_num !~ /^\d+$/;


if ($in{'cart_id'}) {
	$cart_id   = $in{'cart_id'};
	$user_cart = $cart_directory.'/'.$cart_id.'.cart';
	$processed_cart = $cart_directory.'/'.'PROC-'.$cart_id.'.cart';

	if ($in{'nc'} eq $cart_id && $in{'frames'} eq 'main') {
		my ($a);
		delete $in{'nc'}; delete $in{'frames'}; $del_carts = 'Y';
		if ($in{'nc_category'}) { $in{'category'} = $in{'nc_category'}; delete $in{'nc_category'}; }
		elsif (!$in{'nc_add_cart'} && $in{'nc_page'})  { $in{'category'} = $in{'nc_page'}; delete $in{'nc_page'}; }
		foreach (sort keys %in) {
			if ($_ =~ /^nc_/) {
				$a = $_; $a =~ s/^nc_//; $in{$a} = $in{$_}; delete $in{$_};
			}
		}
	}
	$frame_access = 'N';
	&reseller;

	# Expired or client modified cart
	&error('E') if !-e $user_cart;
	# Security details incomplete
	&error('S') if $password_file && (!$in{'uid'} || !$in{'pwd'});

	# Cart status
	$modify = $order1 = $order2 = '';
	++$modify if $in{'submit_changes'} || $in{'submit_deletion'} || $in{'delete_item'} || $in{'modify_cart'};
	++$order1 if $in{'security'} || $in{'sslForm'};
	++$order2 if $in{'chkForm'} || $in{'faxOrder'} || $in{'chgShip'};

	if ($modify.$order1.$order2) {
		# Empty cart
		if (-z $user_cart) {
			if ($order1.$order2) { $msg = $button_4_txt }
			elsif ($in{'modify_cart'}) { $msg = $button_1_txt }
			else { $msg = 'Modify Cart' }
			&frontpage("<I>$msg</I> not available: $SPACE$SPACE Your shopping cart is empty $SPACE");
		}
		# Minimum order value
		elsif ($in{'security'}) {
			&get_form($form_file);
			&count_cart_rows;
			&frontpage("<I>$button_4_txt</I> not available: $SPACE$min_order_msg")
			if $minimum_order;
		}
		@name_values = ();
	}

	$mozilla_use_ssl = '';
	if ($use_ssl && !$in{'no_ssl'}) {
		if ($browser =~ /^Mozilla/) { ++$mozilla_use_ssl }
		elsif ($use_ssl eq '1') { $use_ssl = '2' }

		# SSL <FORM ACTIONS>
		if ($in{'sslForm'} eq '1' || $order2) {
			$graphics_url = $ssl_graphics_url; $main_script_url = $ssl_url; &print_cont;
		}
		elsif (!$order1) { &print_cont }
	}
	else {
		$in{'sslForm'} = '1' if $in{'no_ssl'} =~ /^N/;
		&print_cont; $in{'no_ssl'} = 'Y';
	}
}
# Assign cart id
else {

	&print_cont;

	# Referring page
	my $refer = '';
	if ($in{'rfw'}) { $refer = $in{'rfw'} }
	elsif ($in{'ref'}) { $refer = $in{'ref'} }
	elsif ($ENV{'HTTP_REFERER'}) {
		$refer = $ENV{'HTTP_REFERER'};
		$refer = (split(/\#/,$refer))[0] if $refer =~ /\#/;
		$refer = (split(/\?/,$refer))[0] if $refer =~ /\?/;
	}
	$in{'rfw'} = $refer;
	if ($log_file && $refer && $refer ne $main_script_url) {
		push(@name_values,'ref'); $in{'ref'} = $refer;
	}
	elsif ($in{'ref'}) { undef $in{'ref'} }

	&reseller;

	# Prevent invalid form access
	foreach (
		'chgShip','chkForm','delete_item','faxOrder','modify_cart','name_vals','noLoad',
		'no_ssl','security','sslForm','submit_changes','submit_deletion') {
		undef $in{$_} if defined($in{$_})
	}

	if ($in{'buy_item'}) { push(@name_values,'buy_item') }
	elsif ($in{'view_item'}) { push(@name_values,'view_item') }
	elsif ($in{'add_cart'}) {
		foreach (keys %in) { push(@name_values,$_) if $_ =~ /^\d+$|^[d]{1,2}[12]{1}_\d+$|^item_id_/ }
		if (@name_values) { push(@name_values,'add_cart') } else { delete $in{'add_cart'} }
	}
	elsif ($in{'submit_search'}) {
		push(@name_values,'price_arg','price_val','product_arg','submit_search','text_arg','text_val')
	}

	if ($in{'frontpage'} && !$password_file) {
		if (!$in{'cd'}) { &get_form($form_file); &del_vars('OrderForm',$form_file,'Y'); }
	}
	elsif ($password_file || ($client_file &&
	((defined($in{$usr_fld_name}) && $in{$usr_fld_name} ne '') ||
	(defined($in{$pwd_fld_name}) && $in{$pwd_fld_name} ne '')  || $in{'uid'} ne '' || $in{'pwd'} ne '' ||
	 "$in{'getClientForm'}$in{'mdyClientRecord'}$in{'chkClientAccess'}" ne '' || defined($in{'client_form'})))) {

		$access_msg = $no_client = $cart_id = '';

		# Disable error messaging - first access
		if (!defined($in{$usr_fld_name}) && !defined($in{$pwd_fld_name}) && !defined($in{'uid'}) && !defined($in{'pwd'})) {
			$first_access = 'Y'
		}
		elsif (defined($in{'client_form'})) {
			$first_access = '0';
			foreach ($usr_fld_name,$pwd_fld_name,'uid','pwd') {
				if (defined($in{$_}) && $in{$_} !~ /\w+/) { undef($in{$_}); ++$first_access; }
				elsif (!defined($in{$_})) { ++$first_access }
			}
			$first_access = '' if $first_access != 4;
		}
		delete $in{'client_form'};

		&get_form($client_file);
		$in{'uid'} =~ s/\s+//g if defined($in{'uid'});
		$in{'pwd'} =~ s/\s+//g if defined($in{'pwd'});

		if ($password_file) {
			$in{'uid'} = $in{$usr_fld_name}
			if (defined($in{$usr_fld_name}) && ($in{$usr_fld_name} && !$in{'uid'} || $in{$usr_fld_name} eq $def_username));
			$in{'pwd'} = $in{$pwd_fld_name}
			if (defined($in{$pwd_fld_name}) && ($in{$pwd_fld_name} && !$in{'pwd'} || $in{$pwd_fld_name} eq $def_password));
			if ($def_username ne '' && $def_password ne '' && $in{'uid'} eq $def_username && $in{'pwd'} eq $def_password) {
				$in{'ud'} = $in{'uid'}; $in{'pd'} = $in{'pwd'};
				$in{'uid'} = $in{'pwd'} = $in{'RetrieveRecord'} = $in{'chkClientAccess'} = '';
				$getClientForm = 'Y';
			}
		}
		else { $button_2 = qq!\n<INPUT TYPE="image" SRC="$graphics_url/frontpage.gif" BORDER="0" NAME="frontpage" VALUE="$button_2_txt"> ! }

		if ($in{'RetrieveRecord'} && !&get_client_record('Y')) {
			&prtClientForm('ClientAccess', %ClientAccess) if $r_attempts > 0;
		}
		elsif ($in{'mdyClientRecord'} && &get_client_record('Y')) {
			&prtClientForm('ClientForm', %ClientForm)
		}

		if ($in{'chkClientAccess'}) { &chkClient('ClientAccess', %ClientAccess) }
		if ($in{'chkClientForm'}) { &chkClientForm() }
		if ($in{'getClientForm'} || $getClientForm) {
			if ($password_file) {
				$in{'uid'} = $in{$usr_fld_name} = '' if $in{$usr_fld_name} eq $def_username && $def_username ne '';
				$in{'pwd'} = $in{$pwd_fld_name} = '' if $in{$pwd_fld_name} eq $def_password && $def_password ne '';
				$in{'ud'} = $in{'pd'} = '';
			}
			elsif ($in{'getClientForm'}) { &get_client_record() }

			if ($in{'getClientForm'} || $getClientForm eq 'Y') { &prtClientForm('ClientForm', %ClientForm) }
			elsif ($password_file) { &access_denied }
			else { &del_vars() }
		}
		elsif ($chkClientAccess || $no_client || !&get_client_record('Y')) {
			if ($r_attempts > 0) { &prtClientForm('ClientAccess', %ClientAccess) }
			elsif ($password_file) { &access_denied }
			else { &del_vars() }
		}
		else { &del_vars('ClientAccess', %ClientAccess) }
	}

	# Check files for Perl errors -  Telnet or  ?env=  for web browser
	elsif (defined($in{'env'}) || !defined($ENV{'REQUEST_METHOD'})) {
		$cart_id = ''; $in{'env'} .= '';
		&file_status(__FILE__, __LINE__, 'req',
			$libr_directory.'/'.'WSForms.pl',
			$data_directory.'/'.$country_file,
			$data_directory.'/'.$form_file,
		);

		my $file = '';
		if ($in{'env'} =~ /authorizenet/i) { $file = 'WSAuthorizeNet.pl' }
		elsif ($in{'env'} =~ /surepay/i) { $file = 'WSSurepay.pl' }
		elsif ($merchant_file =~ /authorizenet/i) { $file = 'WSAuthorizeNet.pl' }
		elsif ($merchant_file =~ /surepay/i) { $file = 'WSSurepay.pl' }
		&file_status(__FILE__, __LINE__, 'req', $libr_directory.'/'.$file) if $file;
		&del_vars('OrderForm',$form_file);
	}
	# Check system files
	&system_files;

	# Assign cart id
	&date_time;
	my ($a, $b, $cartID);
	$cartID  = sprintf("%02d%02d%02d%02d%02d%05d",$year,$mon,$mday,$hour,$min,$$);
	$cart_id = $cartID;

	&make_dir($cart_directory, '777')
	if $password_file && !-e $cart_directory && $real_cart_dir && -e $real_cart_dir;

	# Check cart id for uniqueness
	$a = '0';
	while (-e $cart_directory.'/'."$cart_id.cart") {
		&file_error(
			'System Error in Shopping Cart Routine',
			'<B>Can not create unique shopping cart file after 5 attempts.</B>',
			"$cart_id.cart already exists in $cart_directory.",
			'Error occurred at LINE '.__LINE__.' in '.__FILE__.'.',
			&file_perm('666',"$cart_id.cart")
		) if $a == 5;
		srand (time|$$);
		$b = int(rand(1000));
		$cart_id = $cartID.'-'.$b;
		++$a;
	}

	$user_cart = $cart_directory.'/'.$cart_id.'.cart';
	$cart = ''; &write_cart;

	$in{'no_search'} = $in{'ns'} = 'Y' if $in{'no_search'} || $search_engine eq '2';

	# Preserve possible incoming query string - Frameset loading
	# Pass specific function for "main" frame to frameset query strings
	if ($frameset_file) {
		if ($in{'frames'} eq 'frameset' && $in{'category'} =~ /\.htm[l]*$/i) {
			$frame_file = $in{'category'};
			delete $in{'frames'}; delete $in{'category'};
		}
		else { $frame_file = $frameset_file }

		if ($in{'frames'} ne 'frameset' &&
		    $in{'category'} ne $frameset_file && $in{'page'} ne $frameset_file && $in{'pcat'} ne $frameset_file) {
			$in{'nc'} = $cart_id;
			if (defined(@name_values)) {
				foreach (sort @name_values) {
					$in{'no_search'} = $in{'ns'} = '' if $_ eq 'submit_search';
					if (defined($in{$_})) { $in{'nc_'.$_} = &convert_hex($in{$_}); delete $in{$_}; }
				}
			}
			foreach ('category','d1','d2','dbase_chk','frontpage','item_id','item_pr','rsc_nf','page','pcat') {
				$in{'nc_'.$_} = &convert_hex($in{$_}) if defined($in{$_}) && $in{$_} ne ''
			}
			if ($in{'frames'} eq 'Y') { $in{'nc_frames'} = 'Y'; delete $in{'frames'}; }
			if ($in{'form'}) { $in{'nc_form'} = $in{'form'}; delete $in{'form'}; }
		}
		$frame_access = 'Y';
	}
	else { $frame_access = 'N' }
	$new_cart = ''; undef(@name_values); $del_carts = 'Y';
}


#==========================================================================#
#                      **Buttom Images in WebStore**
#==========================================================================#
#
#      INPUT TYPES USING IMAGES MUST BE PLACED BELOW THESE COMMENTS
#
# The commands above this line determine the value of $graphics_url
# when this script is configured for use with SSL.
#
#==========================================================================#
#                   "Add to Cart" BUTTOM IMAGE EXAMPLE
#
# $button_5 = qq!\n<INPUT TYPE="image" SRC="$graphics_url/add_cart.gif" BORDER=0 NAME="add_cart" VALUE="$button_5_txt"> !;
#
#==========================================================================#
#
# If you use image buttons which require a secure URL (https://),
# set   <SRC="$graphics_url/ImageFilename">   in this script.
#
#
# If you do not use SSL, the SRC attribute may be relative:
#
#                      SRC="Graphics/ImageFilename"
#
# Relative location of an image file is "relative to" the location of
# the WebStore script.
#
# To replace buttons, search for:   <INPUT TYPE="submit"
# and replace with all appropriate  <INPUT TYPE="image" attributes.
#
# The WebStore script determines the proper value for $graphics_url based
# on the settings of $ssl_url, $graphics_url, and $ssl_graphics_url.
#
#==========================================================================#


$button_1 = $button_2 = $button_3 = $button_4 = $button_5 = '';
# No duplicated "View Cart", "Front Page", or "Order Form" buttons for frames
if (($frameset_file && $duplicate_buttons) || !$frameset_file) {
	$button_1 = qq!\n<INPUT TYPE="image" SRC="$graphics_url/viewcart.gif" BORDER="0" NAME="modify_cart" VALUE="$button_1_txt"> !;
	$button_2 = qq!\n<INPUT TYPE="image" SRC="$graphics_url/frontpage.gif" BORDER="0" NAME="frontpage" VALUE="$button_2_txt"> !;
	$button_4 = qq!\n<INPUT TYPE="image" SRC="$graphics_url/checkout-A.gif" BORDER="0" NAME="security" VALUE="$button_4_txt"> !;
}

$item_id = $in{'item_id'}; $pcat = $in{'pcat'};
if ($in{'page'} =~ /\.htm[l]*$/i) { $page = $in{'page'} } else { $page = $in{'page'} = '' }

$button_3 = qq!\n<INPUT TYPE="image" SRC="$graphics_url/previous.gif" BORDER="0" NAME="category_page" VALUE="$button_3_txt"> !
if ($page && $page ne $frontpage_file && $page ne $search_tips) || ($pcat && $pcat ne $frontpage_file);

$button_5 = qq!\n<INPUT TYPE="submit" NAME="add_cart" VALUE="$button_5_txt"> !
if !$add_cart_button;

$rst_button = qq!<INPUT TYPE="image" SRC="$graphics_url/reset.gif" BORDER="0"  NAME="reset" VALUE="Reset">!;
$max_items  = '5' if $max_items == 0 || $max_items !~ /^\d+$/;


if ($in{'no_search'} && !$in{'frontpage'}) {
	$s_engine = $search_engine;
	$search_engine = $in{'submit_search'} = $in{'search'} = '';
}

# Preserve category paging values
if ($in{'cpage'}) {
	$cpage       = $in{'cpage'};
	$next        = $in{'next'};
	$previous    = $in{'previous'};
	$curr_item   = $in{'curr_item'};
	$total_items = $in{'total_item'};
	$first       = $in{'first'};
}
# Preserve search engine values
elsif ($in{'submit_search'} || $in{'search'}) {
	$search      = $in{'search'};      # Active Search
	$text_val    = $in{'text_val'};    # Text for Search
	$text_arg    = $in{'text_arg'};    # Phrase, Keywords Search
	$price_val   = $in{'price_val'};   # Price value
	$price_arg   = $in{'price_arg'};   # Equal To, Greater Than, Less Than
	$product_arg = $in{'product_arg'}; # Categories
	$next        = $in{'next'};        # Submit - Display Next Chunk
	$previous    = $in{'previous'};    # Submit - Display Previous Chunk
	$curr_item   = $in{'curr_item'};   # End Current Displayed Chunk
	$total_items = $in{'total_item'};  # Total Items - Current Search
	$first       = $in{'first'};       # First Item  - Last Display Chunk
}
else { $price_val = $text_val = '' }


############################################
# View Item, Buy Item, Add to Cart

$cart_error = $change_qty = '';

# View Item
if ($in{'view_item'}) { &check_page; &disp_sale_items; }
# Buy Item
elsif ($in{'buy_item'}) {

	&check_page;
	&check_cart;
	my (@ct_row, @CART1, $row);
	@CART1 = ();

	# Go through database
	&read_open($data_file);
	while (<FILE>) {
		s/\s+$//;
		next if /^$|^COMMENT:/i;
		if (&item_row($_) && $in{'buy_item'} eq $db_row[$item_fld_num]) {

			# Display items with drop down select values
			if ($db_row[0] =~ /\w+/ || $db_row[1] =~ /\w+/) {
				$in{'category'} = $db_id_num;
				push(@buy_item,$_); close(FILE); &disp_sale_items;
			}

			# Check list of items
			$modified = '';
			if ($cart) {
				while (@CART) {
					$row = shift(@CART);
					@ct_row = split(/\|/,$row);
#qqq
					if ($dbase_id_fld_num =~ /\d+/) { $ctdb_id_num = $ct_row[$dbase_id_fld_num+1] }
					else { $ctdb_id_num = $ct_row[$#ct_row-1] }

					if ($db_id_num eq $ctdb_id_num) {
						$item_qty = shift(@ct_row);
						++$item_qty;
						unshift(@ct_row,$item_qty);
						$row = join('|',@ct_row);
						++$modified;
					}
					push(@CART1,$row);
				}
				@CART = @CART1; @CART1 = ();
			}
			# Item added to cart
			push(@CART,'1|'.&filter_fields) if !$modified;
			close(FILE);

			$cart = join('',@CART);
			&write_cart;
			# Send client to View/Modify page
			&change_quantity if !$display_category;
			&frontpage if !$in{'category'};
			# Send client to Category page
			&disp_sale_items;
		} # End if (&item_row($_))
	} # End while (<FILE>)
	close(FILE);

	&frontpage("Item <I>$in{'buy_item'}</I> not available in <I>$data_file1</I> $SPACE")
	if !$in{'category'} || $in{'category'} eq $frontpage_file;

	$cart_error = &cart_msg('Item',"<I>$in{'buy_item'}</I> not available in <I>$data_file1</I>");
	&disp_sale_items;
}

# Add to Cart
elsif ($in{'add_cart'}) {

	if ($item_id || defined($search) || $in{'category'} ne '') { $no_category = '' }
	else { $no_category = '1' }

	# Check for positve integers
	if (!&check_keys) {
		$cart_error = &cart_msg($button_5_txt,'No item selected for purchase');
		delete $in{'add_cart'};
		if ($in{'category'} || $search) { &disp_sale_items }
		elsif (defined(%no_items)) { %items = %no_items }
		elsif (!defined(%items)) { &frontpage }
	}


	&check_cart;
	my ($a, @ct_row, @CART1, $row);
	@CART1 = ();

	# Go through database
	&read_open($data_file);
	while (<FILE>) {
		s/\s+$//;
		next if /^$|^COMMENT:/i;
		if (&item_row($_) && defined($items{$db_id_num})) {
			if ($no_category) {
				$in{'category'} = $db_row[$category_fld_num];
				$no_category = '';
				if (defined(%no_items)) { close(FILE); &disp_sale_items; }
			}

			# Check list of items
			# Construct color - size fields
			$e = 'dd1_'.$db_id_num; $f = 'dd2_'.$db_id_num;

			# Submission error check
			push(@{ $cart_errors{$db_id_num} },qq!<A HREF="#$db_id_num">No $field_names[0] Selected</A>!)
			if $db_row[0] =~ /\w+/ && !$in{$e};
			push(@{ $cart_errors{$db_id_num} },qq!<A HREF="#$db_id_num">No $field_names[1] Selected</A>!)
			if $db_row[1] =~ /\w+/ && !$in{$f};

			# Item Page Error
			if (defined($item_id) && $item_id eq $db_id_num) {
				$dd_hdr1 = $dropdowns1 = $drop_down_error1 = '';
				if ($db_row[0] =~ /\w+/ && (!defined($in{'d1'}) || $in{'d1'} eq '')) {
					$dd_hdr1 = $field_names[0];
					$dropdowns1 = 'No d1= in query string';
				}
				if ($db_row[1] =~ /\w+/ && (!defined($in{'d2'}) || $in{'d2'} eq '')) {
					if ($dd_hdr1) { $dd_hdr1 .= ' and '; $dropdowns1 .= " $SPACE$SPACE "; }
					$dropdowns1 .= 'No d2= in query string';
					$dd_hdr1 .= $field_names[1];
				}

				if ($dd_hdr1) {
					$a = '';
					foreach ('category','page','pcat','item_pr','item_id','d1','d2') {
						$a .= '&'.$_.'='.$in{$_} if defined($in{$_})
					}
					$a =~ s/^&/?/;
					$dropdowns1 = "<FONT SIZE=1$data_face>$dropdowns1<BR>\n\t".&convert_ext($a).
					             "<BR>\n\tRecord $item_id in $data_file1: $SPACE$SPACE ";
					$dropdowns1 .= $field_names[0].' = ';
					if ($db_row[0] ne '') { $dropdowns1 .= $db_row[0] } else { $dropdowns1 .= 'NONE' }
					$dropdowns1 .= " $SPACE$SPACE ".$field_names[1].' = ';
					if ($db_row[1] ne '') { $dropdowns1 .= $db_row[1] } else { $dropdowns1 .= 'NONE' }
					$dropdowns1 .= '</FONT><BR>';
					$dd_hdr1 .= ' not defined in <I>query string</I> on HTML page';
					$drop_down_error1 = 'Y'; close(FILE); &disp_sale_items;
				}
			}

			if (!defined(%cart_errors)) {
				$modified = '';
				# Add selected color
				$db_row[0] = $db_row[0].'~~'.$in{$e} if $db_row[0] =~ /\w+/;
				# Add selected size
				$db_row[1] = $db_row[1].'~~'.$in{$f} if $db_row[1] =~ /\w+/;

				if ($cart) {
					while (@CART) {
						$row = shift(@CART);
						@ct_row = split(/\|/,$row);
#qqq
						if ($dbase_id_fld_num =~ /\d+/) { $ctdb_id_num = $ct_row[$dbase_id_fld_num+1] }
						else { $ctdb_id_num = $ct_row[$#ct_row-1] }

						if ($db_id_num eq $ctdb_id_num && $db_row[0] eq $ct_row[1] && $db_row[1] eq $ct_row[2]) {
							$item_qty = shift(@ct_row);
							$item_qty += $in{'item_id_'.$db_id_num};
							unshift(@ct_row,$item_qty);
							$row = join('|',@ct_row);
							++$modified;
						}
						push(@CART1,$row);
					}
					@CART = @CART1; @CART1 = ();
				}

				# Item added to cart
				push(@CART,$in{'item_id_'.$db_id_num}.'|'.&filter_fields) if !$modified;
			}
			delete $items{$db_id_num};
			last if !scalar(keys %items);
		} # End if (&item_row($_))
	} # End while (<FILE>)
	close(FILE);

	if (defined($modified) && !$cart_error && !defined(%cart_errors)) {
		$cart = join('',@CART);
		&write_cart;
		# Send client to Category page
		&disp_sale_items if $display_category;
		# Send client to View/Modify page
		&change_quantity;
	}
	elsif ($item_id) {
		$cart_error = &cart_msg('Item Page',"Record number <I>$item_id</I> not available in <I>$data_file1</I>");
		&disp_sale_items;
	}
	elsif (%no_items || $no_category) { &frontpage("Items on HTML page not available in <I>$data_file1</I> $SPACE") }
	elsif (defined(%cart_errors)) { $cart_error = 'Y'; delete $in{'add_cart'}; }
	elsif ($cart_error) { delete $in{'add_cart'} }
}


############################################

# Print View/Modify Cart Form
&change_quantity if $in{'modify_cart'};
# Print Delete Item Form
&delete_item if $in{'delete_item'};


############################################
# Modify Item Quantity in Cart

if ($in{'submit_changes'}) {

	# Check for positve integers
	if (&check_keys && !defined(%cart_errors)) {
		# Open cart and go through it
		my $modified = $cart = '';
		&read_open($user_cart);
		while (<FILE>) {
			&get_cart_row($_);
			$e = 'dd1_'.$ct_rw_num; # Color field
			$f = 'dd2_'.$ct_rw_num; # Size  field
#qqq
			$cart .= $in{'item_id_'.$ct_rw_num}.'|';
			# Add dbase row to $cart
			$c = '0';
			foreach $b (@ct_row) {
				# Color index and color
				if (!$c && $in{$e} && $b =~ /~{2}/) { $cart .= (split(/~{2}/,$b))[0].'~~'.$in{$e}.'|' }
				# Size index and size
				elsif ($c == 1 && $in{$f} && $b =~ /~{2}/) { $cart .= (split(/~{2}/,$b))[0].'~~'.$in{$f}.'|' }
				else { $cart .= $b.'|' }
				++$c;
			}
			chop $cart; # Remove last |

			++$modified
			if $quantity ne $in{$ct_rw_num} || $in{$e} ne (split(/~{2}/,$dd1_string))[1] ||
			$in{$f} ne (split(/~{2}/,$dd2_string))[1];
		}
		close(FILE);

		&write_cart if $modified;
	}
	# Send client to View/Modify
	&change_quantity;
}


############################################
# Delete Item from Cart

if ($in{'submit_deletion'}) {

	my ($del, %items);

	# Filter out alpha keys
#qqq
	foreach (keys %in) {
		if ($in{$_} && $_ =~ /^item_id_/) { $_ =~ s/^item_id_//; $items{$_}++; }
	}


	if (scalar(keys %items)) {
		$cart = $del = '';
		&read_open($user_cart);
		while (<FILE>) {
			&get_cart_row($_);
			# Delete checked rows
			if (defined($items{$ct_rw_num})) { delete $items{$ct_rw_num}; ++$del; }
			else { $cart .= $_ }
		}
		close(FILE);

		&write_cart if $del;

		# Print Delete Form
		if ($cart && $del) { &delete_item }
		# Display category for empty cart
		elsif (!$cart) {
			if (!$search && ($in{'category'} eq $frontpage_file || !$in{'category'})) { &frontpage() }
			else { &disp_sale_items }
		}
	}
	# Print View/Modify page
	&change_quantity;
}


############################################
# Choose Transmission Method

&security if $in{'security'};


############################################

if ($client_file && $in{'client_form'}) {
	$access_msg = '';
	&get_form($client_file);

	if (($in{'uid'} && $in{'pwd'} && !"$in{'chkClientAccess'}$in{'chkClientForm'}$in{'getClientForm'}$in{'RetrieveRecord'}") ||
	    ($in{'getClientForm'} && $in{$usr_fld_name} && $in{$usr_fld_name})) {
		&prtClientForm('ClientForm', %ClientForm) if &get_client_record()
	}

	# Update client record
	&chkClient('ClientRetrieve', %ClientRetrieve) if $in{'chkClientAccess'};
	# Update/Create client record
	&chkClientForm() if $in{'chkClientForm'};

	if (defined($r_attempts) && $r_attempts == 0) { &del_vars() }
	# Create or update client record
	elsif ($in{'getClientForm'} || $getClientForm) { &prtClientForm('ClientForm', %ClientForm) }
	elsif ($chkClientAccess || $in{'client_form'}) { &prtClientForm('ClientRetrieve', %ClientRetrieve) }
}


############################################

if ($in{'chkform'}) {

	&get_form($in{'form'});
	%Form = &check_form('Form', %Form);
	&check_fields('Form', %Form) if !$form_error;

	if (!$error_msg && $form eq $reseller_file) {
		# Create $reseller_code
		$reseller_code = &getResellerCode if $reseller_data_file || $reseller_spreadsheet;
		if ($reseller_spreadsheet) {
			if (!&write_lock($data_directory.'/'.$reseller_spreadsheet, '10')) { &wrtResellerFile($reseller_code) }
			else { $error_msg = "\n\t<FONT $header_font><B>Server Busy:</B> $SPACE Please ".&submit_anchor(keys %Form).' this form again.</FONT>' }
		}
	}

	if (!$error_msg) {
		delete $in{'chkform'}; delete $in{'form'};

		%Form = &get_mail_vars(%Form);
		&get_email(%Form);

		# &send_mail(From, To, Subject, Body)
		if ($in{$client_email}) {
			&send_mail("$in{$client_name} \<$in{$client_email}\>", $admin_email, $email_subject, $admin_msg);
			$demo .= 'E-mail to Client - ' if $demo;
			&send_mail($company_email, $demo."$in{$client_name} \<$in{$client_email}\>", $email_subject, $client_msg);
			&join_list($in{'joinlist'});
		}
		else { &send_mail($company_email, $admin_email, $email_subject, $admin_msg) }

		if ($in{'frontpage'} || $in{'category'} eq $frontpage_file || (!$in{'category'} && $page eq $frontpage_file)) {
			&frontpage()
		}
		elsif ($in{'frames'} eq 'main') { delete $in{'frames'} }

		&disp_sale_items if $in{'category'} =~ /^\d+$/;
	}
	else { $in{'chkform'} = 'Y' }
}


############################################
# Print Requested Form

if ($in{'form'} || $in{'chkform'}) {

	$in{'frames'} = $in{'category'} = '' if $in{'frames'} =~ /^frameset$|^main$/;
	&get_form($in{'form'});

	&get_client_record()
	if $client_file && $in{'uid'} && $in{'pwd'} && !$in{'chkform'};

	&html_header($email_subject);
	&count_cart_rows;
	%Form = &check_form('Form', %Form) if !$form_check;
	&pre_form_html if $pre_form && !$form_error;
	&hidden_form_tags();
	&form_title('Form', %Form);
	&print_form('Form', %Form);
	&form_trailer_html if $form_trailer && !$form_error;
	&html_trailer;
}


############################################

if ($in{'chkForm'} || $in{'faxOrder'}) {

	&get_form($form_file);
	%OrderForm = &check_form('OrderForm', %OrderForm);
	&count_cart_rows if !$grand_total;
	&check_fields('OrderForm', %OrderForm) if !$form_error;

	if (!$error_msg && $in{'chkForm'} && $merchant_file =~ /\w+/) {
		my $file = '';
		if ($merchant_file =~ /surepay/i) { $file = 'WSSurepay.pl' }
		elsif ($merchant_file =~ /authorizenet/i) { $file = 'WSAuthorizeNet.pl' }

		if ($file) {
			&file_status(__FILE__, __LINE__, 'req', $libr_directory.'/'.$file);
			&exec_auth($cart_id);
		}
	}

	if (!$error_msg) {
		if (!$in{'faxOrder'}) { $send_order = 'Y'; delete $in{'chkForm'}; }
	}
	else { $in{'chkForm'} = 'Y' }
}


############################################
# Print Order Form
# Client has finished shopping and requested order form
# Client has toggled sales tax from order form

if ($in{'sslForm'} || $in{'chkForm'} || $in{'chgShip'}) {

	&get_form($form_file);

	if ($mozilla_use_ssl && $in{'sslForm'} && $in{'sslForm'} ne '1') {
		my $qs = '';
		if ($in{'name_vals'}) { @name_values = (split(/\|/,$in{'name_vals'}),'name_vals') }
		elsif ($ship_method) { $qs = '&ship='.$ship_method }

		print "Location: $ssl_url\?sslForm=1\&store=$store\&cart_id=$cart_id\&formfile=$in{'formfile'}$qs".&query_string()."\n\n";
		exit;
	}
	elsif ($in{'name_vals'}) {
		foreach ('form_file') { $in{'name_vals'} =~ s/$_\|{0,1}//g }
		@name_values = (split(/\|/,$in{'name_vals'}),'name_vals');
	}


	if ($client_file && $in{'c_file'} && $in{'uid'} && $in{'pwd'} && !defined($no_client) &&
	   (!defined($in{'noLoad'}) || $in{'noLoad'} eq 'N')) {
		&get_client_record();
		$ship_method = $in{'ship'} if $in{'ship'};
		$in{'noLoad'} = 'Y';
	}

	&sales_tax;

	&count_cart_rows if !$grand_total;
	%OrderForm = &check_form('OrderForm', %OrderForm) if !$form_check;
	&html_header('Order Form');
	&pre_form_html if $pre_form && !$form_error;

	$in{'category'} = $in{'page'} = $in{'pcat'} =
	$cpage = $item_id = $search = $search_engine = '';
	undef $grand_total;

	&hidden_form_tags();
	&form_title('OrderForm', %OrderForm);

	if(!$form_error) {
		&disp_cart_table_vars('0');
		if ($disp_ship) { $table_rowspan += 2 } else { ++$table_rowspan }
		&table_title($global_page_title,$modify_table_border,'');
		# table headers
		&table_header();

		# cart contents
		while (@CART) { &get_cart_row(shift(@CART)); &print_cart_row(); }
		$ship_dd = 'chgShip';
		&ship_tax;

		if ($frameset_file && !$in{'no_ssl'} && ($use_ssl == 1 || $use_ssl == 2)) {
			if ($browser =~ /MSIE/) { $ssl_img = 'security.MSIE.gif' }
			else { $ssl_img = 'security.Netscape.gif' }
			if (-r $grph_directory.'/'.$ssl_img) {
				$ssl_img = qq!<IMG SRC="$graphics_url/$ssl_img" ALT="" BORDER=0 HSPACE=0 VSPACE=0>!;
				print "\n<P>\n$table_open
<TR><TD>$ssl_img</TD><TD>$SPACE$SPACE<B><FONT SIZE=2$data_face>Secure Frame</FONT></B>$SPACE$SPACE</TD><TD>$ssl_img</TD></TR>
</TABLE>\n";
			}
		}
		print "</CENTER>\n";
	}
	&print_form('OrderForm', %OrderForm);
	&form_trailer_html if $form_trailer && !$form_error;

	if (defined($debug_txt) && $debug_txt) {
		print $debug_txt;
		print &print_vars if defined(&print_vars);
		print "\n\n</BODY>\n</HTML>";
		print &version($version.' CS');
		exit;
	}
	else { &html_trailer }
}


############################################
# Category Page

if ($in{'category_page'}) {
	if ($pcat && !$page) { $page = $in{'category'} = $pcat; $button_3 = $pcat = $in{'pcat'} = ''; }
	elsif ($pcat) { $in{'category'} = $pcat; $pcat = $in{'pcat'} = ''; }
	else { $in{'category'} = $in{'page'} }
	undef $item_id; delete $in{'d1'}; delete $in{'d2'};
	&disp_sale_items;
}


############################################
# Send In Order
# Send order to administrator

if ($send_order || $in{'faxOrder'}) {

	&error('P') if -e $processed_cart;

	# y - year
	# m - month
	# d - day
	# h - hour
	$save_orders = '' if $save_orders !~ /[ymdh]/i;

	$print_tags = 'Y';
	&sales_tax;

	# Set colors for web browser printing
	$background = $bgcolor = $text_color = $link_color = $vlink_color = $alink_color =
	$data_fnt_clr = $data_bkg_clr = $dsc_hr_fnt_clr = $dsc_hr_bkg_clr = $header_fnt_clr =
	$header_bkg_clr = $modify_bkg_clr = $modify_fnt_clr = $modify_table_border = '';

	$background  = '';          # Background Image
	$bgcolor     = '#FFFFFF';   # White
	$text_color  = '#000000';   # Black
	$link_color  = '#0000FF';   # Blue
	$vlink_color = '#0000A0';   # Dark Blue
	$alink_color = '#FF0000';   # Red

	$modify_spc_width = '15';

	%OrderForm = &get_mail_vars(%OrderForm);
	%mail_order = ('1' => ['af',$admin_email]) if !defined(%mail_order) || !scalar(keys %mail_order);

	if ($send_order) {
		&html_header("$in{$client_name}'s Order: $cart_id Has Been Sent");
		&hidden_form_tags();

		if ($client_file) {
			$uid = $pwd = '';
			($uid,$pwd) = &filter_vars($in{$usr_fld_name},$in{$pwd_fld_name});
			$uid = $in{$usr_fld_name} = $in{'uid'} if !$uid && $in{'uid'};
			$pwd = $in{$pwd_fld_name} = $in{'pwd'} if !$pwd && $in{'pwd'};
			$pwd = $in{$pwd_fld_name} = &password  if !$pwd;
			$in{'uid'} = $uid; $in{'pwd'} = $pwd;
		}
		&print_order_get_email;
		# Admin and reseller e-mail
		&sendmail(%mail_order);
		# Client confirmation e-mail
		$in{'x_Email_Customer'} = '' if !defined($in{'x_Email_Customer'});
		if ($in{'x_Email_Customer'} ne 'TRUE') {
			$demo .= 'E-mail to Client - ' if $demo;
			# &send_mail(From, To, Subject, Body)
			&send_mail($company_email, $demo."$in{$client_name} \<$in{$client_email}\>", $email_subject, $client_msg);
		}

		if ($client_file && $in{'uid'} && $in{'pwd'}) {
			foreach (sort keys %OrderForm) {
				$a = $OrderForm{$_}[2]; $b = $OrderForm{$_}[0];
				if ($in{'unf_'.$b} && $a =~ /^textarea$/i) {
					$in{$b} = $in{'unf_'.$b}; delete $in{'unf_'.$b};
				}
			}
			&wrtClientFile;
		}
		&wrtOrderFile if $save_orders && !$demo;
	}
	# Print order to client's web browser
	else {
		&html_header("$in{$client_name}\'s Order to Web Browser for Printing");
		&hidden_form_tags();
		$data_font = 'SIZE=3';
		&print_order_get_email;
		# Admin and reseller e-mail
		&sendmail(%mail_order) if $fax_email;
	} # End if ($send_order)

	if ($processed_cart && ($delete_cart || $save_orders)) {
		&write_open($processed_cart,'');
		print FILE join('',@CART);
		close(FILE);
		system("chmod 666 $processed_cart");
	}

	&join_list($in{'joinlist'});

	# Delete Client Files - 30 day interval
	$client_delete_age =~ s/\s+//g;
	if ($client_delete_age =~ /^[1-9]{1}\d*$/) {
		$age_file = $clnt_directory.'/'.'delete.client.age.file';
		if (!-e $age_file || -M $age_file > 30) {
			$a = $client_delete_age;
			if ($a > 1) { $b = 's' } else { $b = '' }
			$a = sprintf("%d",$a*30);
			&age_file($age_file,'Files older than '."$client_delete_age month$b at 30 day");
			&delete_files(__FILE__,__LINE__,$clnt_directory,'.client',$a);
		}
	}

	exit;
}


############################################
# Submit Search

if ($in{'submit_search'}) {
	undef $curr_item;   delete $in{'curr_item'};
	undef $total_items; delete $in{'total_item'};
	undef $first;       delete $in{'first'};
	undef $item_id;
	&submit_search;
}

if (!$in{'frontpage'} && ($next || $previous || $first)) {
	&disp_sale_items if $cpage;
	&submit_search;
}

if (!$in{'frontpage'} && $in{'search'}) {
	# Send client to View/Modify page when item is ordered
	&change_quantity if !$in{'continue_shopping'} && !$display_category && -s $user_cart;
	# Send client to search page they ordered from
	&disp_sale_items;
}


############################################

# Frames control
if (!$frameset_file && $in{'frames'}) {
	if ($in{'frames'} ne 'Y') { $in{'category'} = $in{'frames'} = '' }
	elsif ($in{'category'} =~ /\.htm[l]*$/i) { &print_file($in{'category'}) }
}
elsif ($in{'frames'} || $frame_file) {
	$frame_file = $in{'category'} if $in{'frames'} =~ /^frameset$|^Y$/ && $in{'category'} =~ /\.htm[l]*$/i;
	&print_file($frame_file) if $frame_file;
}

# page= pcat= shift
if (!$in{'frontpage'} && !$in{'category'}) {
	$page = $in{'page'} = $pcat if !$page && $pcat;
	$in{'category'} = $page if $page;
	if ($pcat) { $page = $in{'page'} = $pcat; $pcat = $in{'pcat'} = ''; }
}

# Print front page
&frontpage() if $in{'frontpage'} || !$in{'category'} || $in{'category'} eq $frontpage_file;
# Display selected category/page
&disp_sale_items;



# END MAIN PROGRAM ABOVE
############################################
# SUBROUTINES BELOW



############################################
# Print Modify Quantity Form

sub change_quantity {

	my ($a);

	$a = $in{'tax'} = ''; $change_qty = 'Y';
	$title = 'View/Modify Cart Item';
	&count_cart_rows;
	$title .= 's' if $row_count > 1;
	# Output header
	&html_header($title);
	# Preface View/Modify pages
	if (defined(%cart_errors)) { print &cart_errors }
	elsif ($pre_view_modify) { &pre_view_modify_html }
	&hidden_form_tags();
	undef $grand_total;
	&disp_cart_table_vars('1');
	# title row
	&table_title($title,$modify_table_border,'');
	# table headers
	&table_header('Quantity');
#qqq
	while (@CART) {
		&get_cart_row(shift(@CART));
		# table row of textbox, cart contents, and  spacer
		if (defined(%cart_errors)) { $a = $in{'item_id_'.$ct_rw_num} } else { $a = $quantity }
		&print_cart_row(qq!<INPUT TYPE="text" NAME="item_id_$ct_rw_num" VALUE="!.&convert_ext($a).'" SIZE=3 MAXLENGTH=5>');
	}
	&ship_tax;

	if ($row_count > 1) { $a = 's' } else { $a = '' }

	print qq!</CENTER>\n\n<P>\n\n<CENTER>
<INPUT TYPE="image" SRC="$graphics_url/changes.gif" BORDER="0"  NAME="submit_changes" VALUE="Submit Changes"> \n<INPUT TYPE="image" SRC="$graphics_url/delete.gif" BORDER="0"   NAME="delete_item" VALUE="Delete Item$a"> !;
	&common_buttons;
	print "\n$rst_button\n</CENTER>\n</FORM>\n\n";
	&html_trailer;
}


############################################
# Print Delete Item Form

sub delete_item {

	my $title = 'Delete Cart Item';
	&count_cart_rows;
	$title .= 's' if $row_count > 1;
	# page header
	&html_header($title);
	# Preface View/Modify pages
	&pre_view_modify_html if $pre_view_modify;
	&hidden_form_tags();
	undef $grand_total;
	&disp_cart_table_vars('1');
	# title row
	&table_title($title,$modify_table_border,'');
	# table headers
	&table_header('Delete');

	while (@CART) {
		&get_cart_row(shift(@CART));
		# table row of checkbox, cart contents, and  spacer
		&print_cart_row(qq!<INPUT TYPE="checkbox" NAME="item_id_$ct_rw_num">!);
	}
	&ship_tax;

	print qq!</CENTER>\n\n<P>\n\n<CENTER>
<INPUT TYPE="image" SRC="$graphics_url/delete.gif" BORDER="0" NAME="submit_deletion" VALUE="Submit Deletion"> \n<INPUT TYPE="image" SRC="$graphics_url/changequantity.gif" BORDER="0"   NAME="modify_cart" VALUE="Change Quantity"> !;
	&common_buttons;
	print "\n</CENTER>\n</FORM>\n\n";
	&html_trailer;
}


############################################

sub frontpage {

	my ($msg) = @_;

	$cpage = $item_id = $page = $in{'page'} = $in{'pcat'} = $in{'ship'} = $in{'tax'} = '';

	if ($in{'ns'} || $in{'no_search'}) { $no_search = 'Y'; delete $in{'no_search'}; }
	$search_engine = $s_engine if $s_engine;

	$in{'category'} = $frontpage_file;
	&get_html_page($frontpage_file);

	while (@HTML_FILE) {
		$row = shift(@HTML_FILE);
		if ($row =~ /<BODY/i) {
			print $row;

			if ($msg) {
				print "\n\n<P>$SPACE\n\n<\!-- Error Message -->\n<CENTER>\n$table_open
<TR$data_bkg_clr><TH>$dt_fnt_tag$SPACE $msg</FONT></TH></TR>
</TABLE>\n</CENTER>\n"
			}
			elsif ($cart_error) { print $cart_error }

			&hidden_form_tags() if $bdy_frm_tags == 1;
		}
		elsif ($row =~ m#</BODY#i) {
			&hidden_form_tags() if $bdy_frm_tags != 1;
			if ($grand_total) { $minimum_order = $min_order_msg = '' }
			else { &count_cart_rows }
			undef $row_count;
			if ($minimum_order || $grand_total) { print "<CENTER>\n<P>$SPACE\n"; &subtotal_msg; print "</CENTER>\n\n<CENTER>\n"; }
			else { print "\n<CENTER>\n"; }
			print "<P>$button_1$button_4\n" if $button_1.$button_4;
			if ($search_engine) { $print_tips = '1'; &search_engine_form; }
			print "\n</CENTER>\n</FORM>\n\n";
			# Provide html below form buttons of frontpage
			&frontpage_trailer_html if $frontpage_trailer;
			# Print access counter if readable
			if ($count_file && -r $count_file) {
				&write_lock($count_file, '2') if -e $count_file.'.lock';
				&read_open($count_file);
				while (<FILE>) { $count = $_ }
				close(FILE); $count =~ s/\s+//g;
				# Count file contains valid count
				if ($count =~ /[1-9]/) {
					$a = $count; ++$a if defined($del_carts);
					$a = (split(/\./,&format_num($a,'Y')))[0];
					if ($counter_label) { $counter_label = "$counter_label $SPACE" }
					else { $counter_label = '' }
					$count_bkg_clr = qq! BGCOLOR="$count_bkg_clr"! if $count_bkg_clr ne '';
					$count_fnt_clr = qq! COLOR="$count_fnt_clr"!   if $count_fnt_clr ne '';

					print "\n<CENTER>\n<P>$SPACE\n<TABLE BORDER=0>
<TR><TD><B>$nc_fnt_tag$counter_label</FONT></B></TD>
<TD><TABLE BORDER=3 CELLPADDING=0 CELLSPACING=0 width=100%>
<TR$count_bkg_clr><TH ALIGN=center><FONT $data_font$data_face$count_fnt_clr>$SPACE$a$SPACE</FONT></TH></TR>
</TABLE></TD></TR>\n</TABLE>\n</CENTER>\n\n";
				}
			}
			&html_trailer;
		}
		else { &substitute($row,$frame_access) }
	} # End while @HTML_FILE
	exit;
}


############################################

sub print_cont {

	print "Content-type: text/html\n\n" if !$content_type && defined($ENV{'REQUEST_METHOD'});
	$content_type = '1';
}


############################################

sub print_file {

	my ($page) = @_;

	&get_html_page($page);
	while (@HTML_FILE) { &substitute(shift(@HTML_FILE),$frame_access) }
	print &version($version.' CS');
	exit;
}


############################################

sub print_text_file {

	my ($file, $prefix) = @_;
	my $exist = '';

	if (defined($prefix) && $prefix ne '') { $prefix .= '.' }
	else { $prefix = '' }

	if ($file =~ /\w+/) {
		$file =~ s/\s+/_/g;
		$file .= '.txt' if $file !~ /\.txt$/;
		if (-r $html_directory.'/'.$prefix.$file) { ++$exist }
		else {
			print "\n<!-- FILE NOT FOUND:  $prefix".&convert_ext($file)." -->\n\n";
			$file = 'DEFAULT.txt';
		}
	}
	else { $file = 'DEFAULT.txt' }

	my $txt_file = $html_directory.'/'.$prefix.$file;
	if ($exist || -r $txt_file) {
		$file = $prefix.&convert_ext($file);
		print "\n<!-- PRINTED FROM:  $file -->\n\n";
		my @FILE = &get_file($txt_file);
		while (@FILE) { &substitute(shift(@FILE)."\n",'') }
		print "\n<!-- END OF:  $file -->\n\n";
	}
}


############################################
# FILE access

sub read_open {

	my ($file) = @_;

	open(FILE, $file) || &open_error('File', $file, 'Read File', __FILE__, __LINE__, '644');
	seek(FILE, 0, 0);
}


sub write_open {

	my ($file, $app) = @_;

	open(FILE, ">$app$file") || &open_error('File', $file, 'Write File', __FILE__, __LINE__, '666');
}


sub write_cart {

	&write_open($user_cart,'');
	print FILE $cart;
	close(FILE);
	system("chmod 666 $user_cart");
}


############################################

sub submit_search {

	my ($a, $b, %cat, $dbase_chk, %db_nums);

	&count_cart_rows;

	if ($text_val ne '') {
		$text_val =~ s/[`^{}\[\]|#]+//g;
		$text_val =~ s/\s{2,}/ /g;
		$text_val =~ s/(^\s+|\s+$)//g;
		@keywords = split(/\s+/,$text_val) if $text_val ne '';
	}

	if ($price_val ne '') {
		$price_val =~ tr/0-9./ /c;
		$price_val =~ s/\s+//g;
		$price_val =~ s/\D/ /g;
		($dollars,$cents,$a) = split(/\s+/,$price_val,3);
		$price_val = &format_num($dollars.'.'.$cents);
		$price_val = '' if $price_val <= 0;
	}

	if (!$product_arg || $product_arg eq $categories_desc) {
		$product_arg = '';
		foreach (@categories) { $cat{$_}++ }
	}


	if (defined($in{'env'}) && $in{'env'} =~ /dbase/i) { $dbase_chk = '1'; %db_nums = (); }
	else  { $dbase_chk = '' }

	$row_count = 0;
	&read_open($data_file);
	while (<FILE>) {
		s/\s+$//;
		next if /^$|^COMMENT:/i;
		if (&item_row($_) && &valid_id($db_id_num)) {
			$a = $db_row[$category_fld_num];
			# Duplicate id checking
			if ($dbase_chk) {
				if (defined($db_nums{$db_id_num})) { close(FILE); &dbase_error; }
				$db_nums{$db_id_num}++;
			}

			if ($product_arg && $a eq $product_arg) {
				push(@SEARCH_CONTENTS,$_); ++$row_count;
			}
			elsif (!$product_arg) {
				if (defined($cat{$a})) { push(@SEARCH_CONTENTS,$_); ++$row_count; }
			}
			# Exit FILE - category found
			elsif ($row_count && !$dbase_chk) { last }
		}
	}
	close(FILE);


	$match_found = $row_count = $search_rows = 0;
	&next_prev_first;

	while (@SEARCH_CONTENTS) {
		$matched_row = shift(@SEARCH_CONTENTS);
		@db_row = split(/\|/,$matched_row);

		$item_price = &format_num($db_row[$price_fld_num]) if $price_val;

		if ($price_val && $text_val ne '') {
			if ($text_arg =~ /^K/) {
				foreach (@keywords) {
					if ($matched_row =~ /\b$_\b/i) { &eq_gt_lt; last; }
				}
			}
			else { &eq_gt_lt if $matched_row =~ /$text_val/i }
		}
		elsif ($text_val ne '') {
			if ($text_arg =~ /^K/) {
				foreach (@keywords) {
					if ($matched_row =~ /\b$_\b/i) { ++$match_found; last; }
				}
			}
			else { ++$match_found if $matched_row =~ /$text_val/i }
		}
		elsif ($price_val) { &eq_gt_lt }
		else { ++$match_found } # End if ($price_val && $text_val ne '')

		if ($match_found) { &next_prev; $match_found = 0; }
	} # End while (@SEARCH_CONTENTS)


	$next = 1 if !$next && !$previous && ($search_rows > $max_items);
	# "Keywords"  or  "Keyword"
	chop $text_arg if $text_val ne '' && $text_arg =~ /^K/ && (scalar(@keywords) == 1);

	# Search arguments found - display matches to client
	if ($row_count) {
		&html_header('Search Results');
		if (defined(%cart_errors)) { print &cart_errors }
		elsif ($cart_error) { print $cart_error }
		elsif ($pre_category) {
			&pre_category_html;
			&print_text_file($product_arg,'C-HDR') if $pre_category eq '2';
		}

		$search_tags = 'Y';
		&hidden_form_tags();
		&disp_table_vars(@SEARCH_RESULT);
		$table_title .= ' - Search Results' if $table_title;
		&table_title($table_title,$table_border,$table_width);

		$b = (split(/\./,&format_num($curr_item,'Y')))[0];
		if ($max_items == 1 || ($first == $total_items)) { $a = '' }
		else { $a = 's'; $b = (split(/\./,&format_num($first_item,'Y')))[0].' - '.$b; }
		print "\n<TR$header_bkg_clr><TD ALIGN=center>$hrd_fnt_tag${SPACE}Search returned item$a ".
		      "$b of <B>".(split(/\./,&format_num($total_items,'Y')))[0]."</B> for$SPACE ";

		print "<NOBR>$SPACE\L$text_arg <B>".&convert_ext($text_val)."</B>$SPACE</NOBR> "
		if $text_val ne '';
		print "<NOBR>$SPACE\L$price_arg <B>$currency".&format_num($price_val,'Y')."</B>$SPACE</NOBR> "
		if $price_val;

		if (!$product_arg) { print "<NOBR>$SPACE<B>all</B> categories$SPACE</NOBR> " }
		else { print "<NOBR>$SPACE<B>".&convert_ext($product_arg)."</B>$SPACE</NOBR> " }
		print '</FONT></TD></TR>';

		&print_fields(@SEARCH_RESULT);

		print "\n<TR$border_bkg_clr><TD HEIGHT=1 COLSPAN=$border_colspan><FONT SIZE=1>$SPACE</FONT></TD></TR>"
		if $table_border;
		print "\n</TABLE>\n</CENTER>" if !$table_width;

		&print_next_prev;
		print "\n</CENTER>" if $next || $previous;
		print "\n\n<P>\n\n<CENTER>$button_5$button_1$button_2$button_3$button_4\n$rst_button\n</CENTER>\n</FORM>\n\n";

		undef $search_tags;
		&hidden_form_tags();
		print "<P>$SPACE\n\n<CENTER>";
		&search_engine_form;
		print "</CENTER>\n</FORM>\n\n";

		if ($category_trailer) {
			&category_trailer_html;
			&print_text_file($product_arg,'C-TRL') if $category_trailer eq '2';
		}
	}
	else {
		&html_header('Search Results');
		&hidden_form_tags();
		print "<CENTER>\n";
		$nothing_found = 1;
		&search_engine_form;
		print "<P>$button_1$button_2$button_3$button_4\n</CENTER>\n</FORM>\n\n";
	} # End if ($row_count)

	&html_trailer;
}


############################################

sub next_prev_first {

	if ($next || $previous || $first) {
		if ($next) {
			# More items to display NEXT
			if (($curr_item + $max_items) < $total_items) {
				$first_item = ($curr_item + 1);
				$next = $previous = 1;
			}
			# No more items to display NEXT
			elsif (($curr_item + $max_items) >= $total_items) {
				$first_item = ($curr_item + 1);
				$next = 0; $previous = 1;
			}
		}
		elsif ($first && $in{'continue_shopping'}.$in{'submit_deletion'}.$in{'add_cart'}.$cart_error) {
			$first_item = $first;
			if (($first - $max_items) <= 0) { $previous = 0 }
			else { $previous = 1 }
			if (($first_item + $max_items - 1) >= $total_items) { $next = 0 }
			else { $next = 1 }
		}
		elsif ($first && $previous) {
			$first_item = ($first - $max_items);
			if (($first - 1 - $max_items) <= 0) { $previous = 0 }
			else { $previous = 1 }
			$next = 1;
		}
		$last_item  = ($first_item + $max_items - 1);
	}
	else {
		$first_item = $curr_item = 1;
		$last_item  = $max_items;
	} # End if ($next || $previous || $first)
	$first = $first_item;
}


############################################

sub next_prev {

	++$search_rows;
	if ($next || $previous) {
		if (($search_rows >= $first_item) && ($search_rows <= $last_item)) {
			$curr_item = $search_rows;
			++$row_count;
			push(@SEARCH_RESULT,$matched_row);
		}
	}
	else {
		++$total_items if !$in{'total_item'};
		if ($search_rows <= $last_item) {
			$curr_item = $search_rows;
			++$row_count;
			push(@SEARCH_RESULT,$matched_row);
		}
	}
}


############################################

sub print_next_prev {

	if ($next || $previous) {
		print "\n\n<P>\n\n<CENTER>";
		# Singular/plural button wording
		if ($max_items == 1) { $g = '' } else { $g = 's' }
		if ($max_items == 1 || ($total_items - $curr_item <= 1)) { $h = '' } else { $h = 's' }
		print qq!\n<INPUT TYPE="image" SRC="$graphics_url/previous.gif" BORDER="0"  NAME="previous" VALUE="Previous Item$g"> ! if $previous;
		print qq!\n<INPUT TYPE="image" SRC="$graphics_url/nextitems.gif" BORDER="0"  NAME="next" VALUE="Next Item$h"> ! if $next;
	}
}


############################################

sub eq_gt_lt {

	if    ($price_arg =~ /^E/ && $item_price == $price_val) { ++$match_found }
	elsif ($price_arg =~ /^G/ && $item_price > $price_val)  { ++$match_found }
	elsif ($price_arg =~ /^L/ && $item_price < $price_val)  { ++$match_found }
}


############################################

sub search_engine_form {

	my ($a, $b, $msg, $opt_sel1, $opt_sel2, $opt_sel3, $price_value, $qs, $rows, $text_value);

	$qs = $price_value = $text_value = '';

	$text_value  = ' VALUE="'.&convert_ext($text_val).'"' if $text_val ne '';
	$price_value = ' VALUE="'.&format_num($price_val,'Y').'"' if $price_val ne '';


	# $opt_sel1
	if (!$text_arg || $text_arg =~ /^K/) { $opt_sel1 = qq!\n\t<OPTION VALUE="Keywords" SELECTED>Keywords \n\t<OPTION VALUE="Phrase">Phrase! }
	else { $opt_sel1 = qq!\n\t<OPTION VALUE="Phrase" SELECTED>Phrase\n\t<OPTION VALUE="Keywords">Keywords ! }


	# $opt_sel2
	if (!$price_arg || $price_arg =~ /^L/) {
		$opt_sel2 = qq!\n\t<OPTION VALUE="Less than" SELECTED>Less than!;
		$price_arg = 'Less than';
	}
	else { $opt_sel2 = qq!\n\t<OPTION VALUE="$price_arg" SELECTED>$price_arg ! }

	foreach ('Less than', 'Equal to', 'Greater than') {
		$opt_sel2 .= qq!\n\t<OPTION VALUE="$_">$_ ! if $_ ne $price_arg
	}


	# $opt_sel3
	$a = &convert_ext($categories_desc);

	if (!$product_arg || $product_arg eq $categories_desc) {
		$opt_sel3 = qq!\n\t<OPTION VALUE="" SELECTED>$a !;
		$product_arg = $categories_desc;
	}
	else {
		$b = &convert_ext($product_arg);
		$opt_sel3 = qq!\n\t<OPTION VALUE="$b" SELECTED>$b \n\t<OPTION VALUE="">$a !;
	}

	foreach (sort @categories) {
		next if $_ !~ /\w+/ || $_ eq $product_arg;
		$a = &convert_ext($_);
		$opt_sel3 .= qq!\n\t<OPTION VALUE="$a">$a !;
	}


	# Link to Search Engine Help page
	if ($search_tips) {
		if ($print_tips) {
			if (defined($q_string)) { $qs = $q_string } else { $qs = &query_string() }
			$tips = qq!$SPACE <FONT SIZE=2$data_face><A HREF="$main_script_url?category=$search_tips\&cart_id=$cart_id\&store=$store\&pcat=$frontpage_file$qs"
	onMouseOver="window.status='Search Engine Tips'; return true"
	onMouseOut="window.status=''; return true">Help</A>$SPACE</FONT>!;
		}

		$global_page_title = 'Engine Tips' if !$in{'submit_search'} && $in{'category'} eq $search_tips;
	}
	else { $tips = '' }

	print "\n<P>$SPACE\n" if !$row_count;
	print "\n<!-- Search Form -->\n$table_open\n";

	if ($search_border) {
		if ($nothing_found) { $rows = 6 } else { $rows = 5 }
			print "<TR$border_bkg_clr><TD ROWSPAN=$rows WIDTH=12>$SPACE</TD>".
			      "<TD HEIGHT=1 COLSPAN=3><FONT SIZE=1>$SPACE</FONT></TD>".
			      "<TD ROWSPAN=$rows WIDTH=12>$SPACE</TD></TR>\n"
		}

	print qq!<TR$header_bkg_clr><TH ALIGN=center COLSPAN=3>$hr_fnt_tag$SPACE Search $global_page_title $SPACE</FONT></TH></TR>

<TR$data_bkg_clr>
<TD ALIGN=right>$SPACE<INPUT TYPE="text" NAME="text_val"$text_value SIZE=28 MAXLENGTH=40></TD>
$ch_col_spc
<TD ALIGN=left><SELECT NAME="text_arg">$opt_sel1</SELECT>$tips</TD></TR>



<TR$data_bkg_clr>
<TD ALIGN=right>$SPACE<SELECT NAME="product_arg">$opt_sel3</SELECT></TD>
$ch_col_spc
<TD ALIGN=center><INPUT TYPE="image" SRC="$graphics_url/search.gif" BORDER="0" NAME="submit_search" VALUE="Search">$SPACE</TD></TR>
<tr><td colspan=4 bgcolor="#F5F5DC"ALIGN=center><FONT color="#800000"SIZE="2"><B>Do not use your "Enter key" use the  "SEARCH"  button.</B></FONT></td></tr>\n!;

	$product_arg = '' if $product_arg eq $categories_desc;

	if ($nothing_found) {
		$msg = '';
		$msg = "<B>$text_arg</B>" if $text_val ne '';
		if ($price_val ne '') {
			$msg .= ' and ' if $msg;
			$msg .= "<B>$field_names[$price_fld_num]</B>";
		}

		if ($msg && $product_arg) { $msg = $msg." not found in <NOBR><B>$product_arg</B>" }
		elsif ($msg && !$product_arg) { $msg .= ' not found in <NOBR><B>All</B> Categories' }
		elsif ($product_arg) { $msg = "<NOBR><B>$product_arg</B> not found" }
		else { $msg = '<NOBR>No categories configured for <B>Search</B>' }

		print "\n<TR$header_bkg_clr><TD ALIGN=center COLSPAN=3>$hrd_fnt_tag$SPACE$msg$SPACE</NOBR></FONT></TD></TR>\n";
	}
	print "\n<TR$border_bkg_clr><TD HEIGHT=1 COLSPAN=5><FONT SIZE=1>$SPACE</FONT></TD></TR>\n"
	if $search_border;
	print "</TABLE>\n";
}


############################################

sub get_cart_row {

	my ($row) = @_;

	@ct_row = split(/\|/,$row);
	$quantity   = shift(@ct_row);
	$dd1_string = shift(@ct_row);
	$dd2_string = shift(@ct_row);
	$ct_rw_num  = $ct_row[$#ct_row];
	chop $ct_rw_num;

	if (!$admin_msg) {
		unshift(@ct_row,$dd2_string);
		unshift(@ct_row,$dd1_string);

		if ($dbase_weights) {
			$wt_string = $ct_row[$ship_fld_num];
			$wt_string =~ tr/0-9./ /c; $wt_string =~ s/\s+//g;
			$wt_string = sprintf("%.4f",$wt_string);
		}
		elsif (defined($ship_fld_num)) {
			$sp_string = $ct_row[$ship_fld_num]; $sp_string =~ s/\s+//g;
		}
		return;
	}

	# Remove color code, size code, delimiters for e-mail and order page
	if ($dd2_string =~ /~{2}/) { unshift(@ct_row,(split(/~{2}/,$dd2_string))[1]) }
	else { unshift(@ct_row,$dd2_string) }
	if ($dd1_string =~ /~{2}/) { unshift(@ct_row,(split(/~{2}/,$dd1_string))[1]) }
	else { unshift(@ct_row,$dd1_string) }
}


############################################

sub get_form {

	return if $form;

	($form) = @_;
	$form .= '.setup' if $form !~ /\.setup$/;

	&form_error('FORM File not Found') if $form ne $form_file && !-e $data_directory.'/'.$form;

	&file_status(__FILE__, __LINE__, 'req',
		$libr_directory.'/'.'WSForms.pl',
		$data_directory.'/'.$form,
	);
	# Separation permits redefinition of $country_file in $form
	&file_status(__FILE__, __LINE__, 'req', $data_directory.'/'.$country_file);

	if ($form eq $form_file) {
		if (defined(%OrderForm)) { &getOrderFormVars }
		else { &form_error('%OrderForm not Defined') }
	}
	elsif (defined(%OrderForm)) { &form_error('Invalid %OrderForm Use') }
	elsif ($cart_id) {
		if ($in{'form'} && !defined(%Form)) { &form_error('%Form not Defined') }
		elsif ($in{'client_form'} && !defined(%ClientForm)) { &form_error('%ClientForm not Defined') }
	}

	if ($dt_font > 3) { $dt_font = '2'; $data_font = 'SIZE=2'; $header_font = 'SIZE=3'; }

	sub form_error {
		my ($error) = @_;
		$in{'client_form'} = $in{'form'} = '';
		&frontpage("$error: $SPACE$SPACE $data_directory/<I>$form</I> $SPACE");
	}
}


############################################

sub drop_down {

	my ($num, @elements) = @_;
	my ($a, $b, $c, $element);

	$b = $c = '';
	if ($cart_error && $in{$num} ne '') {
		$c = &convert_ext($in{$num});
		$b = ' VALUE="'.$c.'"';
		$c .= " \n\t".'<OPTION>';
	}

	$element = qq!<SELECT NAME="$num">\n\t<OPTION$b SELECTED>$c!;
	foreach (@elements) {
		next if $_ !~ /\w+/;
		if (!$b || ($b && $_ ne $in{$num})) {
			$a = &convert_ext($_); $element .= qq!\n\t<OPTION VALUE="$a">$a !;
		}
	}
	$element .= '</SELECT>';

	return $element;
}

############################################

sub get_drop_downs {

	my ($dd1, $dd2, $id_num) = @_;

	my ($a, $b, $c, $d);
	$b = $c = $d = $drop_down_error = '';

	$dd_hdr = 'Select ';
	if ($dd1 ne '' && $dd2 ne '') { $dd_hdr .= "$field_names[0] and $field_names[1]" }
	elsif ($dd1 ne '') { $dd_hdr .= $field_names[0] }
	else { $dd_hdr .= $field_names[1] }

	# Color field
	if ($dd1 ne '') {
		if (defined($DD1_FIELDS{$dd1})) {
			$a = join('',@{ $DD1_FIELDS{$dd1} }); $a =~ s/\s+//g;
			if ($a =~ /\w+/) {
				$dropdowns .= "<NOBR>$SPACE $dt_fnt_tag$field_names[0]</FONT> ".&drop_down('dd1_'.$id_num, @{ $DD1_FIELDS{$dd1} })."$SPACE </NOBR> ";
			}
			else { $b = 'No values in $DD1_FIELDS{'.$dd1.'}' }
		}
		else { $b = '$DD1_FIELDS{'.$dd1.'} not defined'; ++$d; }
		$dropdowns .= "<NOBR>$SPACE $smdt_fnt_tag$b</FONT> $SPACE</NOBR> " if $b;
	}

	# Size field
	if ($dd2 ne '') {
		if (defined($DD2_FIELDS{$dd2})) {
			$a = join('',@{ $DD2_FIELDS{$dd2} }); $a =~ s/\s+//g;
			if ($a =~ /\w+/) {
				$dropdowns .= "<NOBR>$SPACE $dt_fnt_tag$field_names[1]</FONT> ".&drop_down('dd2_'.$id_num, @{ $DD2_FIELDS{$dd2} })."$SPACE </NOBR> ";
			}
			else { $c = 'No values in $DD2_FIELDS{'.$dd2.'}' }
		}
		else { $c = '$DD2_FIELDS{'.$dd2.'} not defined'; ++$d; }
		$dropdowns .= "<NOBR>$SPACE $smdt_fnt_tag$c</FONT> $SPACE</NOBR> " if $c;
	}

	if ($b || $c) {
		$drop_down_error = 'Y';
		if ($b && $c) { $a = 's' } else { $a = '' }
		$dd_hdr = "Error${a} in <I>$store</I>";
		 if ($d) {
			if ($search || $in{'submit_search'} || $in{'category'} !~ /\.htm[l]*$/) {
				$dd_hdr .= " or record $id_num in <I>$data_file1</I>"
			}
			elsif ($in{'item_id'} && $in{'category'} =~ /\.htm[l]*$/) { $dd_hdr .= ' or <I>query string</I> on HTML page' }
		}

	}
}


############################################
# Read $file

sub get_file {

	my ($file) = @_;
	my (@FILE, $contents);

	&read_open($file);
	read(FILE, $contents, -s $file);
	close(FILE);
#qqq
	if ($in{'rsc'} && $in{'r_data'} && defined(@reseller_include_files) && @reseller_include_files) {

		my ($a, $logo, $logo_img, %RESELLERS, @r_data, $text, $text_file);

		$logo = $logo_directory.'/'.$in{'rsc'};
		foreach ('.gif','.jpg','.jpeg','.png') {
			next if !-e $logo.$_ || !-r $logo.$_;
			$logo_img = qq!<IMG SRC="$graphics_url/Logos/$in{'rsc'}$_" ALT="" BORDER=0>!;
			$logo_img = qq!<A HREF="$in{'rsc_rfw'}" TARGET="_top">$logo_img</A>!
			if defined($in{'rsc_rfw'}) && $in{'rsc_rfw'} =~ /^http:/;
			last;
		}


		%RESELLERS = ();
		@r_data = split(/\|/,$in{'r_data'});
		foreach (sort keys %RESELLER_FIELDS) {
			$a = $RESELLER_FIELDS{$_}[0];
			$RESELLERS{$a} = shift(@r_data);
			delete $RESELLERS{$a} if $a =~ /img$|imgSave$/i || (defined($RESELLERS{$a}) && $RESELLERS{$a} !~ /\w+/);
		}
		delete $RESELLERS{'name'} if defined($RESELLERS{'company'});


		foreach (@reseller_include_files) {
			$file = $_;
			$text_file = $html_directory.'/'.$file;
			next if $_ !~ /\w+/ || $contents !~ /<!--\s*$_\s*-->/ || !-e $text_file;

			&read_open($text_file);
			read(FILE, $text, -s $text_file);
			close(FILE);
			$text = (split(/__END__/,$text))[0];

			foreach (keys %RESELLERS) { $text =~ s/<!--\s*$_\s*-->/$RESELLERS{$_}/gi }
			$text =~ s/<!--\s*LOGO_IMAGE\s*-->/$logo_img/gi if $logo_img;
			$contents =~ s/<!--\s*$file\s*-->/$text/gi;
		}
	}


	if (defined(@include_files) && @include_files) {
		my ($text, $text_file);
		foreach (@include_files) {
			$file = $_;
			$text_file = $html_directory.'/'.$file;
			next if $_ !~ /\w+/ || $contents !~ /<!--\s*$_\s*-->/ || !-e $text_file;

			&read_open($text_file);
			read(FILE, $text, -s $text_file);
			close(FILE);
			$contents =~ s/<!--\s*$file\s*-->/\n$text\n/g;
		}
	}
	$contents =~ s/<!--\s*#(include\s*file\s*=)/<!--$1/gi;


	# Convert line terminations
	$contents =~ s/\r\n/\n/g; $contents =~ s/\f\n/\n/g;
	$contents =~ s/\e\n/\n/g; $contents =~ s/\r|\f|\e/\n/g;

	@FILE = split(/\n/,$contents);
	return (@FILE);
}


############################################
# Read HTML $page

sub get_html_page {

	my ($page) = @_;
	my ($end, $frameset, $row);

	&print_cont;

	my @FILE = &get_file($html_directory.'/'.$page);
	$bdy_frm_tags = $end = $frameset = '0';

	my $contents = join('',@FILE);
	# <script language="javascript" src="filename.js"
	$bdy_frm_tags += 2 if $contents =~ /<SCRIPT\s+[\w\W\s]*\.js\s*["]{0,1}\s*>/i;
	$bdy_frm_tags += $contents =~ s/<BODY/<BODY/gi;
	++$frameset if $contents =~ /<FRAMESET/i;

	while (@FILE) {
		$row = shift(@FILE); $row =~ s/\s+$//;
		++$bdy_frm_tags
		if $row =~ m#</{0,1}FORM#i ||
		  ($row =~ /<BODY/i && ($row !~ /<BODY[\w\W\s]*>/i || $row =~ /<BODY[\w\W\s]*>\S/i));

		if ($row =~ m#(</HTML)#i || (!$frameset && $row =~ m#(</BODY)#i)) {
			push(@HTML_FILE,(split(/$1/i,$row))[0]."\n");
			if (!$frameset) { push(@HTML_FILE,"</BODY>\n</HTML>"); return; }
			push(@HTML_FILE,'</HTML>'."\n");
			++$end; last;
		}
		else { push(@HTML_FILE,$row."\n") }
	}

	if (!$frameset) { push(@HTML_FILE,"</BODY>\n</HTML>"); return; }

	push(@HTML_FILE,"\n</HTML>\n") if !$end;

	# Frameset document
	&file_error('Invalid Frameset Tag',
	'<B>Invalid use of frames in store\'s front page:'." $SPACE$frontpage_file</B>",
	'&lt;FRAMESET&gt; detected in the HTML page defined in $frontpage_file in '."$store.",
	'Framesets must be used in the HTML file defined in $frameset_file. '.
	'Frameset pages may be called using &frames=frameset&category=FramesPage.html in query strings.',
	&file_perm()) if $page eq $frontpage_file;
}


############################################
# Common Buttons
# $button_2 = Store Frontpage
# $button_3 = Previous Category
# $button_4 = Order Form

sub common_buttons {

	if ($search) { print qq!\n<INPUT TYPE="image" SRC="$graphics_url/continuesearch.gif" BORDER="0" NAME="continue_shopping" VALUE="Continue Search"> ! }
	elsif (!$form && (($in{'category'} && $in{'category'} !~ /.htm/) || $item_id)) {
		print qq!\n<INPUT TYPE="image" SRC="$graphics_url/continuesearch.gif" BORDER="0" NAME="continue_shopping" VALUE="Continue Shopping"> !
	}
	elsif ($in{'client_form'} || !$cart_id) {
		my ($a);
		if (!$cart_id || !$in{'category'} || $in{'category'} eq $frontpage_file) { $a = $button_2_txt }
		else { $a = $button_3_txt }
		$a = 'Account Found - '.$a if $in{'c_file'};
		print qq!\n<INPUT TYPE="image" SRC="$graphics_url/continuesearch.gif" BORDER="0" NAME="continue_shopping" VALUE="$a"> !;
		return;
	}
	$button_3 = '' if $in{'category'} eq $frontpage_file;
	$button_4 = '' if $in{'security'};
	print "$button_2$button_3$button_4";
}


############################################
#qqq
sub check_keys {

	my ($a, $b, $c);

	$invalid_qty = '';
	foreach (sort keys %in) {
		# Accept item keys - beginning with 'item_id_' or numeric only
		if (/^item_id_/ || /^\d+$/) {
			$c = $_; $c =~ s/^item_id_//; $in{'item_id_'.$c} = $in{$_};
			# Color and size
			$a = 'dd1_'.$c; $b = 'dd2_'.$c;

			if ($in{$_} =~ /\D/ || $in{$_} eq '0' || ($in{'submit_changes'} && $in{$_} eq '')) {
				if ($in{$_} eq '') { push(@{ $cart_errors{$_} },'<A HREF="#'.$_.'">No Quantity</A>') }
				else { push(@{ $cart_errors{$_} },'<A HREF="#'.$_.'">Invalid Quantity</A>: <I>'.&convert_ext($in{$_}).'</I>') }
				++$invalid_qty;
				$items{$c}++;
			}
			# %items - items to add to client cart
			elsif ((defined($in{$a}) && $in{$a} ne '') || (defined($in{$b}) && $in{$b} ne '')) {
				if ($in{$_} !~ /^\d+$/) {
					push(@{ $cart_errors{$_} },'<A HREF="#'.$_.'">No Quantity</A>');
					++$invalid_qty;
				}
				$items{$c}++;
			}
			# Valid items
			elsif ($in{$_} ne '') { $items{$c}++ }
			# %no_items - no category defined
			elsif ($no_category) { $no_items{$c}++ }
		}
		elsif (/^[j-z]+/i) { last }
	}

	# Valid item check
	if (!defined(%items) && !defined(%cart_errors)) { return '' }
	elsif (defined(%items)) { undef %no_items }
	return '1';
}


############################################

sub cart_errors {

	my ($a, $b, $c, $d, $color, $error_msg, $errors, $msg, $size);

	$error_msg = $msg = '';
	$color = $size = '0';

	foreach $a (sort keys %cart_errors) {
		$error_msg .= "\n\t<LI><NOBR>".join(" $SPACE</NOBR> <NOBR>",@{ $cart_errors{$a} }).'</NOBR>';
		next if $color && $size;
		foreach (@{ $cart_errors{$a} }) {
			if ($_ =~ $field_names[0]) { ++$color }
			elsif ($_ =~ $field_names[1]) { ++$size }
		}
	}


	if ($error_msg) {
		if ($color+$size+$invalid_qty > 1) { $a = 's'; $b = ''; $c = 'These fields'; }
		else { $a = ''; $b = 's'; $c = 'This field'; }

		if ($color || $size) {
			if ($color && $size) { $d = "<I>$field_names[0]</I> and <I>$field_names[1]</I>" }
			elsif ($color) { $d = "<I>$field_names[0]</I>" }
			else { $d = "<I>$field_names[1]</I>" }
			$msg = "\n\t$d selection";
			if ($color+$size > 1) { $msg .= 's are' } else { $msg .= ' is' }
			$msg .= ' required.<BR>';
		}
		$msg .= "\n\t".'<I>Quantity</I> values are numeric-only <FONT SIZE=1>(0-9)</FONT>, equal to or greater than 1.<BR>'
		if $invalid_qty;
		$msg .= "\n\t<BR><B>$c must be corrected before you can submit this form.</B>";
		if ($in{'submit_changes'}) { $d = $in{'submit_changes'} } else { $d = $button_5_txt }

		$error_msg = "\n\n<P>$SPACE\n<CENTER>\n$table_open
<TR><TD><FONT SIZE=2$data_face>
	<B>The following <I>$d</I> error$a exist$b on this form:</B>
	<UL>$error_msg\n\t</UL>$msg</FONT></TD></TR>
</TABLE>
</CENTER>\n\n";
	}

	return $error_msg;
}


############################################

sub cart_msg {

	my ($type, $msg) = @_;

	return "\n<P>$SPACE\n\n<\!-- $type Error -->\n<CENTER>\n$table_open
<TR$data_bkg_clr><TH>$dt_fnt_tag$SPACE <I>$type</I> Error: $SPACE$msg $SPACE</FONT></TH></TR>
</TABLE>\n</CENTER>\n";

}


############################################

sub print_search {

	&hidden_form_tags();
	print "\n<CENTER>\n";
	&search_engine_form;
	if ($minimum_order || $grand_total) { print "\n<P>$SPACE\n\n"; &subtotal_msg; }
	print "</CENTER>\n\n<CENTER>\n<P>$button_1$button_2$button_4\n</CENTER>\n</FORM>\n\n";
}


############################################
# Print HTML page or database category

sub disp_sale_items {

	&submit_search if $search && !$in{'category_page'};

	my ($a, $b, $category, $dbase_chk, %db_nums, $value);

	&count_cart_rows;
	$row_count = $in{'tax'} = '';

	$cart_error = &cart_errors if defined(%cart_errors);

	if (defined(@buy_item)) {
		$row_count = 1;
		$category = $db_row[$category_fld_num];
		@CATEGORY_CONTENTS = @buy_item;
	}
	else {
		if ($in{'category'} =~ /\.htm[l]*$/i && !$in{'view_item'}) {
#qqq
			&frontpage("Invalid Database Id in Query String: $SPACE$SPACE \&item_id=<I>$item_id</I> $SPACE$SPACE Id's are <I>Numeric Only</I> $SPACE")
			if $item_id && $dbase_id_fld_num !~ /\d+/ && $item_id !~ /^\d+$/;

			undef $cpage;
			$page = $in{'page'} = $in{'category'} if !$page && !$pcat;
			if (-e $html_directory.'/'.$in{'category'}) { &get_html_page($in{'category'}) }
			else { &frontpage("HTML File not Found: $SPACE$SPACE $html_directory/<I>$in{'category'}</I> $SPACE") }

			while (@HTML_FILE) {
				$row = shift(@HTML_FILE);
				# Search engine help page
				if ($search_engine && $search_tips && $in{'category'} eq $search_tips) {
					if ($row =~ /<BODY/i && $bdy_frm_tags == 1) { print $row; &print_search; }
					elsif ($row =~ m#</BODY#i) {
						&print_search if $bdy_frm_tags != 1;
						&html_trailer;
					}
					else { &substitute($row,'') }
				}
				# Category frontpages and expanded item information pages
				elsif ($row =~ /<BODY/i && $bdy_frm_tags == 1) { print $row.$cart_error; &hidden_form_tags(); }
				elsif ($row =~ m#</BODY#i) {
					&hidden_form_tags() if $bdy_frm_tags != 1;
					print "\n<CENTER>\n<P>$SPACE\n";

					if ($item_id) {
						&get_drop_downs($in{'d1'}, $in{'d2'}, $in{'item_id'})
						if $in{'d1'} ne '' || $in{'d2'} ne '';
						my $x = $in{'item_pr'};
						if ($x ne '') { $x = &format_num($x,'Y') } else { $x = 'N/A' }
						print "$table_open\n";
						$this_bg_clr = $data_bkg_clr;

						$value = '';
						if ($cart_error) {
							$a = $in{'item_id'};
							$value = ' VALUE="'.&convert_ext($in{$a}).'"' if $in{$a} ne '';
						}
						if (defined(%cart_errors)) {
							if ($dropdowns) { $a = '9' } else { $a = '7' }
							print qq!<TR><TD COLSPAN=$a VALIGN=bottom><A NAME="$in{'item_id'}"></A><FONT SIZE=1$data_face><A HREF="#top">Top</A></FONT></TD></TR>\n!;
						}
						if ($drop_down_error && $drop_down_error1) {
							$dd_hdr .= " $SPACE<BR>\n\t$SPACE ".$dd_hdr1;
							$drop_down_error .= $drop_down_error1;
							$dropdowns .= '<HR WIDTH=200 NOSHADE>'.$dropdowns1;
						}
						elsif (!$drop_down_error && $drop_down_error1) {
							$dd_hdr = $dd_hdr1; $drop_down_error = $drop_down_error1; $dropdowns = $dropdowns1;
						}

						&add_cart_button;

						if ($dropdowns || $drop_down_error) {
							# Quantity, drop downs, and Price
							if ($minimum_order || $grand_total) { print "<TR$data_bkg_clr><TH COLSPAN=9>$dt_fnt_tag$subtotal_msg$min_order_msg</FONT></TH></TR>\n" }
							else { $this_bg_clr = $dsc_hr_bkg_clr; }

							# %DD1_FIELDS - %DD2_FIELDS error
							if (!$drop_down_error) {
								print "<TR$dsc_hr_bkg_clr><TD$this_bg_clr WIDTH=$spc_width>$SPACE</TD>
<TH>$dh_fnt_tag${SPACE}Quantity$SPACE</FONT></TH><TD COLSPAN=3>$SPACE</TD>
<TH>$dh_fnt_tag$dd_hdr</FONT></TH>$ch_col_spc
<TH>$dh_fnt_tag$SPACE$field_names[$price_fld_num]$SPACE</FONT></TH>
<TD$this_bg_clr WIDTH=$spc_width>$SPACE</TD></TR>";
							}
							else { print "<TR$error_bkg_clr><TH COLSPAN=9>$SPACE $error_fnt_tag$dd_hdr</FONT> $SPACE</TH></TR>" }

							print qq!\n<TR$data_bkg_clr>$ch_col_spc
<TD ALIGN=center><INPUT TYPE="text" NAME="item_id_$in{'item_id'}"$value SIZE=3 MAXLENGTH=5></TD>
$ac_button
<TD ALIGN=center>$dropdowns</TD>$ch_col_spc
<TD ALIGN=right>$dt_fnt_tag $x</FONT></TD>
$ch_col_spc</TR>\n!;

						}

						# Quantity and Price - No drop downs
						else {

							print "<TR$dsc_hr_bkg_clr><TH COLSPAN=7>$dh_fnt_tag$subtotal_msg$min_order_msg</FONT></TH></TR>\n"
							if $minimum_order || $grand_total;

							print qq!<TR$data_bkg_clr>$ch_col_spc
<TD ALIGN=center>$dt_fnt_tag<B>Quantity: $SPACE </B></FONT><INPUT TYPE="text" NAME="item_id_$in{'item_id'}"$value SIZE=3 MAXLENGTH=5></TD>
$ac_button
<TD ALIGN=right>$dt_fnt_tag<B>$field_names[$price_fld_num]:</B> $SPACE $x</FONT></TD>
$ch_col_spc</TR>\n!;
						}
						print "</TABLE>\n</CENTER>\n\n<CENTER>\n<P>$SPACE\n\n$button_5 ";
					}
					else { if ($minimum_order || $grand_total) { &subtotal_msg; print "</CENTER>\n\n<CENTER>\n<P>"; } }

					print $button_1;
					print $button_2 if $in{'category'} ne $frontpage_file;
					print $button_3 if $page ne $in{'category'};
					if ($in{'d1'} ne '' || $in{'d2'} ne '') { print "$button_4\n$rst_button\n\n" }
					else { print "$button_4\n\n"; }
					&search_engine_form if $search_engine;
					print "</CENTER>\n</FORM>\n\n";
					# Output frontpage trailer html
					&frontpage_trailer_html if $frontpage_trailer && $in{'category'} eq $frontpage_file;
					&html_trailer;
				}
				else {
					&substitute($row,'');
					print $cart_error if $row =~ /<BODY/i && $cart_error;
				}
			} # End while (@HTML_FILE)
		} # End if ($in{'category'} =~ /.htm/)
		undef $item_id;


		if (defined($in{'env'}) && $in{'env'} =~ /dbase/i) { $dbase_chk = '1'; %db_nums = (); }
		else  { $dbase_chk = '' }

		$row_count = 0;
		&read_open($data_file);
		while (<FILE>) {
			s/\s+$//;
			next if /^$|^COMMENT:/i;
			if (&item_row($_) && &valid_id($db_id_num)) {
				# Duplicate id checking
				if ($dbase_chk) {
					if (defined($db_nums{$db_id_num})) { close(FILE); &dbase_error; }
					$db_nums{$db_id_num}++;
				}

				if ($in{'view_item'}) {
					next if $in{'view_item'} ne $db_row[$item_fld_num];
					$category = $db_row[$category_fld_num];
					$in{'category'} = $db_id_num;
					undef @CATEGORY_CONTENTS; push(@CATEGORY_CONTENTS,$_);
					$row_count = 1; last if !$dbase_chk;
				}
				elsif ($in{'category'} eq $db_id_num) {
					$category = $db_row[$category_fld_num];
					undef @CATEGORY_CONTENTS; push(@CATEGORY_CONTENTS,$_);
					$row_count = 1; last if !$dbase_chk;
				}
				elsif ($db_row[$category_fld_num] eq $in{'category'}) {
					push(@CATEGORY_CONTENTS,$_); ++$row_count;
				}
				# Exit FILE - complete category found
				elsif ($row_count && !$dbase_chk) { last }
			}
		}
		close(FILE);


		if (!$row_count) {
			if ($in{'view_item'}) { &frontpage("Item <I>$in{'view_item'}</I> not available in <I>$data_file1</I> $SPACE") }
			elsif ($in{'category'} =~ /^\d+$/) { &frontpage("Record number <I>$in{'category'}</I> not available in <I>$data_file1</I> $SPACE") }
			else { &frontpage("No records available for <I>$in{'category'}</I> in <I>$data_file1</I> $SPACE") }
		}
		elsif ($row_count > $max_items) {
			$cpage = 'Y';
			$row_count = $search_rows = 0;
			&next_prev_first;
			while (@CATEGORY_CONTENTS) {
				$matched_row = shift(@CATEGORY_CONTENTS);
				&next_prev;
			}
			undef @CATEGORY_CONTENTS;
			unshift(@CATEGORY_CONTENTS,@SEARCH_RESULT); undef @SEARCH_RESULT;
			$next = 1 if !$next && !$previous;
		}
	} # End if (defined(@buy_item))


	$category = $in{'category'} if !$category;
	$category = &convert_ext($category);

	&html_header($category);
	# Preface category pages
	if ($cart_error) { print $cart_error }
	elsif ($pre_category) {
		&pre_category_html;
		&print_text_file($in{'category'},'C-HDR') if $pre_category eq '2';
	}
	&hidden_form_tags();
	&disp_table_vars(@CATEGORY_CONTENTS);
	# title row
	&table_title($table_title,$table_border,$table_width);

	print "\n<TR$header_bkg_clr><TD ALIGN=center>$hrd_fnt_tag";
	if ($cpage) {
		$b = (split(/\./,&format_num($curr_item,'Y')))[0];
		if ($max_items == 1 || ($first == $total_items)) { $a = '' }
		else { $a = 's'; $b = (split(/\./,&format_num($first_item,'Y')))[0].' - '.$b; }
		print "${SPACE}Item$a $b of <B>".(split(/\./,&format_num($total_items,'Y')))[0]."</B>$SPACE ";
	}

	print "<NOBR>$SPACE<B>$category</B>$SPACE</NOBR></FONT></TD></TR>";

	&print_fields(@CATEGORY_CONTENTS);

	print "\n<TR$border_bkg_clr><TD HEIGHT=1 COLSPAN=$border_colspan><FONT SIZE=1>$SPACE</FONT></TD></TR>"
	if $table_border;
	print "\n</TABLE>\n</CENTER>" if !$table_width;

	&print_next_prev;
	print "\n</CENTER>" if $next || $previous;
	print "\n\n<P>\n\n<CENTER>$button_5$button_1$button_2$button_3$button_4\n$rst_button\n</CENTER>\n</FORM>\n\n";

	if ($category_trailer) {
		&category_trailer_html;
		&print_text_file($in{'category'},'C-TRL') if $category_trailer eq '2';
	}
	&html_trailer;
}


############################################

sub item_row {

	my ($row) = @_;

	@db_row = split(/\|/,$row);
#qqq
	if ($dbase_id_fld_num =~ /\d+/) { $db_id_num = $db_row[$dbase_id_fld_num] }
	else { $db_id_num = $db_row[$#db_row] }
	# Item row
	return(1) if $db_id_num ne '' && $db_row[$category_fld_num] ne '';
	return();
}


############################################

sub valid_id {

	my ($num) = @_;
#qqq
	return(1) if ($dbase_id_fld_num =~ /\d+/ && $num =~ /\S+/) || $num =~ /^\d+$/;
	close(FILE);
	&dbase_error;
}


############################################

sub dbase_error {

	my ($a, $b, $c, $d, $e, $f, $alpha, $file1, $file2, @inv_ids, @dirs, @dup_ids,
	    %db_nums, $font1, $font2, $match, @nums, $script, $special);

	&read_open($data_file);
	while (<FILE>) {
		s/\s+$//;
		next if /^$|^COMMENT:/i;
		if (&item_row($_)) {
			$a = $db_id_num;
			if (defined($db_nums{$a})) { push(@dup_ids,'<B>'.&convert_ext($a).'</B> - <I>'.$db_row[$category_fld_num].'</I> Category') }
			else { $db_nums{$a}++ }
#qqq
			if ($dbase_id_fld_num !~ /\d+/ && $a !~ /^\d+$/) {
				push(@inv_ids,'<B>'.&convert_ext($a).'</B> - <I>'.$db_row[$category_fld_num].'</I> Category');
				$special = $a =~ tr/A-Za-z0-9_/ /c if !$special;
				$alpha = $a =~ tr/0-9/ /c if !$alpha;
			}
		}
	}
	close(FILE);

	$a = '';
	if (@duplicate_ids && !@dup_ids && !@inv_ids) {
		$c = $d = $e = $font1 = $font2 = $match = ''; $f = '.';
		if (scalar(@duplicate_ids) > 1) { $b = 's' } else { $b = '' }
		if (!$in{'cart_id'} || !$in{'category'} || $ENV{'QUERY_STRING'}) {
			if ($ENV{'QUERY_STRING'}) {
				$a = 'Invalid Query String'; $e = 'query strings';
				$font1 = '<FONT COLOR="#DC143C">'; $font2 = '</FONT>';
				$c = '?'.$ENV{'QUERY_STRING'}; $c =~ s/&amp;/&/g;
				foreach (@duplicate_ids) {
					foreach $d (@nums) { if ($d eq $_) { ++$match; last; } }
					if (!$match) {
						$c =~ s/\&$_=/\&$font1$_$font2=/g;
						$c =~ s/^\?$_=/\?$font1$_$font2=/;
						push(@nums,$_);
					}
					else { $match = '' }
				}
				$d = '';
				$c =~ s/&/&amp;/g;
				$c = ' in query string:<PRE>'."\n    $c</PRE>";
				if ($ENV{'HTTP_REFERER'} =~ /\.[sp]{0,1}htm[l]{0,1}$/i) {
					$d = qq!Error occurred on <A HREF="$ENV{'HTTP_REFERER'}"$target>$ENV{'HTTP_REFERER'}</A>!
				}
			}
			elsif ($ENV{'HTTP_REFERER'} =~ /\.[sp]{0,1}htm[l]{0,1}$/i) {
				$c = qq! on <A HREF="$ENV{'HTTP_REFERER'}"$target>$ENV{'HTTP_REFERER'}</A>!
			}
		}
		elsif ($in{'category'} =~ /\.htm[l]*$/i) {
			$c = ' on '.$html_directory.'/'.$in{'category'}
		}

		if (!$a) {
			$a = 'Form name=value Error'.$b;
			$f = ':<PRE>    &lt;INPUT TYPE="text" <B>NAME=</B>"<B>'.$duplicate_ids[0].'</B>" SIZE=3 MAXLENGTH=5&gt;</PRE>';
			$e = 'quantity text inputs';
		}
		$d = "<B>Duplicated name=value pair$b:</B>".&id_errors(@duplicate_ids) if !$d;

		&file_error(
			$a,"<B>Duplicate ${font1}name${font2}=value pair$b$c</B>", $d,
			"Database Id <I>name=value</I> pairs defined in $e must be unique$f",
			&file_perm()
		);
	}


	if (@dup_ids) {
		if (scalar(@dup_ids) > 1) { $b = 's' } else { $b = '' }
		$a .= "\n<B>Duplicated Database Id Number$b:</B>";
		$a .= &id_errors(@dup_ids);
	}

	if (@inv_ids) {
		if (scalar(@inv_ids) > 1) { $b = 's' } else { $b = '' }
		$a .= "\n<B>";
		$a .= 'Alpha' if $alpha;
		$a .= ' and ' if $alpha && $special;
		$a .= 'Special' if $special;
		$a .= " Characters in Database Id Number$b:</B>";
		$a .= &id_errors(@inv_ids);
		$c = ' are <I>numeric only</I> (<I>0-9</I>) and';
	}

	$file1 = 'ws_editor.cgi';
	if ($ENV{'SCRIPT_FILENAME'} =~ m#^/#) {
		@dirs = split(/\//,$ENV{'SCRIPT_FILENAME'});
		$file2 = pop(@dirs);
		$script = join('/',@dirs).'/'.$file1;
		if (-r $script && -x $script) {
			$script_url =~ s/$file2$/$file1/g;
			$file1 = qq!<A HREF="$script_url" TARGET="_top">$file1</A>!;
		}
	}

	if (scalar(@dup_ids) + scalar(@inv_ids) > 1) { $b = 's' } else { $b = '' }
	&file_error("Invalid Database Id$b",
	"<B>Invalid Database Id Number$b in $data_file</B>", $a,
	"Database id numbers$c must be unique to each item in the database.",
	"Correct id numbers with <I>$file1</I> using <I>Sort/Add</I> or <I>Sort/Remove</I>.",
	&file_perm());

	sub id_errors {
		my (@errors) = @_;
		my $a = '';

		$a .= "\n\t<UL>";
		foreach (sort @errors) { $a .= "\n\t<LI>$_" }
		$a .= "\n\t</UL>";
	}
}


############################################

sub substitute {

	my ($row, $front_frames) = @_;
	my $qs = '';

	if ($row =~ /cart_id=/) {
		# Allow setup file switching
		if ($store ne $default_setup_file && $row !~ /store=/) { $qs .= '&store='.$store; $qs =~ s/\.setup$//; }
		# No search engine
		$qs .= '&no_search='.$no_search.$in{'no_search'} if ($no_search || $in{'no_search'}) && $row !~ /no_search=/;
		$q_string = &query_string() if !defined($q_string);

		# Substitute &page= if it does not exists in $row
		if (!$front_frames) { $qs .= '&page='.$page if $page && $row !~ /page=/ }
		# Preserve incoming query string - Frames and new cart file
		elsif ($front_frames eq 'Y' && $in{'nc'} eq $cart_id && !$new_cart) {
			$new_cart = '&nc='.$cart_id;
			foreach (sort keys %in) { $new_cart .= '&'.$_.'='.$in{$_} if $_ =~ /^nc_/ }
			$new_cart =~ s/\s+/+/g;
		}
		$row =~ s/cart_id=/cart_id=$cart_id$qs$new_cart$q_string&dci=/g;
	}

	if (defined($bdy_frm_tags) && $bdy_frm_tags > 1) {
		if (!defined($CART_ID)) {
			$CART_ID = qq!<INPUT TYPE="hidden" NAME="cart_id" VALUE="$cart_id">!;
			$CART_ID .= qq!\n<INPUT TYPE="hidden" NAME="env" VALUE="$in{'env'}">! if defined($in{'env'});

			my @a = ('c_file','demo','no_search','ns','no_ssl','pwd','uid');
			push(@a, @rs_fields) if $rs_code ne '';
			foreach (sort @a) {
				$CART_ID .= qq!\n<INPUT TYPE="hidden" NAME="$_" VALUE="!.&convert_ext($in{$_}).'">'
				if defined($in{$_}) && $in{$_} ne '';
			}
			$HIDDEN_TAGS = $CART_ID;
			foreach ('store','category','frames','form','page','pcat','item_id','item_pr','d1','d2','rfw') {
				$HIDDEN_TAGS .= qq!\n<INPUT TYPE="hidden" NAME="$_" VALUE="!.&convert_ext($in{$_}).'">'
				if defined($in{$_}) && $in{$_} ne '';
			}

			$PAGE    = qq!<INPUT TYPE="hidden" NAME="page" VALUE="$page">! if $page;
			$STORE   = qq!<INPUT TYPE="hidden" NAME="store" VALUE="$store">!;
		}

		$row =~ s/<\!--\s*CART_ID\s*-->/$CART_ID/g;
		$row =~ s/<\!--\s*HIDDEN_TAGS\s*-->/$HIDDEN_TAGS/g;
		$row =~ s/<\!--\s*PAGE\s*-->/$PAGE/g if defined($PAGE);
		$row =~ s/<\!--\s*STORE\s*-->/$STORE/g;
	}
	print $row;
}


############################################

sub hidden_form_tags {

	my ($form) = @_;
	my (@tags);

	%form_tags = ();

	print qq!\n<FORM METHOD="POST"  ACTION="$main_script_url">
<INPUT TYPE="hidden" NAME="store" VALUE="$store">!;
	print qq!\n<INPUT TYPE="hidden" NAME="cart_id" VALUE="$cart_id">! if $cart_id;

	&print_tags('c_file','demo','uid','pwd','page','pcat','formfile');

	if (!$form) {
		@tags = ('category','name_vals');
		push(@tags,'retry') if !defined($first_access);

		if (defined($send_order)) { push(@tags,'ship'); &print_form_tags(%OrderForm); }
		elsif (defined($print_tags)) { &print_tags(@client_fields) }
		elsif ($in{'form'}) { push(@tags,'form','frames','ship') }
		elsif ($in{'client_form'} || !$cart_id) { push(@tags,'client_form','frames','ship') }
		elsif (defined(%ClientForm)) { push(@tags,'ship') }
	}
	elsif ($in{'client_form'} || !$cart_id) { @tags = ('category','frames') }

	&print_tags('item_id','item_pr','d1','d2') if $item_id || (!$cart_id && $in{'item_id'});
	if (!$cart_id) {
		&print_tags(@name_values) if @name_values;
		&print_tags('pd','ud') if $password_file;
	}

	print qq!\n<INPUT TYPE="hidden" NAME="no_search" VALUE="Y">! if $in{'no_search'};
	print qq!\n<INPUT TYPE="hidden" NAME="ns" VALUE="Y">! if $in{'ns'};
	print qq!\n<INPUT TYPE="hidden" NAME="no_ssl" VALUE="Y">! if $in{'no_ssl'};

	# Preserve search variables
	if ($cart_id && ($cpage || ($search_engine && ($in{'submit_search'} || $search)))) {
		if ($cpage) { print qq!\n<INPUT TYPE="hidden" NAME="cpage" VALUE="Y">! }
		else { print qq!\n<INPUT TYPE="hidden" NAME="search" VALUE="Y">! }

		# View/Modify, Invalid Value, Minimum Order, and
		# Return to Category pages during a search
		if (defined($search_tags) || ($cpage.$search &&
		   (($in{'add_cart'} && !$display_category) ||
		   ($in{'submit_deletion'} && -s $user_cart) ||
		    "$in{'submit_changes'}$in{'modify_cart'}$in{'delete_item'}$in{'security'}")))
		{
			&print_tags('text_val','price_val','text_arg','price_arg','product_arg');
			if (defined($search_tags)) { &item_tags }
			else { &print_tags('first','curr_item','total_item') }
		}
		else { &item_tags }
	} # End if ($search_engine

	&print_tags(@rs_fields) if $rs_code ne '';
	push(@tags,'tax'); &print_tags(@tags);
	print qq!\n<INPUT TYPE="hidden" NAME="env" VALUE="$in{'env'}">! if defined($in{'env'});
	print qq!\n<INPUT TYPE="hidden" NAME="security" VALUE="$security">! if defined($security) && $security;
	print qq!\n<INPUT TYPE="hidden" NAME="noLoad" VALUE="Y">! if defined($in{'noLoad'});
	print "\n\n";
}


############################################

sub item_tags {

	if ($next || $previous || $first) {
		print qq!\n<INPUT TYPE="hidden" NAME="first" VALUE="$first">
<INPUT TYPE="hidden" NAME="curr_item" VALUE="$curr_item">
<INPUT TYPE="hidden" NAME="total_item" VALUE="$total_items">!;
	}
}


sub print_tags {

	my (@array) = @_;

	%form_tags = () if !defined(%form_tags);

	foreach (sort @array) {
		if (!defined($form_tags{$_})) {
			print qq!\n<INPUT TYPE="hidden" NAME="$_" VALUE="!.&convert_ext($in{$_}).'">'
			if defined($in{$_}) && ($in{$_} ne '' || !$cart_id);
			$form_tags{$_}++;
		}
	}
}


############################################

sub print_cart_row {

	my ($type) = @_;
	my ($a, $al, $b, $client_dd1, $client_dd2, $dd1_index, $dd2_index, $font1, $font2,
	    $subtotal, $x);

	print "<TR$modify_bkg_clr>\n";

	if ($type) {
		if (!defined(%cart_errors)) { $a = $m_col_spc }
		else {
			$a = qq!<TD WIDTH=$modify_spc_width><A NAME="$ct_rw_num"></A>!;
			if (defined($cart_errors{$ct_rw_num})) { $a .= qq!<FONT SIZE=1$data_face><A HREF="#top">Top</A></FONT>$SPACE$SPACE! }
			else { $a .= $SPACE }
			$a .= '</TD>';
		}
		print "<TD ALIGN=center>$type</TD>\n$a\n";
	}

	($dd1_index, $client_dd1) = split(/~{2}/,$dd1_string) if $ct_row[0] =~ /~{2}/;
	($dd2_index, $client_dd2) = split(/~{2}/,$dd2_string) if $ct_row[1] =~ /~{2}/;

	foreach (@modify_display_numbers) {
		$font1 = $md_fnt_tag; $font2 = '</FONT>';

		if ($_ eq '0') {
			if (!$change_qty && $ct_row[0] =~ /~{2}/) { $ct_row[$_] = &convert_ext($client_dd1) }
			# drop down for Change Quantitiy
			elsif ($change_qty && $ct_row[0] =~ /~{2}/) {

				$a = 'dd1_'.$ct_rw_num;
				$b = qq!<SELECT NAME="$a">!;
				$a = &convert_ext($client_dd1);
				$b .= qq!\n\t<OPTION VALUE="$a" SELECTED>$a !;
				foreach $val ( @{ $DD1_FIELDS{$dd1_index} } ) {
					$a = $val; $a =~ s/\s+//g;
					if ($a =~ /\w+/ && $val ne $client_dd1) {
						$a = &convert_ext($val);
						$b .= qq!\n\t<OPTION VALUE="$a">$a !;
					}
				}
				$b .= '</SELECT>'; $ct_row[$_] = $b; $font1 = $font2 = '';
			} else { $ct_row[$_] = '' }
		}

		if ($_ eq '1') {
			if (!$change_qty && $ct_row[1] =~ /~{2}/) { $ct_row[$_] = &convert_ext($client_dd2) }
			# drop down for Change Quantitiy
			elsif ($change_qty && $ct_row[1] =~ /~{2}/) {
				$a = 'dd2_'.$ct_rw_num;
				$b = qq!<SELECT NAME="$a">!;
				$a = &convert_ext($client_dd2);
				$b .= qq!\n\t<OPTION VALUE="$a" SELECTED>$a !;
				foreach $val ( @{ $DD2_FIELDS{$dd2_index} } ) {
					$a = $val; $a =~ s/\s+//g;
					if ($a =~ /\w+/ && $val ne $client_dd2) {
						$a = &convert_ext($val);
						$b .= qq!\n\t<OPTION VALUE="$a">$a !;
					}
				}
				$b .= '</SELECT>'; $ct_row[$_] = $b; $font1 = $font2 = '';
			} else { $ct_row[$_] = '' }
		}

		$x = $ct_row[$_];
		if ($x eq '') { $x = 'N/A' }
		elsif ($_ eq $price_fld_num) { $x = &format_num($x,'Y') }
		if ($modify_fields_array{$_} =~ /^(left|center|right)$/i) { $al = $modify_fields_array{$_} }
		else { $al = 'left' }
		print "<TD ALIGN=$al>$font1$x$font2</TD>\n$m_col_spc\n";
	} # End foreach (@modify_display_numbers)

	print "<TD ALIGN=center>$md_fnt_tag$quantity</FONT></TD>\n$m_col_spc\n";
	$subtotal = &format_num($quantity*$ct_row[$price_fld_num]);
	$grand_total += $subtotal;
	print "<TD ALIGN=right>$md_fnt_tag".&format_num($subtotal,'Y')." </FONT></TD></TR>\n\n$m_row_spc\n\n";
}


############################################

sub subtotal_msg {

	$subtotal_msg = '' if !$grand_total;
	print "\n<\!-- Subtotal Table -->\n$table_open
<TR$data_bkg_clr><TH>$dt_fnt_tag$subtotal_msg$min_order_msg</FONT></TH></TR>
</TABLE>\n";
}


############################################

sub print_fields {

	my (@ITEMS) = @_;
	my ($a, $b, $c, $al, $align, $b_inner_img_clr, $b_outer_img_clr, $e_inner_img_clr,
	    $e_outer_img_clr, $img_LRT, $height, $img_src, $item_ref, $l_img_src, $no_img,
	    $r_img_src, $t_img_src, $table_align, $value, $width, $x, $y);

	if ($img_spacing >= $spc_width && $img_spacing !~ /^\D+$/) { $height = $img_spacing }
	elsif ($spc_width && $spc_width !~ /^\D+$/) { $img_spacing = $height = $spc_width }
	else  { $img_spacing = $height = 7 }
	$img_padding = '0' if !$img_padding || $img_padding =~ /\D/;
	if ($outer_clr_width && $outer_img_clr ne '') { $outer_img_clr = qq! BGCOLOR="$outer_img_clr"! }
	else { $outer_clr_width = '0'; $outer_img_clr = ''; }
	if ($inner_clr_width && $inner_img_clr ne '') { $inner_img_clr = qq! BGCOLOR="$inner_img_clr"! }
	else { $inner_clr_width = '0'; $inner_img_clr = ''; }
	$subtotal_msg = '' if !$grand_total;

	print "\n<TR$dsc_hr_bkg_clr><TH>$dh_fnt_tag$subtotal_msg$min_order_msg</FONT></TH></TR>"
	if $minimum_order || $grand_total;

	&add_cart_button;

	my $spc_row1 = "\n\t<TR><TD COLSPAN=3 HEIGHT=2> </TD></TR>";
	my $spc_row2 = "\n\t<TR><TD COLSPAN=2 HEIGHT=10> </TD></TR>";
	my $spc_row3 = "<TR><TD HEIGHT=$spc_height> </TD></TR>";
	my $TABLE    = qq!\n\t<TABLE BORDER=$border CELLPADDING=1 CELLSPACING=0 width=100%>!;

	$item_separator =~ s/^\s+//g;
	$item_separator =~ s/\s+$//g;
	if ($item_separator) {
		$item_separator =~ s/\s{2,}/ /g;
		$item_separator = "\n\n\n<!-- ITEM SEPARATOR -->\n<CENTER>\n<TABLE BORDER=$border$table_width CELLPADDING=$CELLPADDING CELLSPACING=0>\n".
	                      '<TR><TD HEIGHT='.sprintf("%d",$spc_height*3)." ALIGN=center VALIGN=middle>$nc_fnt_tag$item_separator</FONT></TD></TR>".
		                  "\n</TABLE>\n</CENTER>";
	}
	else { $item_separator = '' }

	if ($table_width) { print "\n$spc_row3"; $width = ' WIDTH="100%"'; }
	else { $width = '' }

	$table_tag = '';
	while (@ITEMS) {
		&item_row(shift(@ITEMS));
		$x = &format_num($db_row[$price_fld_num]);

		# Image ornamental color tables
		$align = 'right'; $table_align = 'left';
		$dd_print = $img_LRT = $img_src = $item_ref = $l_img_src = $no_img =
		$r_img_src = $t_img_src = $img_width = '';

		# Construct image filename using item reference number
		if ($item_fld_num ne '' && $db_row[$item_fld_num] ne '') {
			$a = $db_row[$item_fld_num]; $a =~ s/(^\s+|\s+$)//g; $a =~ s/\s+/_/g;
			$b = $grph_directory.'/'.$a;

			foreach $c ('.gif','.jpg','.jpeg') {
				next if !-e $b.$c || !-r $b.$c;
				$img_src = qq!<IMG SRC="$graphics_url/$a$c" ALT="" BORDER=0>!;
				last;
			}

			$img_src = (split(/~~/,$db_row[$image_fld_num]))[0].'~~'.$img_src
			if $img_src && $db_row[$image_fld_num] =~ /^\w{1,2}~~/;

			$item_ref = qq!<A NAME="$a"></A>!;
		}

		$img_src = $db_row[$image_fld_num] if !$img_src && length($db_row[$image_fld_num]) > 6;

		if ($img_src) {
			if ($img_src =~ /~~/) { ($img_LRT, $img_src) = split(/~~/,$img_src) }
			else { $img_LRT = 'L' }
			# <img src> syntax check
			if ($img_src !~ /((<IMG\s+SRC){1}\s*[=]){1}\s*["]{1}\s*[\w\W]+\s*["]{1}[\s\w=]*[>]+/i &&
			    $img_src !~ /((<IMG\s+){1}[\w\W\s]*(\s+SRC){1}\s*[=]){1}\s*["]{1}\s*[\w\W]+\s*["]{1}[\s\w=]*[>]+/i)
			{
				$t_img_src = "\n\t<TR$error_bkg_clr><TD COLSPAN=3 ALIGN=center>
	$error_fnt_tag$SPACE<B>Image Syntax Error: $SPACE Record id $db_id_num, field $image_fld_num in <I>$data_file1</I></B>$SPACE<BR>
	$SPACE<FONT SIZE=1>".&convert_ext($img_src)."</FONT>$SPACE</FONT></TD></TR>";
				$img_LRT = 'T';
			}

			$img_src = &chk_cart_id($img_src, $x);

			$b_inner_img_clr = $b_outer_img_clr = $e_outer_img_clr = $e_inner_img_clr = '';
			if ($img_border || ($outer_clr_width && $outer_img_clr)) {
				$b_outer_img_clr = "<!--\n\tOUTER COLOR --><TABLE BORDER=$img_border CELLSPACING=$img_padding CELLPADDING=$outer_clr_width><TR><TD$outer_img_clr>";
				$e_outer_img_clr = '</TD></TR></TABLE>';
			}
			if ($inner_clr_width && $inner_img_clr) {
				$b_inner_img_clr = "<!--\n\tINNER COLOR --><TABLE BORDER=0 width=100% CELLSPACING=0 CELLPADDING=$inner_clr_width><TR><TD$inner_img_clr>";
				$e_inner_img_clr = '</TD></TR></TABLE>';
			}
			$img_src = "<!--\n\tIMAGE TABLE --><TABLE BORDER=0 CELLSPACING=$img_spacing CELLPADDING=0><TR><TD>$b_outer_img_clr$b_inner_img_clr$img_src$e_inner_img_clr$e_outer_img_clr</TD></TR></TABLE>";

			if ($img_LRT eq 'R') {
				$r_img_src = "<TD VALIGN=top>$img_src</TD>";
				$l_img_src = $c_col_spc;
				$align = 'left'; $table_align = 'right';
			}
			elsif ($img_LRT =~ /^T/) {
				$img_width = ' WIDTH="100%"' if $table_width;
				if ($img_LRT eq 'TR') { $a = 'right'; $align = 'left'; }
				elsif ($img_LRT eq 'TL') { $a = 'left' }
				else { $a = $align = 'center' }
				$t_img_src .= "\n\t<TR><TD COLSPAN=3 VALIGN=top ALIGN=$a>$img_src</TD></TR>"
				if !$t_img_src;
				$l_img_src = $r_img_src = $c_col_spc;
				$table_align = 'center';
			}
			else {
				$l_img_src = "<TD VALIGN=top>$img_src</TD>";
				$r_img_src = $c_col_spc;
			}
		}
		else { $l_img_src = $r_img_src = $c_col_spc; $no_img = '1'; }

		print "\n\n\n<!-- ITEM $db_id_num -->";
		print "\n<CENTER>\n<TABLE BORDER=$border$table_width CELLPADDING=$CELLPADDING CELLSPACING=0 width=100%>"
		if $table_width && $table_tag;

		$a = $value = '';
		if (defined(%cart_errors)) {
			$item_ref = qq!<A NAME="$db_id_num"></A>!;
			$value = ' VALUE="'.&convert_ext($in{$db_id_num}).'"' if $in{$db_id_num} ne '';
			$item_ref .= qq!<FONT SIZE=1$data_face>$SPACE<A HREF="#top">Top</A>$SPACE</FONT>!
			if defined($cart_errors{$db_id_num});
		}
		elsif (!$item_ref) { $item_ref = qq!<A NAME="$db_id_num"></A>! }
		print "\n<TR$data_bkg_clr><TD ALIGN=$table_align>$item_ref".
		      "\n\t<TABLE BORDER=$border$img_width CELLPADDING=0 CELLSPACING=0>$t_img_src";


		$dropdowns = $dd_hdr = '';
		&get_drop_downs($db_row[0], $db_row[1], $db_id_num)
		if $db_row[0] ne '' || $db_row[1] ne '';

		if ($db_row[$price_fld_num] ne '') { $price = &format_num($x,'Y') } else { $price = 'N/A' }

		# Output rows admin has set for display
		print $spc_row1 if $no_img;
		print "\n\t<TR>$l_img_src\n\n\t<TD$img_width>";
		if (@vertical_numbers) {
			my ($att, $tag1, $tag2, $tag3, $tag4, $val, $label, $no_label);
			my $tag = ''; print $TABLE;
			foreach (@vertical_numbers) {
				($a, $att) = split(/:/,$_);
				if ($a eq '') { print $spc_row2; next; }

				if ($fields_array{$a} =~ /^(left|center|right)$/i) { $al = $fields_array{$a} }
				else { $al = 'left' }

				$tag1 = $tag2 = $tag3 = $tag4 = '';
				# Field labels
				if ($att !~ /N/) {
					if ($att =~ /U/) { $tag1 = '<U>'.$tag1; $tag2 .= '</U>'; }
					if ($att =~ /I/) { $tag1 = '<I>'.$tag1; $tag2 .= '</I>'; }
					if ($att =~ /B/) { $tag1 = '<B>'.$tag1; $tag2 .= '</B>'; }
					if ($a ne '0') { $val = ' VALIGN=top' } else { $val = '' }
					$label = "<TD$val>$dt_fnt_tag$tag1$field_names[$a]:$tag2 $SPACE</FONT></TD><TD ALIGN=$al$val>";
					$no_label = '';
				}
				else { $label = "<TD COLSPAN=2$img_width ALIGN=$al>"; $no_label = 'Y'; }
				# Field contents
				if ($att =~ /u/) { $tag3 = '<U>'.$tag3; $tag4 .= '</U>'; }
				if ($att =~ /i/) { $tag3 = '<I>'.$tag3; $tag4 .= '</I>'; }
				if ($att =~ /b/) { $tag3 = '<B>'.$tag3; $tag4 .= '</B>'; }

				if ($db_row[$a] ne '') { $y = &chk_cart_id($db_row[$a], $x) } else { $y = $SPACE }

				if ($a eq '0') {
					next if $drop_down_error;
					$b = ''; ++$dd_print;

					if ($db_row[0] ne '') {
						$a = $db_row[0];
						$b .= "\n\t<TR>$label".&drop_down('dd1_'.$db_id_num, @{ $DD1_FIELDS{$a} }).'</TD></TR>'
					}
					if ($db_row[1] ne '') {
						$a = $db_row[1];
						if ($no_label) { $c = $label }
						else { $c = "<TD>$dt_fnt_tag$tag1$field_names[1]:$tag2 $SPACE</FONT></TD><TD ALIGN=$al>" }
						$b .= "\n\t<TR>$c".&drop_down('dd2_'.$db_id_num, @{ $DD2_FIELDS{$a} }).'</TD></TR>'
					}

					if ($no_label) { $c = $label }
					else { $c = "<TD>$dt_fnt_tag${tag1}$field_names[$price_fld_num]:$tag2 $SPACE</FONT></TD><TD ALIGN=$al>" }
					print "\n\t<TR>$c$dt_fnt_tag$tag3$currency $price$tag4</FONT></TD></TR>";

					if ($no_label) { $c = $label }
					else { $c = "<TD>$dt_fnt_tag${tag1}Quantity:$tag2 $SPACE</FONT></TD><TD ALIGN=$al>" }
					print qq!\n\t<TR>$c\n\t$TABLE\n\t<TR><TD><INPUT TYPE="text" NAME="item_id_$db_id_num"$value SIZE=3 MAXLENGTH=5></TD>!.
					      "$ac_button</TR>\n\t</TABLE></TD></TR>$b";
				}
				elsif ($db_row[$a] ne '') {
					print "\n\t</TABLE>$TABLE" if $no_label && $tag;
					if ($a ne $price_fld_num) { print "\n\t<TR>$label$dt_fnt_tag$tag3$db_row[$a]$tag4 $SPACE</FONT></TD></TR>" }
					else { print "\n\t<TR>$label$dt_fnt_tag$tag3$currency $price$tag4</FONT></TD></TR>" }
					if ($no_label) { print "\n\t</TABLE>$TABLE"; ++$tag; }
				}
			}
			print "\n\t</TABLE></TD>$r_img_src</TR></TABLE></TD></TR>\n";

			$tag = '1';
			foreach (@display_numbers) {
				next if $db_row[$_] eq '';
				print "\n\t<!-- $_:  $field_names[$_] -->";
				if ($tag < 2) {
					print "\n\t<TR$data_bkg_clr><TD>".
				    	  "\n\t<TABLE BORDER=$border$width CELLPADDING=1 CELLSPACING=$spc_width>";
					++$tag;
				}
				print $spc_row2 if $tag =~ /[13579]$/;
				$y = &chk_cart_id($db_row[$_], $x);
				if ($fields_array{$_} =~ /^(left|center|right)$/i) { $al = $fields_array{$_} }
				else { $al = 'left' }
				print "\n\t<TR><TD ALIGN=$al>$dt_fnt_tag$y</FONT></TD></TR>";
			}
			print "\n\t</TABLE></TD></TR>\n" if $tag > 1;
		}
		else {
			print $TABLE;
			$a = $display_numbers[scalar(@display_numbers) - 1];
			foreach (@display_numbers) {
				next if $db_row[$_] eq '';
				$y = &chk_cart_id($db_row[$_], $x);
				if ($fields_array{$_} =~ /^(left|center|right)$/i) { $al = $fields_array{$_} }
				else { $al = 'left' }
				print "\n\t<!--  $_:  $field_names[$_] -->".
				      "\n\t<TR><TD ALIGN=$al>$dt_fnt_tag$y</FONT></TD></TR>";
				print $spc_row2 if $_ ne $a;
			}
			print "\n\t</TABLE></TD>$r_img_src</TR>";
			print $spc_row1 if $t_img_src.$no_img;
			print "\n\t</TABLE></TD></TR>\n";
		}


		if ($dropdowns && !$dd_print) {
			# Quantity, drop downs, and Price
			print "\n<TR$data_bkg_clr><TD ALIGN=$align>$TABLE";

			# %DD1_FIELDS - %DD2_FIELDS error
			if (!$drop_down_error) {
				print "\n\t<TR$dsc_hr_bkg_clr><TD$data_bkg_clr WIDTH=$spc_width>$SPC</TD>
	<TH>$dh_fnt_tag${SPACE}Quantity$SPACE</FONT></TH><TD COLSPAN=3>$SPACE</TD>
	<TH>$dh_fnt_tag$dd_hdr</FONT></TH>$ch_col_spc
	<TH>$dh_fnt_tag$SPACE$field_names[$price_fld_num]$SPACE</FONT></TH>
	<TD$data_bkg_clr WIDTH=$spc_width>$SPC</TD></TR>";
			}
			else { print "\n\t<TR$error_bkg_clr><TH COLSPAN=9>$SPACE $error_fnt_tag$dd_hdr</FONT> $SPACE</TH></TR>" }

			print qq!\n\n\t<TR>$c_col_spc
	<TD ALIGN=center><INPUT TYPE="text" NAME="item_id_$db_id_num"$value SIZE=3 MAXLENGTH=5></TD>
	$ac_button
	<TD ALIGN=center>$dropdowns</TD>$c_col_spc
	<TD ALIGN=right>$dt_fnt_tag$price</FONT></TD>
	$c_col_spc</TR>
	</TABLE></TD></TR>!;

		}

		# Quantity and Price - No drop downs
		elsif (!$dd_print) {
			print qq!\n\t<TR$data_bkg_clr><TD ALIGN=$align>$TABLE
	<TR>$ch_col_spc
	<TH ALIGN=center>${dt_fnt_tag}Quantity: $SPACE </FONT><INPUT TYPE="text" NAME="item_id_$db_id_num"$value SIZE=3 MAXLENGTH=5></TH>
	$ac_button
	<TD ALIGN=right>$dt_fnt_tag<B>$field_names[$price_fld_num]:</B> $SPACE $price$SPACE</FONT></TD>
	$ch_col_spc</TR>
	</TABLE></TD></TR>!;
		}

		# Item spacing
		print "\n$spc_row3" if !$item_separator && (@ITEMS || $table_border);

		if ($table_width && @ITEMS) {
			if (@ITEMS >= 1) {
				print "\n</TABLE>\n</CENTER>"; $table_tag = 'Y';
				print $item_separator if $item_separator;
			}
			else { $table_tag = '' }
		}
	} # End while (@ITEMS)
	print "\n</TABLE>\n</CENTER>\n" if $table_width;
}


############################################

sub add_cart_button {

	my ($img, $att) = split(/:/,$add_cart_button);
	$img =~ s/\s+//g;

	if ($att =~ /\w+/ && $att !~ /VALUE|NAME/i) {
		$att =~ s/\s+/ /g; $att =~ s/^\s+|\s+$//g; $att = ' '.$att;
	}
	else { $att = '' }

	$ac_button = '';
	if ($img =~ /\.(gif|jpg|jpeg)$/i && -r $grph_directory.'/'.$img) {
		$ac_button = qq!<INPUT TYPE="image" SRC="$graphics_url/$img" NAME="add_cart" VALUE="Y"$att>!
	}
	elsif ($add_cart_button) { $ac_button = qq!<INPUT TYPE="submit" NAME="add_cart" VALUE="$button_5_txt">! }

	if ($ac_button) { $ac_button = "<TD>$SPACE</TD><TD VALIGN=middle>$ac_button</TD><TD>$SPACE</TD>" }
	else { $ac_button = "<TD COLSPAN=3 WIDTH=$spc_width>$SPC</TD>" }
}


############################################

sub chk_cart_id {

	my ($field, $price) = @_;
	my $qs = '';

	if ($field =~ /cart_id=/) {
		# Allow setup file switching
		if ($store ne $default_setup_file && $field !~ /store=/) { $qs .= '&store='.$store; $qs =~ s/\.setup$//; }
		# No search engine
		$qs .= '&no_search=Y' if $in{'no_search'} && $field !~ /no_search=/;
		$q_string = &query_string() if !defined($q_string);
		# No item price or item id for URLs with inner document links
		if ($field !~ /cart_id=#/) {
			$qs .= '&item_id='.$db_id_num.'&item_pr='.$price;
			$qs .= '&d1='.$db_row[0] if $db_row[0] ne '';
			$qs .= '&d2='.$db_row[1] if $db_row[1] ne '';
		}
		$field =~ s/cart_id=/cart_id=$cart_id$qs$q_string&dci=/g;
	}
	return $field;
}


############################################

sub error {

	my ($error) = @_;
	my ($hdr_txt, $msg1, $msg2, $remedy, $spc);

	$error = 'P' if $error eq 'E' && -e $processed_cart;

	if ($error eq 'E') {
		$hdr_txt = 'Expired Shopping Cart';
		$msg1 = 'Your shopping cart expired.'."\n\t".'Please return to the front page';
	}
	elsif ($error eq 'P') {
		$hdr_txt = 'Processed Order';
		$msg1 = 'Your order has been processed.'."\n\t".'Please return to the front page';
	}
	elsif ($error eq 'S') {
		$hdr_txt = 'Security Details Incomplete';
		$msg1 = 'Your shopping cart was canceled due to missing security details.'."\n\t".
		        'Please re-submit your security details';
		unlink($user_cart);
		foreach ('category','c_file','pwd','uid') { undef $in{$_} if defined($in{$_}) }
	}
	$msg1 .= ' and a new shopping cart will be issued.';

	&html_header($hdr_txt);
	$main_script_url = $script_url;
	$cart_id = '';
	$msg2 = 'Thank you.';

	# Frames
	if ($frameset_file) {
		$remedy = qq!<A HREF="$main_script_url!.'?cd=Y&store='.$store.&query_string().qq!"\n\tTARGET="_top"!;
		# Readable images
		if (-r "$grph_directory/page_on.gif" && -r "$grph_directory/page_off.gif") {
			# Change graphics URL for SSL - Include SSL <FORM ACTION>s
			$graphics_url = $ssl_graphics_url
			if $use_ssl && !$in{'no_ssl'} && "$in{'sslForm'}$in{'chkForm'}$in{'faxOrder'}$in{'chgShip'}";

			&print_java('page_on.gif');
			$remedy = qq!$remedy
	onMouseOver="deselect(0); window.status='Link to Front Page'; return true"
	onClick="select(0); window.status=''; return true"
	onMouseOut ="deselect(0); window.status=''; return true">!.
	qq!<IMG SRC="$graphics_url/page_off.gif" ALT="Front Page" WIDTH=99 HEIGHT=24 BORDER=0 HSPACE=0 VSPACE=0></A>!;
		}

		# Images not readable or do not exist
		else {
			$msg2 = qq!$remedy
	onMouseOver="window.status='Link to Front Page'; return true"
	onClick="window.status=''; return true"
	onMouseOut ="window.status=''; return true">Front Page</A>!;
			$remedy = 'Thank you.';
		}
		$remedy = "$hrd_fnt_tag<B>$remedy</B></FONT>";
	}

	# No frames
	else {
		$in{'cd'} = 'Y'; push(@name_values,'cd'); &hidden_form_tags();
		$remedy = qq!<INPUT TYPE="submit" NAME="frontpage" VALUE="$button_2_txt">!;
	} # End if ($frameset_file)


	$spc = "<TR$data_bkg_clr><TD COLSPAN=3><FONT SIZE=1>$SPACE</FONT></TD></TR>";

	print "\n<P>$SPACE\n\n<CENTER>\n<TABLE BORDER=$border WIDTH=100% CELLPADDING=$CELLPADDING CELLSPACING=0>";
	print "\n<TR$border_bkg_clr><TD ROWSPAN=8 WIDTH=12>$SPACE</TD><TD COLSPAN=3 HEIGHT=1><FONT SIZE=1>$SPACE</FONT></TD><TD ROWSPAN=8 WIDTH=12>$SPACE</TD></TR>"
	if $table_border;
	print "
<TR$header_bkg_clr><TH COLSPAN=3 ALIGN=center>$hr_fnt_tag$hdr_txt</FONT></TH></TR>
$spc
<TR$data_bkg_clr><TD COLSPAN=3>${dt_fnt_tag}$msg1</FONT></TD></TR>
$spc
<TR$data_bkg_clr><TD COLSPAN=3 ALIGN=center>$dt_fnt_tag<B>$msg2</B></FONT></TD></TR>
$spc
<TR$header_bkg_clr><TD COLSPAN=3 ALIGN=center>$remedy</TD></TR>";
	print "\n<TR$border_bkg_clr><TD COLSPAN=5 HEIGHT=1><FONT SIZE=1>$SPACE</FONT></TD></TR>"
	if $table_border;
	print "\n</TABLE>\n</CENTER>\n\n</FORM>\n\n";
	&html_trailer;
}


############################################

sub ship_tax {

	my ($a, $b, $font_tag);

	&get_shipping if $shipping || @subtotal_ship;
	$discount_total = '' if !defined($discount_total) || $discount_total !~ /[1-9]/;
	$ship_total = '' if !defined($ship_total) || $ship_total !~ /[1-9\.]/;
	$grand_total = &format_num($grand_total);
	$sub_total = $grand_total;

	$font_tag = "<FONT $data_font$header_fnt_clr$data_face>";

	# sales tax when client goes to order form
	if ($in{'tax'} eq 'Y') {
		$sales_tax   = &format_num(($grand_total - $discount_total) * $tax_rate);
		$final_total = &format_num($grand_total + $ship_total + $sales_tax - $discount_total,'Y');
		$grand_total = &format_num($grand_total,'Y');
		$sales_tax   = &format_num($sales_tax,'Y');
		print "<TR><TD ALIGN=right COLSPAN=$Total_colspan>${nc_fnt_tag}Subtotal</FONT></TD>
<TD ALIGN=right COLSPAN=4>$nc_fnt_tag$grand_total </FONT></TD></TR>";

		&print_discount if $discount_total ne '';
		&print_ship if $ship_total ne '';

		print "\n<TR><TD ALIGN=right COLSPAN=$Total_colspan>$nc_fnt_tag$tax_label</FONT></TD>
<TD ALIGN=right COLSPAN=4>$nc_fnt_tag$sales_tax </FONT></TD></TR>\n
<TR$header_bkg_clr><TH ALIGN=right COLSPAN=$Total_colspan>${font_tag}Total</FONT></TH>
<TH ALIGN=right COLSPAN=4>$font_tag$currency $final_total </FONT></TH></TR>\n\n";


	}
	else {

		# "Subtotal" for client who isn't done shopping
		if (!$in{'tax'}) {
			$a = 'Subtotal';
			$final_total = $grand_total;
		}
		# "Total" when client goes to order form (no sales tax)
		else {
			$a = 'Total';
			$final_total = $grand_total + $ship_total - $discount_total;
			$grand_total = &format_num($grand_total,'Y');
			print "<TR><TD ALIGN=right COLSPAN=$Total_colspan>${nc_fnt_tag}Subtotal</FONT></TD>
<TD ALIGN=right COLSPAN=4>$nc_fnt_tag$grand_total </FONT></TD></TR>";

			&print_discount if $discount_total ne '';
			&print_ship if $ship_total ne '';
		}

		$final_total = &format_num($final_total,'Y');
		print "<TR$header_bkg_clr><TH ALIGN=right COLSPAN=$Total_colspan>$font_tag".
		      "$a</FONT></TH>\n<TH ALIGN=right COLSPAN=4>$font_tag$currency $final_total </FONT></TH></TR>\n\n";
	}


	if ($ship_dd && $ship_total ne '') {

		print "<TR$dsc_hr_bkg_clr><TH$table_colspan>${dh_fnt_tag}Shipping</FONT></TH></TR>

<TR><TD ALIGN=center$table_colspan>$table_open
<TR><TD>$SPACE</TD>
<TD ALIGN=right>".
		&ship_select.
		qq!</TD>
$mh_col_spc
<TD><INPUT NAME="$ship_dd" TYPE="submit" VALUE="Change Shipping"></TD>
<TD>$SPACE</TD></TR>\n</TABLE></TD></TR>\n\n!;
	}


	print "$min_order_msg\n" if $minimum_order;
	print "<TR$border_bkg_clr><TD HEIGHT=1 COLSPAN=$border_colspan><FONT SIZE=1>$SPACE</FONT></TD></TR>\n"
	if $modify_table_border;

	print "<TR><TD$table_colspan HEIGHT=7></TD></TR>" if $in{'faxOrder'}.$send_order;
	print "\n</TABLE>\n";

	sub print_ship {
		$ship_total = &format_num($ship_total,'Y');
		print qq!\n<TR><TD ALIGN=right COLSPAN=$Total_colspan><A NAME="ship"></A>$nc_fnt_tag<NOBR>$SPACE$shp_label</NOBR></FONT></TD>
<TD ALIGN=right COLSPAN=4>$nc_fnt_tag$ship_total </FONT></TD></TR>!;
	}

	sub print_discount {
		$discount_total = &format_num($discount_total,'Y');
		print "\n<TR><TD ALIGN=right COLSPAN=$Total_colspan>$nc_fnt_tag<NOBR>$SPACE$dsc_label</NOBR></FONT></TD>
<TD ALIGN=right COLSPAN=4>$nc_fnt_tag$discount_total </FONT></TD></TR>";
	}
}


############################################

sub format_num {

	my ($num, $commas) = @_;

	$num =~ tr/0-9./ /c; $num =~ s/\s+//g;
	my $round_num = sprintf("%.4f",$num); chop $round_num;
	my $thousandths = chop $round_num;
	$round_num += .01 if $thousandths > 4;
	$round_num = sprintf("%.2f",$round_num);

	if ($commas) { while ($round_num =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/g) {} }

	return $round_num;
}


############################################
# Begin construction of colored table
# $table_rowspan  = number of rows
# $table_colspan  = number of field columns and associated spacer columns
# $border_colspan = total colspan of table, including ornamental border

sub disp_table_vars {

	my (@ITEMS) = @_;

	@display_numbers  = &filter_array('',@display_numbers);
	@vertical_numbers = &filter_array('Y',@vertical_numbers);
	@vertical_numbers = () if !defined(@vertical_numbers);

	$table_width =~ s/\s+//g;
	if ($table_width =~ /^\d{2,}[\%]$|^\d{3}$/) {
		$table_width  = ' WIDTH="'.$table_width.'"';
		$table_border = '';
	}
	else {
		$item_separator = $table_width = '';

		my $a = '3';
		foreach (@vertical_numbers) { if ($_ =~ /^[01]{1}[:]*/) { --$a; last; } }
		$table_rowspan = ($row_count * $a) + 1;   # 1 row for header

		if (@vertical_numbers) {
			while (@ITEMS) {
				&item_row(shift(@ITEMS));
				foreach (@display_numbers) {
					if ($db_row[$_] =~ /\w+/) { ++$table_rowspan; last; }
				}
			}
		}
		++$table_rowspan if $table_border;
		++$table_rowspan if $table_title;
		++$table_rowspan if $minimum_order || $grand_total;
	}

	$table_colspan  = '';
	$border_colspan = '3';
}


############################################
# Begin construction of colored table

sub disp_cart_table_vars {

	my ($col) = @_;

	# Data, header, subtotal
	$table_rowspan = ($row_count * 2) + 6;
	# Sales tax
	++$table_rowspan if $in{'tax'} eq 'Y';
	# Discount
	++$table_rowspan if $discount;
	# No shipping
	$table_rowspan -= 2
	if !$shipping || (defined($ship_fld_num) && $ship_grand_total eq '' && $ship_weight eq '');

	# $table_colspan  = number of field columns and associated spacer columns
	# $border_colspan = total colspan of table, including ornamental border
	# $Total_colspan  = colspan for printing "Subtotal" or "Total" label
	# 4 columns reserved for printing dollar amount of Subtotal or Total

	@modify_display_numbers = &filter_array('',@modify_display_numbers);
	$table_colspan  = ((scalar(@modify_display_numbers) + 2 + $col) * 2) - 1;
	$border_colspan = $table_colspan + 2;
	$Total_colspan  = $table_colspan - 4;
	$table_colspan  = ' COLSPAN='.$table_colspan;

	# Minimum Order message row
	if ($minimum_order) {
		++$table_rowspan;
		$min_order_msg = "<TR$dsc_hr_bkg_clr>\n<TH$table_colspan>$dh_fnt_tag$min_order_msg</FONT></TH></TR>";
	}
	$m_row_spc  = "<TR><TD$table_colspan HEIGHT=$modify_spc_height></TD></TR>";
}


############################################

sub table_title {

	my ($title, $rows, $width) = @_;

	print "\n<P>\n\n<CENTER>\n<TABLE BORDER=$border$width CELLPADDING=$CELLPADDING CELLSPACING=0 width=100%>";
	print "\n<TR$border_bkg_clr><TD WIDTH=12 ROWSPAN=$table_rowspan>$SPACE</TD>".
	      "<TD$table_colspan HEIGHT=1><FONT SIZE=1>$SPACE</FONT></TD><TD WIDTH=12 ROWSPAN=$table_rowspan>$SPACE</TD></TR>"
	if $rows;
	print "\n<TR$header_bkg_clr><TH$table_colspan ALIGN=center>$hr_fnt_tag$SPACE $title $SPACE</FONT></TH></TR>"
	if $title ne '';
}


############################################

sub table_header {

	my ($title) = @_;

	print "\n<TR$dsc_hr_bkg_clr>\n";
	print "<TH>$dh_fnt_tag$title</FONT></TH>$mh_col_spc\n" if $title;
	foreach (@modify_display_numbers) { print "<TH>$dh_fnt_tag$field_names[$_]</FONT></TH>$mh_col_spc\n" }
	# Add Quantity and Subtotal
	print "<TH>${dh_fnt_tag}Qty</FONT></TH>$mh_col_spc\n<TH>${dh_fnt_tag}Subtotal</FONT></TH></TR>\n\n";
}


############################################
# Count items in client's cart - store in @CART
# Determin minimum order

sub count_cart_rows {

	my ($a, $match, $qty, @SP_STRING, @SP_STRING1, $unit_pr, $units_pr);

	@CART = ();
	$minimum_order =~ tr/0-9./ /c;
	$minimum_order =~ s/\s+//g;
	if (-s $user_cart) {
		$grand_total = $row_count = 0;
		&read_open($user_cart);
		while (<FILE>) { ++$row_count; push(@CART,$_); }
		close(FILE);

		# Check client's subtotal exceeds minimum order value
		my @CART1 = @CART;
		while (@CART1) {
			&get_cart_row(shift(@CART1));
			if ($shipping && ($sp_string ne '' || $wt_string > 0)) {
				if ($sp_string =~ /:/) {
					$sp_string .= ':';
					if (@SP_STRING) {
						while (@SP_STRING) {
							$a = shift(@SP_STRING);
							if ($a =~ /^$sp_string/) {
								($unit_pr,$units_pr,$qty) = split(/:/,$a);
								$qty += $quantity;
								push(@SP_STRING1, $unit_pr.':'.$units_pr.':'.$qty);
								++$match;
							}
							else { push(@SP_STRING1,$a) }
						}
						if (!$match) { push(@SP_STRING1,$sp_string.$quantity) }
						else { undef $match }
						unshift(@SP_STRING,@SP_STRING1); undef @SP_STRING1;
					}
					else  { push(@SP_STRING,$sp_string.$quantity) }
				}
				elsif ($sp_string ne '') { $ship_grand_total += $quantity * $sp_string }
				elsif ($wt_string) { $ship_weight += $wt_string * $quantity }
			}

			$subtotal = &format_num($quantity*$ct_row[$price_fld_num]);
			$grand_total += $subtotal;

			$discount_quantity += $quantity if defined(@quantity_discount);

			if ($free_ship && $grand_total >= $free_ship) {
				undef @SP_STRING; undef @subtotal_ship;
				$free_ship = $shipping = $ship_grand_total = '';
			}
		}

		$discount = &get_discount if $discount;

		if (@SP_STRING) {
			while (@SP_STRING) {
				$a = shift(@SP_STRING);
				($unit_pr,$units_pr,$qty) = split(/:/,$a);
				--$qty;
				$units_pr = &format_num($units_pr);
				$ship_grand_total += ($unit_pr + ($units_pr * $qty));
			}
		}
		$disp_ship = 'Y'
		if $shipping && ((defined($ship_fld_num) && $ship_grand_total.$ship_weight) || !defined($ship_fld_num));

		$grand_total   = &format_num($grand_total);
		$minimum_order = '' if $minimum_order && $grand_total >= $minimum_order;

		$subtotal_msg  = "$SPACE Order Subtotal: $SPACE$currency".&format_num($grand_total,'Y')." $SPACE";
	}
	else { $button_1 = $button_4 = '' }

	if ($minimum_order) {
		$button_4 = '';
		$minimum_order = &format_num($minimum_order);
		$min_order_msg = "<NOBR>$SPACE Our Minimum Order is $currency".&format_num($minimum_order,'Y')." $SPACE</NOBR>";
	} else { $minimum_order = '' }
}


############################################

sub file_status {

	my ($file, $line, $type, @files) = @_;
	my ($a, $b, $c, $contents, $error, $write_test);

	if ($type eq 'req') { $a = '644'; $b = 'require'; }
	elsif ($type eq 'r') { $a = '644'; $b = 'read'; }
	else { $a = '666'; $b = 'access'; }
	$c = "Error occurred at LINE $line in $file.";

	foreach (@files) {
		if ($type eq 'req' && -r $_) {
			if (defined($ENV{'REQUEST_METHOD'})) {
				eval { require $_ };
				if ($@) {
					$@ =~ s/^\s+//; $@ =~ s/\s+$//; $@ =~ s/</&lt;/g; $@ =~ s/>/&gt;/g;
					$@ =~ s/\n+/<BR><BR>\n\n/g;
					&file_error('Internal Server Error',
					"<B>The following error exists in $_:</B>\n<BLOCKQUOTE>\n$@\n</BLOCKQUOTE>", &file_perm());
				}
			}
			else { require $_ }
		}
		elsif (!-e $_) {
			if ($type eq 'w') {
				&write_open($_,'');
				close(FILE);
				system("chmod 666 $_");
			}
			else {
				&file_error('File not Found', "<B>Can not $b $_</B>", $c,
				'Verify the file exists and filename spelling is correct for this file.', &file_perm($a,$_))
			}
		}
		elsif (!-r $_) {
			$error = 'No Read';
			$error .= '/Write' if $type eq 'w' && !-w $_;
			$error .= ' Permission';
		}
		elsif ($type eq 'w' && !-w $_) {
			$write_test = $_.'.writetest';
			open(WRITE_TEST, ">$write_test") || ++$error;
			if (!$error) {
				close(WRITE_TEST);
				&read_open($_);
				read(FILE, $contents, -s $_);
				close(FILE);
				unlink($_);
				&write_open($_,'');
				print FILE $contents;
				close(FILE);
				undef $contents;
				system("chmod 666 $_");
				unlink($write_test);
			}
			$error = 'No Write Permission' if !-w $_ || $error;
		}
		if ($error) {
			unlink($_.'.lock') if -e $_.'.lock';
			&file_error($error, "<B>Can not $b $_</B>", $c, &file_perm($a,$_));
		}
	}
}


############################################

sub open_error {

	my ($file_dir, $file, $section, $script, $line, $rw) = @_;
	my ($a, $b, $c);

	foreach ($client_lock, $file, $reseller_lock) { unlink($_.'.lock') if $_ && -e $_.'.lock' }

	$a = $b = $c = '';
	if ($file_dir =~ /^F/) {
		my @dirs = split(m#/#,$file);
		$a = ' /'.$dirs[$#dirs-1].' directory permissions, ';
		$b = ',';
	}
	$c = $file if $rw;

	&file_error("$file_dir Access Error",
	"<B>Can not access $file in <NOBR>$section Routine</NOBR></B>",
	"Error occurred at LINE $line in $script.",
	"Verify$a the \l$file_dir exists$b and \l$file_dir permissions are correct.",
	&file_perm($rw,$c));
}


############################################

sub file_perm {

	my ($perm, $file) = @_ if @_;
	my ($a, $b, $dir, @dirs, $envmsg, $error, $font1, $font2, $font3,
	    $mode, $msg, $pre1, $pre2);

	%in = &ReadParse if defined($ENV{'REQUEST_METHOD'}) && $file =~ /global\.setup$/;

	$a = $error = '0';
	$b = $envmsg = $msg = '';
	my $space  = '    ';

	if (defined($ENV{'REQUEST_METHOD'})) {
		$font1 = '<FONT COLOR="#DC143C">';
		$font2 = '<FONT COLOR="#0000CD">';
		$font3 = '</FONT>';
		$pre1 = '<PRE>'."\n"; $pre2 = '</PRE>'."\n\n";
	}
	else {
		$font1 = $font2 = $font3 = '';
		$pre1 = "\n\n"; $pre2 = "\n\n\n";
	}

	if (defined($basedir)) {
		$cart_directory = $real_cart_dir if $cart_directory eq $rcrt_directory;
		$clnt_directory = $real_clnt_dir if $clnt_directory eq $rstr_directory;
		@dirs = (
			$banr_directory,$cart_directory,$clnt_directory,$data_directory,$grph_directory,
			$html_directory,$libr_directory,$logs_directory,$logo_directory,$mail_directory,
			$pgp_directory, $rcrt_directory,$rstr_directory,$stat_directory,$user_directory,
			$basedir
		);

		foreach (sort @dirs) {
			if ($_ && !-e $_) {
				$msg .= $space.$font1.'Directory not found:  '."$_$font3\n";
				++$error; ++$dir;
			}
			elsif ($_) {
				$mode = (stat($_))[2];
				if ($_ =~ /^($banr_directory|$basedir|$grph_directory|$html_directory|$libr_directory|$logo_directory|$pgp_directory)$/) {
					if (($mode & 0755) != 0755) { $msg .= $space.$font1.'Change to 755:  '."$_$font3\n"; ++$error; }
					elsif ($_ !~ /^($libr_directory|$pgp_directory)$/) { $msg .= $space.'755 = '."$_\n" }
				}
				elsif ($_ =~ /^($clnt_directory|$data_directory|$stat_directory|$cart_directory|$logs_directory|$mail_directory|$rcrt_directory|$rstr_directory|$user_directory)$/) {
					if (($mode & 0777) != 0777) { $msg .= $space.$font1.'Change to 777:  '."$_$font3\n"; ++$error; }
					else { $msg .= $space.'777 = '."$_\n" }
				}
				++$dir;
			}
		}
	}
	else { @dirs = () }

	if (defined($in{'env'}) || ($error && $error == @dirs) || (!$font1 && ($error || $file))) {
		$a = '0';
		foreach (sort keys %ENV) { $a = length($_) if length($_) > $a }
		$envmsg .= 'Environment Variables:'.$pre1;
		foreach (sort keys %ENV) {
			$envmsg .= $space.sprintf("%-${a}.${a}s",$_).'  =  '.$ENV{$_}."\n"
			if $_ !~ /^USER|USER$/i && $ENV{$_} ne ''
		}
		$envmsg =~ s/\s+$//;

		if ((defined($in{'env'}) && $in{'env'} =~ /env/) || !$font1) {
			if (defined(@INC)) {
				$a = '0';
				$envmsg .= $pre2."\@INC:".$pre1;
				foreach (sort @INC) { $envmsg .= $space.$_."\n" if $_ =~ m#/# }
				$envmsg =~ s/\s+$//;
			}
			if (defined(%INC)) {
				$a = '0';
				foreach (sort keys %INC) { $a = length($_) if length($_) > $a }
				$envmsg .= $pre2.'%INC:'.$pre1;
				foreach (sort keys %INC) {
					$envmsg .= $space.sprintf("%-${a}.${a}s",$_).'  =  '.$INC{$_}."\n" if $INC{$_} ne ''
				}
				$envmsg =~ s/\s+$//;
			}
		}

		$a = $]; $a =~ s/\s+/ /g; $a =~ s/ {2,}/ /g;
		$envmsg .= $pre2.'System Files:'.$pre1.$space.'Perl Version  =  '."$a\n";

		$a = '12';
		foreach ('perl','pgp','pgpe','nslookup','sendmail') {
			if ($_ eq 'nslookup' && defined($nslookup) && $nslookup =~ /$_$/ && -e $nslookup) { $b = $nslookup }
			elsif ($_ eq 'pgp' && defined($pgp) && $pgp =~ /$_$/ && -e $pgp) { $b = $pgp }
			elsif ($_ eq 'pgpe' && defined($pgp) && $pgp =~ /$_$/ && -e $pgp) { $b = $pgp }
			elsif ($_ eq 'sendmail' && defined($sendmail) && $sendmail =~ /$_$/ && -e $sendmail) { $b = $sendmail }
			else { $b = `which $_` }

			if ($b =~ m#^/#) {
				$b =~ s/\s+$//;
				$envmsg .= $space.sprintf("%-${a}.${a}s",$_).'  =  '.$b."\n"
			}
		}
		$envmsg =~ s/\s+$//; $envmsg .= $pre2;
	}

	if ($error) {
		$dir = $font1.'Directory'.$font3;
		$msg = $space.$font1.'Invalid Value:   UNIX path in $basedir of ws_global.setup is not correct'."$font3\n\n$msg"
		if $error == @dirs;
	}
	elsif ($dir) { $dir = 'Directory' }
	else { $dir = '' }

	if ($file) {
		if (-e $file) { $a = "Change to $perm:  " }
		elsif ($perm eq '666') { $a = 'Can not create:  ' }
		else { $a = 'File not found:  ' }
		$msg  = "$space$font2$a$file$font3\n\n$msg";
		$file = ''; $file  = ' and ' if $dir;
		$file .= $font2.'File'.$font3;
	}

	if (!$error && !$file) { $a= ' Test OK' } else { $a = '' }

	if ($font1) {
		if ($error || $envmsg) { return "<B>$dir$file Permissions$a:$pre1$msg$pre2$envmsg</B>" }
		else { return() }
	}
	elsif ($error || $file) { print "\n\n$dir$file Permissions$a:\n\n$msg\n\n$envmsg"; exit; }
}


############################################

sub file_error {

	my (@error_msg) = @_;
	my ($a);

	&print_cont;
	print qq!<HTML>\n<HEAD>\n<TITLE>$error_msg[0]</TITLE>\n</HEAD>\n<BODY BGCOLOR="#DCDCDC">\n<H2>$error_msg[0]</H2>\n!;
	foreach $a (1 .. $#error_msg) { print "<P>$error_msg[$a]</P>\n" }
	print "\n</BODY>\n</HTML>\n\n";
	exit;

	# Eliminate perl warning:  Used only once
	@email_numbers = @quantity_discount = ();
	$client_lock = $dbase_weights = $delete_cart = $discount_quantity = $dsc_label =
	$duplicate_buttons = $fax_email = $modify_spc_height = $pre_form_file = $reseller_lock =
	$shp_label = $sub_total = $tax_label = $tax_rate = $hour = $min = $time = $year = '';
}


############################################
# Prevent multiple $file access

sub GetFileLock {
	my ($file) = @_;

	if (-e $file) {
		# Delete lock file, older than 5 minutes, no write permission
		if (-M $file > .0035 || !-w $file) { unlink($file) }
		# Set $end, wait 60 seconds
		else { my $end = (60 + time); while (-e $file && time < $end) { sleep(1) } }
	}
	open(LOCK_FILE, ">$file") || &open_error('File', $file, 'Write Lock File', __FILE__, __LINE__, '666');
	print LOCK_FILE 'WebStore'."\n";
	close(LOCK_FILE);
	system("chmod 666 $file");
}


############################################
# Print links at bottom of all pages

sub html_trailer {

	if ($rs_code ne '') {
		if ($in{'rsc_mail'} ne '') {
			$email_link_url = $in{'rsc_mail'};
			$email_link_title = 'Mail to: '.$email_link_url;
		}
		if ($in{'rsc_name'} ne '' && $in{'rsc_rfw'} =~ /^http:/) {
			$return_link_url = $in{'rsc_rfw'};
			$return_link_title = $in{'rsc_name'};
		}
	}

	if ($return_link_url.$email_link_url) {
		print qq!\n\n<CENTER>\n<P>\n<HR WIDTH="90%">\n\n<P>\n<TABLE BORDER=0 WIDTH="100%">\n<TR><TD ALIGN=center>$nc_fnt_tag!;
		print qq!<A HREF="$return_link_url"$target>$return_link_title</A>! if $return_link_url;
		print ' | ' if $return_link_url && $email_link_url;
		print qq!<A HREF="mailto:$email_link_url">$email_link_title</A>! if $email_link_url;
		print "</FONT></TD></TR>\n</TABLE>\n</CENTER>";
	}
	print qq!<div style="text-align:center;"><small>Copyright © 1999 - 2009 All rights reserved. Website designed and maintained by Security Base.com. <a href="http://www.securitybase.com/Web_store/ws400CS.cgi?page=legal_disclaimer.htm&no_search=Y&cart_id=$cart_id">Legal Notice</a></small></div>\n!;
	print qq!<script src="/analytics.js" type="text/javascript"></script>\n!;

	print &print_vars
	if ((defined($in{'debug'}) && $in{'debug'}) || (defined($in{'env'}) && $in{'env'} =~ /debug/i)) && defined(&print_vars);
	print "\n\n<SCRIPT Language=\"JavaScript\" SRC=\"Chk4ValData.js\"></script>\n</BODY>\n</HTML>".&version($version.' CS');


	# First access, cart not deleted
	if (defined($del_carts) && !defined($in{'cd'})) {

		# Using access counter
		if ($count_file) {
			unlink($count_file)
			if -e $count_file && (!-r $count_file || (-z $count_file && -M $count_file > .0035));

			if (!&write_lock($count_file, '15')) {
				&GetFileLock("$count_file.lock");
				my $num = '0';
				if (-e $count_file) {
					&file_status(__FILE__, __LINE__, 'w', $count_file) if !-w $count_file;
					&read_open($count_file);
					while (<FILE>) { $num = $_ }
    				close(FILE);
					$num =~ s/\s+//g;
				}
				if ($start_count) {
					$start_count =~ tr/0-9/ /c; $start_count =~ s/\s+//g;
					$num = $start_count if $start_count && $start_count > $num;
				}
				$num = $count if defined($count) && $count > $num;
				++$num;

				&write_open($count_file,'');
				print FILE "$num\n";
				close(FILE);
				system("chmod 666 $count_file");
				unlink("$count_file.lock");
			}
		}


		# Using log file
		if ($log_file) {
			my ($refer, $rem_host);
			my $log_file = $stat_directory.'/'.$log_file;

			# 01/Mar/1998 08:16:10 PM
			&date_time if !defined($four_digit_year);
			my @months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
			my $date = "$mday/$months[$mon-1]/$four_digit_year $time";

			$browser = '[not defined]' if !defined($browser) || $browser !~ /\w+/;

			if (defined($in{'ref'}) && $in{'ref'} =~ /\w+/) { $refer = $in{'ref'} }
			else { $refer = '[not defined]' }

			if (!defined($ENV{'REMOTE_ADDR'})) { $rem_addr = '[not defined]' }
			elsif ($ENV{'REMOTE_ADDR'}) { $rem_addr = $ENV{'REMOTE_ADDR'} }
			else { $rem_addr = '[not supplied]' }

			if (!defined($ENV{'REMOTE_HOST'})) { $rem_host = '[not defined]' }
			elsif ($ENV{'REMOTE_HOST'}) { $rem_host = $ENV{'REMOTE_HOST'} }
			else { $rem_host = '[not supplied]' }

			&GetFileLock("$log_file.lock");
			my $app = '';
			if (-e $log_file) {
				if (!-r $log_file) { unlink($log_file) }
				else {
					&file_status(__FILE__, __LINE__, 'w', $log_file) if !-w $log_file;
					$app = '>' if $file_length && -s $log_file < $file_length;
				}
			}

			open(STATS, ">$app$log_file") || &open_error('File', $log_file, 'Write Log File', __FILE__, __LINE__, '666');

			print STATS 'DATE                       BROWSER                                                    '.
			            'HTTP_REFERER                                                                      '.
			            'REMOTE_ADDR            REMOTE_HOST'."\n\n"
			if !$app;

			write STATS;
			close(STATS);
			system("chmod 666 $log_file");
			unlink("$log_file.lock");

			# format STATS = output format used for $log_file.
			format STATS =
@<<<<<<<<<<<<<<<<<<<<<<    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<    @<<<<<<<<<<<<<<<<<<    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date, $browser, $refer, $rem_addr, $rem_host
.
		}


		# Delete cart files
		if ($delete_age) {
			my ($a, $age_file, @files);
			$delete_age =~ s/\s+//g;
			$delete_age = '6' if $delete_age !~ /^[1-9]{1}\d*\.{0,1}\d*$/;
			$a = sprintf("%.3f",$delete_age/24);
			$age_file = $cart_directory.'/'.'delete.cart.age.file';
			if (!-e $age_file || -M $age_file > $a) {
				&age_file($age_file,$delete_age.' hour');
				&delete_files(__FILE__,__LINE__,$cart_directory,'.cart',$a);
			}
		}

	}
	exit;
}


############################################

sub ReadParse {

	my ($a, $b, %db_nums, $key, $val, %in, @in, $in);

	if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $in, $ENV{'CONTENT_LENGTH'}) }
	else { $in = $ENV{'QUERY_STRING'} }

	@in = split(/[&;]/,$in);

	foreach $a (0 .. $#in) {
		$in[$a] =~ s/\+/ /g;
		$in[$a] =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
		($key, $val) = split(/=/,$in[$a],2);
#qqq
		if ($key =~ /^item_id_[\S]+$|^\d+$/) {
			$b = $key; $b =~ s/^item_id_//;
			push(@duplicate_ids,$b) if defined($db_nums{$b});
			$db_nums{$b}++;
		}
		elsif ($key =~ /\.[xy]{1}$/) { $b = $key; $b =~ s/\.[xy]{1}$//g; $in{$b} .= $val; }

		$in{$key} .= "\0" if defined($in{$key});
		$in{$key} .= $val;
	}
	return %in;
}


############################################

sub print_java {

	my (@images) = @_;

	foreach (@images) { $image_list.= qq!\n\t"$graphics_url/$_",! }
	chop $image_list;

	print qq!
<script language=javascript>
<\!-- start

// *******************************************
// *  Image filenames must end in  _off.gif  *
// *        <img src="xxxx_off.gif">         *
// *******************************************

function preload() {
	this.length = preload.arguments.length;
	for (var i = 0; i < this.length; i++) {
		this\[i+1\] = new Image(); this\[i+1\].src = preload.arguments\[i\];
	}
}

if (document.images) { var stuff = new preload($image_list
	)
}

function select(i) {
	if (document.images) {
		var src = document.images\[i\].src; var off = src.lastIndexOf("_off.");
		if (off \!= -1) { document.images\[i\].src = src.substring(0,off) + "_on.gif"; }
	}
}

function deselect(i) {
	if (document.images) {
		var src = document.images\[i\].src; var on = src.lastIndexOf("_on.");
		if (on \!= -1) { document.images\[i\].src = src.substring(0,on) + "_off.gif"; }
	}
}

// stop -->
</script>\n!;
}


############################################

sub query_string {

	my ($form_qs) = @_;
	$form_qs = '' if !defined($form_qs);

	my $qs = '';

	%query_string = () if !defined(%query_string);
	# User id and demo mode
	$qs .= &query('c_file','demo','uid','pwd');
	# Reseller
	$qs .= &query(@rs_fields) if $rs_code ne '';
	# Add to cart - frameset document
	$qs .= &query(@name_values) if defined(@name_values);
	# Client order form fields
	$qs .= &query(@client_fields) if $form_qs;
	# No search enabled
	$qs .= '&ns=Y' if $in{'ns'};
	# Test mode
	$qs .= '&env='.$in{'env'} if defined($in{'env'});

	return $qs;

	sub query {

		my (@array) = @_;

		my $qs = '';
		foreach (sort @array) {
			if (!defined($query_string{$_})) {
				$qs .= '&'.$_.'='.&convert_hex($in{$_})
				if defined($in{$_}) && $in{$_} ne '' && length($in{$_}) < 2048;
				$query_string{$_}++;
			}
		}
		return $qs;
	}
}


############################################

sub reseller {

	if (!$reseller_data_file) { $rs_code = $reseller_file = $reseller_spreadsheet = ''; return; }

	if (defined($in{'rsc'}) && $in{'rsc'} ne '') {
		$rs_code = $in{'rsc'};
		@rs_fields = ('rfw','rsc');
		if ($in{'rsc_nf'}) { push(@rs_fields,'rsc_nf'); return; }
		push(@rs_fields,'r_data','rsc_name','rsc_mail','rsc_rfw');
		return if $in{'r_data'};

		my $file = $data_directory.'/'.$reseller_data_file;

		if (!$cart_id && -e $file) {
			my ($a, $db_row, @db_row, $read_file, $records, @records, $row);
			my $readonly = $file.'.readonly';

			&print_cont;

			if (-e $readonly) { $read_file = $readonly } else { $read_file = '' }
			my $time_out = &write_lock($file, '2');
			if ($time_out && $read_file) { $file = $read_file; &write_lock($file, '2'); }

			&read_open($file);
			while (<FILE>) { push(@records,$_) }
			close(FILE);

			# Update read only file
			if (!$time_out && (!$read_file || -s $readonly != -s $file)) {
				if (!&write_lock($readonly, '2')) {
					&GetFileLock("$readonly.lock");
					&file_status(__FILE__, __LINE__, 'w', $readonly) if !-w $readonly;
					&write_open($readonly,'');
					print FILE join('',@records);
					close(FILE);
					system("chmod 666 $readonly");
					unlink("$readonly.lock");
				}
			}


			$a = '0';
			if (scalar(@records) > 3000) { $records = 'Y' } else { $records = '' }
			while (@records) {
				$row = shift(@records); $row =~ s/\s+$//;
				next if $row =~ /^$|^COMMENT:/i;

				@db_row = split(/\|/,$row);
				if ($db_row[0] eq $in{'rsc'}) {
					# Remove Password, Date, and Id
					pop(@db_row); pop(@db_row); pop(@db_row);
					$in{'r_data'} = join('|',@db_row);

					foreach ($rsc_name_fld_num,$rsc_mail_fld_num,$rsc_urlpage_fld_num) {
						$_ =~ s/\s+//g; $_ =~ s/^0// if $_ ne '0';
					}
					$in{'rsc_name'} = $db_row[$rsc_name_fld_num]   if $rsc_name_fld_num =~ /^\d+$/;
					$in{'rsc_mail'} = $db_row[$rsc_mail_fld_num]   if $rsc_mail_fld_num =~ /^\d+$/;
					$in{'rsc_rfw'} = $db_row[$rsc_urlpage_fld_num] if $rsc_urlpage_fld_num =~ /^\d+$/;
					last; # Reseller found
				}
				if ($records) { ++$a; print sprintf("%1000s",' ') if $a =~ /500$/; }
			}
			print "\n" if $a >= 500;
		}
		# Reseller not found
		if (!defined($in{'r_data'})) {
			@rs_fields = ('rfw','rsc','rsc_nf');
			$in{'rsc_nf'} = 'Y';
			foreach (sort keys %RESELLER_FIELDS) {
				$a = $RESELLER_FIELDS{$_}[0];
				delete $in{$a} if defined($in{$a}) && $a ne 'rsc';
			}
		}
	}
	else { $rs_code = '' }
}


############################################

sub age_file {

	my ($file, $sch) = @_;

	unlink($file) if !-w $file;

	&write_open($file,'');
	print FILE 'Delete File Scheduler:  '.$sch.' intervals'."\n";
	close(FILE);
	system("chmod 666 $file");
}


############################################

sub check_cart {

	$cart = ''; @CART = (); $row_num = '0';

	if (-s $user_cart) {
		my ($num, @row);
		&read_open($user_cart);
		while (<FILE>) {
			push(@CART,$_);
			s/\s+$//; @row = split(/\|/); $num = pop(@row);
			$row_num = $num if $num > $row_num;
		}
		close(FILE);
		$cart = '1';
	}

	# Save fields for View/Modify and E-mail receipts
	%save_fld = ();

	&file_status(__FILE__, __LINE__, 'req', $data_directory.'/'.$form_file)
	if !defined(%SHIPPING);

	if (defined($SHIPPING{1}[0]) && $SHIPPING{1}[0] =~ /\d+/) {
		$SHIPPING{1}[0] =~ s/\s+//g;
		my $a = (split(/:/,$SHIPPING{1}[0]))[0];
		$save_fld{$a}++;
	}
#qqq
	foreach ($dbase_id_fld_num, $item_fld_num, $price_fld_num, @email_numbers, @modify_display_numbers) {
		$save_fld{$_}++ if !defined($save_fld{$_}) && $_ =~ /\d+/
	}
}


############################################

sub check_page {

	if (($in{'category'} =~ /\.htm[l]*$/i && $in{'category'} ne $frontpage_file) || $page) {
		if (!$page) { $page = $in{'page'} = $in{'category'} }
		elsif (!$in{'category'}) { $in{'category'} = $page }
		$button_3 = qq!\n<INPUT TYPE="image" SRC="$graphics_url/previous.gif" BORDER="0"  NAME="category_page" VALUE="$button_3_txt"> !;
	}
}


############################################
# Eliminate non-essential fields in cart

sub filter_fields {

	my @row = (); my $a = $#db_row;
	# Eliminate non-essential fields
	$save_fld{$a}++ if !defined($save_fld{$a});
	for ($a = 0; $a < @db_row; ++$a) {
		if (defined($save_fld{$a})) { push(@row,$db_row[$a]) }
		else { push(@row,'') }
	}

	++$row_num; # Cart dbase number
	return join('|',@row).'|'.$row_num."\n";

}


# End of file