<?
/*
Purpose:
	Returns an array of product record numbers in a given category, specified by category record number ($cat_rn)

Parameters:
	$limit, if set, needs to be set to a mysql limit string, as in "LIMIT 5,10"

History:
	File modified on 11/03/2004 for v1.6.0 - to reduce number of DB queries
*/

function get_products_from_category($cat_rn,$exclude_rn=0,$limit=0,$random=0,$orderby=0,$orderhow=0){
global $SC;


	if (!is_numeric($cat_rn)) return;

	if ($exclude_rn) $exclude = "AND prod.record_number != '$exclude_rn'";
	if (!$limit) unset($limit);

	// grab the settings for ordering products from the category
	if (!$orderby) $orderby = @get_field_val("Categories","Order_Products_By","record_number = $cat_rn AND Order_Products_By <> 'Store Default'");

	// if orderby isn't set in the category, grab it from the product
	if (!$orderby) $orderby = $SC['settings']['Order_Products_By'];

	// if not set at category OR product, then set it to "Name"
	if(!$orderby || $orderby == "null") $orderby = "Name";

	// grab the settings for ordering products from the category
	if (!$orderhow) $orderhow = @get_field_val("Categories","Order_Products_How","record_number = $cat_rn AND Order_Products_How <> 'Store Default'");

	// if orderhow isn't set in the category, grab it from the product
	if (!$orderhow) $orderhow = $SC['settings']['Order_Products_How'];

	if($orderhow) {
		if ($orderhow == "Ascending") $orderhow = "ASC";
		if ($orderhow == "Descending") $orderhow = "DESC";
	} else {
		$orderhow = "ASC";
	}

	// if random is set, then we need to grab a random subset of the existing product records....need to unset limit, grab random records from result of all products, and return that array
	if ($random && isset($limit)) {
		$random_limit = str_replace("LIMIT 0,","",$limit) + 1;
		unset($limit);
	}

	// if out of stock items are set to not be displayed in store settings
	if($SC['inventory_control'] && $SC['out_of_stock_behavior'] == "1") {
		$products = sc_query(
		"SELECT prod.record_number, cat.record_number AS Category 
		FROM Products prod
		INNER JOIN REL_Products__Categories rel_p_c ON
		rel_p_c.Products_rn = prod.record_number
		INNER JOIN Categories cat ON
		rel_p_c.Categories_rn = cat.record_number
		INNER JOIN REL_Products__Warehouses rel_p_w ON
		rel_p_w.Products_rn = prod.record_number
		WHERE cat.record_number = $cat_rn AND rel_p_w.Stock > 0 $exclude 
		GROUP BY rel_p_w.Products_rn
		ORDER BY prod.$orderby $orderhow
		$limit",
		MYSQL_BOTH,1);
	} else {
		$products = sc_query(
		"SELECT prod.record_number, cat.record_number AS Category
		FROM Categories cat, Products prod, REL_Products__Categories rel_p_c
		WHERE cat.record_number = rel_p_c.Categories_rn AND prod.record_number = rel_p_c.Products_rn
		AND cat.record_number = $cat_rn
		AND prod.Not_For_Sale != 1
		$exclude
		ORDER BY prod.$orderby $orderhow
		$limit",
		MYSQL_BOTH,1);
	}

	if ($random) {
		$prod_count = count($products);
		// if less products are returned then the limit, then use the number of products as the limit for generating random numbers
		if ($prod_count < $random_limit) $random_limit = $prod_count;
		$prod_rns = array();
		// loop while the number of random prod rns is less than what we need
		while(count($prod_rns) < $random_limit) {
			$rand = rand(0,$prod_count-1);
			if (!in_array($rand,$prod_rns)) $prod_rns[] = $rand;
		}
		// grab the products randomly from the original products array
		foreach($prod_rns as $prod_rn) $random_products[] = $products[$prod_rn];
		return $random_products;
	}
	
	return $products;
}
?><?
function get_url_port($url) {
// purpose of function is to return a port number, if it is present in the $url passed
	// remove first colon and forward slashes
	$url = str_replace("://","",$url);
	// if URL contains a colon
	if (strstr($url,":")) {
		$colon_position = strpos($url, ":");
		$slash_position = strpos($url, "/");
	
		if (!$slash_position){
			$port = substr($url, $colon_position + 1);
		} else {
			$port_length = ($slash_position - $colon_position) - 1;
			$port = substr($url, $colon_position + 1, $port_length);
		}
		if (!is_numeric($port)) unset($port);
	}
	return $port;
}
?>
<?
/**************************************************************************************************************
	
	Function inputs2array()
	
	Purpose:
		To take data from a string containing HTML, and pull the name/value pairs out, dumping them into
		an associative array.
		
	Parameters:
		$html		string containing html, with form
		
	Example:
		$html = "
			<html>
				<head></head>
				<body>
				<form blah blah blah>
					<input type='hidden' name='fname' value='Fred' >
					<input type='hidden' name='lname' value='Flintstone' >
				</form>
		";
		$data = inputs2array($html);
		
		// now, data looks like this:
		// $data['fname'] == 'Fred';
		// $data['lname'] == 'Flintstone';

		Function returns false on error, or if there are no matches
		
**************************************************************************************************************/

function inputs2array($html) {

	// make sure we have input!
	if (!$html) return false;
	
	// pull out the field names and values from the input tags :)
	preg_match_all("/< ?input[^>]+name ?= ?['|\"]([^>'\"]+)['|\"][^>]+value ?= ?['|\"]([^>'\"]+)['|\"][^>]+>/",$html,$matches);
	
	// see if there were any matches. index 1 has the entire field. 2 has the field names, 3 has the field values.
	if (is_array($matches[1])) {
		
		// grab the arrays we need, to make the for loop a little more readable
		$fnames =& $matches[1];
		$values =& $matches[2];
		
		for($x=0;$fnames[$x];$x++) {
			$data[$fnames[$x]] = $values[$x];
		}
		
		return $data;
	} else {
		return false;
	}
}
?><?
// purpose of function is to retrieve arrays from, and update arrays to a MySQL DB
// $mode - use either "explode" or "implode" for explode, and 2 for implode
// $array is array to work with
function array_to_sql($mode,$array){
	if ($mode == "explode"){
		$array_exp = explode("^^", $array);
		return $array_exp;
	}
	if ($mode == "implode"){
		$array_imp = implode("^^",$array);
		return $array_imp;
	}
}
?><?
/*
file added in v1.1.0
function returns the number of records in table $table. $where is optional
*/
function count_records($table,$where=0,$test=0) {
	if ($where) $where_string = "WHERE $where";
	$query = "SELECT COUNT(record_number) FROM $table $where_string";

	if($test) {
		print "<br><b>Query from count_records():</b> $query<br>";
	} else {
		$result = mysql_query ($query);
		if (is_resource($result)) {
			while ($row = mysql_fetch_array ($result)) {
				$records[] = $row;
			}
			return $records[0][0];
		} else {
			return 0;
		}
	}
}
?><?
function fix_reserved_mysql_values($values){
	if(is_array($values)){
		for ($x=0;$values[$x];$x++){
			$value=$values[$x];
			$fixed_value[$x]=str_replace("ZX", "", $value);
			$fixed_value[$x]=str_replace("ZQZ", "-", $fixed_value[$x]);
		}
	} else {
			$fixed_value=str_replace("ZX", "", $values);
			$fixed_value=str_replace("ZQZ", "-", $fixed_value);
		}
	return $fixed_value;
}
?><?
//purpose of function is to return a field value from a single record and explode it into an array based on a where statement

function get_field_array($table,$field_name,$where,$seperator=0){
	if (!$seperator) $seperator = "^^";
	$record = get_records($table,$field_name,$where,0,0);
	$value = $record[0][$field_name];
	$value = explode($seperator, $value);
	return $value;
}
?><?
//purpose of function is to return a field value based on a record number in a table

function get_field_value($table,$record_number,$field_name){
	$where = "record_number = \"$record_number\"";
	$record = get_records($table,0,$where,0,0);
	return $record[0][$field_name];
}
?><?
// purpose of function is to get all values, of 1 field sorted into an array
function get_field_values($table,$where,$sortby,$order,$field_name){
	$records=get_records($table,0,$where,$sortby,$order);
	for($x=0;$records[$x];$x++){
		$array[$x]=$records[$x][$field_name];	
	}
	return $array;
}
?><?
/*
	Purpose of function is to return a column sum based on a where statement
	Parameters:
		$table - table to perform query on
		$field - column name to sum
		$where - optional where statement

	File added on 3/17/2004 for v1.5.0
*/

function get_sum($table,$field,$where=0,$test=0) {
	if ($where) $where = "WHERE $where";
	$qry = "SELECT SUM($field) FROM $table $where";

	if($test) {
		print "<br><b>Query from get_sum():</b> $qry<br>";
	} else {
		$result = mysql_query($qry);
		if (is_resource($result)) {
			while ($row = mysql_fetch_array ($result)) {
				$records[] = $row;
			}
			return $records[0][0];
		} 
	}
}
?><?
/*
Purpose:
	Set a single field value from a single record based on a where statement
	
History:
	File modified on 10/07/2004 for v1.5.0 for changes to add_record() and modify_record()
*/

function set_field_val($table,$field_name,$value,$where=0,$test=0){
	$data[$field_name] = $value;
	modify_record($table,$data,$where,$test);
}
?><?
// purpose of function is to display a page in a popup window
// parameters are:
//   $page - the URL of the page to open
//   $link_content - the code to place between the <a> and </a> tags
//   $height - height of popup
//   $width - width of popup
//   $scrollbars - set to 'yes' or 'no'
//   $resizable - set to 'yes' or 'no'
//
// File modified on 03/08/2005 - bug fix for problems causing the JS Popup function to not appear

function Popup_Window($page, $link_content, $width, $height, $scrollbars, $resizable,$class="product_options_details_link"){
	return "<a class=\"$class\" href=\"#\" onclick=\"window.open('$page', 'newwin', 'width=$width, height=$height, scrollbars=$scrollbars, resizable=$resizable, toolbar=no,menubar=no,location=no,directories=no,status=no')\">$link_content</a>";
}
?><?
/*********************************************************************************************
	Function sc_array_merge()
	
	Purpose:
		To simulate array_merge as it was in PHP 4. In PHP 5, if you attempt to merge call 
		array_merge() and pass a variable that is not an array, you get a nasty error. This
		did not happen in PHP 4. This function just saves some typing.
		
	History:
		File added on 03/14/2005 for v2.0.0
		
**********************************************************************************************/

function sc_array_merge($arr1,$arr2) {

	if (is_array($arr1) && is_array($arr2)) {
		return array_merge($arr1,$arr2);
	} elseif (is_array($arr1)) {
		return $arr1;
	} elseif (is_array($arr2)) {
		return $arr2;
	}

}
?><?
/**********************************************************************
	
	Purpose:
		return a number formatted as follows: 1450.00
		if you pass 1 as the second param, then commas will be added
	
	History:
		File added on 02/14/2005 for v2.0.0

**********************************************************************/

function sc_money_format($num,$commas=0) {
	if (is_numeric($num)) {
		if ($commas) {
			return number_format($num,2,'.',',');
		} else {
			return number_format($num,2,'.','');
		}
	}
}
?><?
/*
	sc_print_array() function
	
	Purpose:
		To print out an array to the page, for diag purposes
		
	History:
		File created on 9/21/2004 for v1.5.0
*/

function sc_print_array($array) {
	if (!is_array($array)) {
		print "Variable is not an array!";
	} else {
		print "
		<table border=\"1\" cellpadding=\"2\" cellspacing=\"2\" style=\"margin: 2px; border: black solid 1px\">
			<tr>
				<td style=\"font-weight: bold;background-color: silver; text-align: left\" colspan=\"2\">
					Number of elements in array:
		".count($array)."
				</td>
		</tr>
		<tr>
				<td style=\"font-weight: bold;background-color: silver; text-align: right\">Key</td>
				<td style=\"font-weight: bold;background-color: silver; text-align: left\">Value</td>
			</tr>
		";

		foreach(array_keys($array) as $key) {
			
			print "
			<tr>
				<td style=\"text-align: right; vertical-align: top;\">
					$key
				</td>
				<td style=\"text-align: left\">
			";
			if (is_array($array[$key])) {
				sc_print_array($array[$key]);
			} else {
				print $array[$key];
			}
			print "&nbsp;</td></tr>";
		}
		print "</table>";
	}
}
?><?
function show_image($table,$name){
global $SC;

	$table = str_replace(" ","_",$table);
	$image = get_records($table,0,"Name = \"$name\"",0,0);
	$image = $image[0];
	$image_path = $image["Image"];
	$alt= $image["Alt"];
	$size = GetImageSize("$SC[site_isp_root]/$image_path");
	print "<IMG border=\"0\" src=\"$SC[dyn_root]/$image_path\" alt=\"$alt\" $size[3]>";
}
?><?
/*
	Description:
		Purpose is to display a stylesheet based on theme selected and availability of stylesheet file
		if file is in the theme selected, it will show it. if it is not, it will use the one in the default "Squirrelcart" theme

	Parameters:
		$file: name of stylesheet
		$return_var: if set to 1, this function will return the text instead of printing it

	History:
		File modified on 6/18/2004 for v1.5.0 - added the $return_var parameter in conjunction with the diag mode stuff		
*/

function stylesheet($file,$return_var=0){
	global $SC;

	
	if(file_exists("$SC[theme_dir]/$file")) {
		if ($SC['secure_page']) {
			$href = "$SC[theme_secure_dir]/$file";
		} else {	
			$href= "$SC[theme_www_dir]/$file";
		}
	} else {

		if(file_exists("$SC[default_theme_dir]/$file")) {
			if($SC['secure_page']) {
				$href =  "$SC[default_theme_secure_dir]/$file";
			} else {
				$href = "$SC[default_theme_www_dir]/$file";
			}
		}
	}
	
	$stylesheet = "<link rel=\"stylesheet\" type=\"text/css\" href=\"$href\">";
	if ($return_var) {
		return $stylesheet;
	} else {
		print $stylesheet;
	}
}
?><?
// this function was created to fix a problem posting to 2Checkout using the non secure form post method. see
// the comments in the 2Checkout gateway file for more information.
//
// file created on 5/10/2003 for v1.1.1
function urlencode_all($data) {
// purpose of functions is to take a regular or multidimensional array, $data, and urlencode every single value in it
	foreach($data as $key => $value) {
		if (is_array($data[$key])) {
			$data[$key] = urlencode_all($data[$key]);
		} else {
			$data[$key] = urlencode($data[$key]);
		}
	}
	return $data;
}
?><?
/***********************************************************************************************

	Function: valid_aba_routing()
	
	Purpose:
		Valid a 9 digit American Bankers Association routing number, per the following formula:
		
		First 4 digits identifies the routing symbol
		Next 4 digits specifies the bank
		Last digit is a checksum
		
		789456124	(example routing number)
		
		Take each digit in succession, and multiply by 3, 7, or 1 and add the result together.
		
		Example:
		
		(7 * 3) +
		(8 * 7) +
		(9 * 1) +
		(4 * 3) +
		(5 * 7) +
		(6 * 1) +
		(1 * 3) +
		(2 * 7) +
		(4 * 1) =
		----------
		   160
		   
		 If the restult (160) is evenly divisible by 10, then the number is valid
		

***********************************************************************************************/

function valid_aba_routing($num) {

	// if number is not 9 digits long, and does not contain digits, it's n/g
	if (!preg_match("/^([0-9]){9,9}$/",$num)) return false;
	
	$result = 	($num[0] * 3) + ($num[1] * 7) + ($num[2] * 1) + 
				($num[3] * 3) + ($num[4] * 7) + ($num[5] * 1) + 
				($num[6] * 3) + ($num[7] * 7) + ($num[8] * 1);
	
	if (is_int($result / 10)) {
		return true;
	} else {
		return false;
	}
}
?><?
/************************************************************************************************************
	
	Function checkout_msg()
	
	Purpose:
		Show an informational (non error) message at checkout.
		
	Parameters:
		$Message		the message to show
		$return			set to 1 if you want this to return the data as a var. instead of printing it
		
	History:
		File added on 03/15/2005 for v2.0.0
		
************************************************************************************************************/


function checkout_msg($Message,$return=0) {
	global $SC;
	
	// grab image for use in template file
	$Balloon_Img 	= get_image("Images","info_balloon",0,0,1);

	// use output buffering to store result of include into cart_message, so it will 
	// appear via cart_message.php
	ob_start(); 
	include $SC['templates']['checkout_info_msg']; 
	$msg = ob_get_contents(); 
	ob_end_clean();
	
	if ($return) {
		return $msg; 
	} else {
		$SC['cart_message'] = $msg; 
	}

}
?><?
/*******************************************************************************************************************************

	Purpose:
		Return a decimal indicating the percent of sales tax based on state order is being shipped to

	History:
		File modified on 03/14/2005 - to support changes to address form
		
*******************************************************************************************************************************/

function get_tax_rate () {
	global $SC;

	if ($SC['order']['address']['Ship_Country'] == 120) { 
	$tax_rate = 19.00; 
	} else { 
	$tax_rate = get_field_val("Sales_Tax","Tax","State = '".$SC['order']['address']['Ship_State_or_Province']."'"); 
	} 
	$tax_rate = $tax_rate * .01;
	return $tax_rate;
}
?><?
/*
Purpose:
	Display a link back to Squirrelcart.com, based on what the merchant has selected in the Squirrelcart_Logo field in their store settings

History:
	File added on 8/28/2003 for v1.2.0
	File modified on 10/24/2003 for v1.3.0 to remove copyright from text link
	File modified on 11/04/2004 for v1.6.0 to reduce number of DB queries
*/

function squirrelcart_link(){
	global $SC;
	
	$logo = $SC['settings']['Squirrelcart_Logo'];
	if (!$logo) $logo = 4;
	if ($logo == 4) {
		$sc_logo = "<div style=\"font-size: 10px; font-family: Verdana, Hevetica\">Powered by <a target=\"new\" href=\"http://www.squirrelcart.com/php_shopping_cart.php\">Squirrelcart � PHP Shopping Cart Software</a></div>";
								
	} else {
		$image_tag = @get_image("Cart_Images","powered by sc $logo",0,0,0,"Powered by Squirrelcart PHP Shopping Cart Software");
		if (!$image_tag) {
			// image was uploaded, but never added to the cart images table....add it below
			$data['Name'] = "powered by sc $logo";
			$data['Image'] = "squirrelcart/images/cart/powered_by_sc_".$logo.".gif";
			@add_record("Cart_Images",$data);
			$image_tag = get_image("Cart_Images","powered by sc $logo",0,0,0,"Powered by Squirrelcart PHP Shopping Cart Software");
		}
		$sc_logo = "<a target=\"new\" href=\"http://www.squirrelcart.com/php_shopping_cart.php\">$image_tag</a><br><br>";
	}
	print $sc_logo;
}
?><br />
<font size='1'><table class='xdebug-error xe-fatal-error' dir='ltr' border='1' cellspacing='0' cellpadding='1'>
<tr><th align='left' bgcolor='#f57900' colspan="5"><span style='background-color: #cc0000; color: #fce94f; font-size: x-large;'>( ! )</span> Fatal error: Call to undefined function sc_array_merge() in /var/www/vhosts/heftruck-service.nl/public_html/squirrelcart/pre_common.php on line <i>276</i></th></tr>
<tr><th align='left' bgcolor='#e9b96e' colspan='5'>Call Stack</th></tr>
<tr><th align='center' bgcolor='#eeeeec'>#</th><th align='left' bgcolor='#eeeeec'>Time</th><th align='left' bgcolor='#eeeeec'>Memory</th><th align='left' bgcolor='#eeeeec'>Function</th><th align='left' bgcolor='#eeeeec'>Location</th></tr>
<tr><td bgcolor='#eeeeec' align='center'>1</td><td bgcolor='#eeeeec' align='center'>0.0036</td><td bgcolor='#eeeeec' align='right'>233112</td><td bgcolor='#eeeeec'>{main}(  )</td><td title='/var/www/vhosts/heftruck-service.nl/public_html/index.php' bgcolor='#eeeeec'>.../index.php<b>:</b>0</td></tr>
<tr><td bgcolor='#eeeeec' align='center'>2</td><td bgcolor='#eeeeec' align='center'>0.0066</td><td bgcolor='#eeeeec' align='right'>234856</td><td bgcolor='#eeeeec'>include( <font color='#00bb00'>'/var/www/vhosts/heftruck-service.nl/public_html/squirrelcart/pre_storefront.php'</font> )</td><td title='/var/www/vhosts/heftruck-service.nl/public_html/index.php' bgcolor='#eeeeec'>.../index.php<b>:</b>1</td></tr>
<tr><td bgcolor='#eeeeec' align='center'>3</td><td bgcolor='#eeeeec' align='center'>0.0092</td><td bgcolor='#eeeeec' align='right'>237216</td><td bgcolor='#eeeeec'>include( <font color='#00bb00'>'/var/www/vhosts/heftruck-service.nl/public_html/squirrelcart/pre_common.php'</font> )</td><td title='/var/www/vhosts/heftruck-service.nl/public_html/squirrelcart/pre_storefront.php' bgcolor='#eeeeec'>.../pre_storefront.php<b>:</b>39</td></tr>
</table></font>