<?php
/* --------------------------------------------------------------
  cod.php 2017-05-10 gm
  Gambio GmbH
  http://www.gambio.de
  Copyright (c) 2017 Gambio GmbH
  Released under the GNU General Public License (Version 2)
  [http://www.gnu.org/licenses/gpl-2.0.html]
  --------------------------------------------------------------


  based on:
  (c) 2000-2001 The Exchange Project  (earlier name of osCommerce)
  (c) 2002-2003 osCommerce(cod.php,v 1.28 2003/02/14); www.oscommerce.com
  (c) 2003	 nextcommerce (cod.php,v 1.7 2003/08/24); www.nextcommerce.org
  (c) 2003 XT-Commerce - community made shopping http://www.xt-commerce.com ($Id: cod.php 1003 2005-07-10 18:58:52Z mz $)

  Released under the GNU General Public License
  --------------------------------------------------------------------------------------- */

class cod_ORIGIN {

	var $code, $title, $description, $enabled;

	public function __construct() {
		global $order, $xtPrice;

		$this->code = 'cod';
		$this->title = defined('MODULE_PAYMENT_COD_TEXT_TITLE') ? MODULE_PAYMENT_COD_TEXT_TITLE : '';
		$this->description = defined('MODULE_PAYMENT_COD_TEXT_DESCRIPTION') ? MODULE_PAYMENT_COD_TEXT_DESCRIPTION : '';
		$this->sort_order = defined('MODULE_PAYMENT_COD_SORT_ORDER') ? MODULE_PAYMENT_COD_SORT_ORDER : '0';
		$this->enabled = defined('MODULE_PAYMENT_COD_STATUS') && MODULE_PAYMENT_COD_STATUS === 'True';
		$this->info = defined('MODULE_PAYMENT_COD_TEXT_INFO') ? MODULE_PAYMENT_COD_TEXT_INFO : '';
		$this->cost;

		if (defined('MODULE_PAYMENT_COD_ORDER_STATUS_ID') && (int)MODULE_PAYMENT_COD_ORDER_STATUS_ID > 0) {
			$this->order_status = MODULE_PAYMENT_COD_ORDER_STATUS_ID;
		}

		if (is_object($order))
			$this->update_status();
	}

	function update_status() {
		global $order;
		
		if(defined('MODULE_PAYMENT_COD_DISABLED_SHIPPINGS'))
		{
			$disabledShippings = str_replace(' ', '', MODULE_PAYMENT_COD_DISABLED_SHIPPINGS);
			$disabledShippings = explode(',', $disabledShippings);
			$shippingModule    = explode('_', $_SESSION['shipping']['id'])[0];
			
			if(isset($shippingModule) && in_array($shippingModule, $disabledShippings))
			{
				$this->enabled = false;
			}
		}
		if ($_SESSION['shipping']['id'] == 'selfpickup_selfpickup') {
			$this->enabled = false;
		}
		if (($this->enabled == true) && ((int) MODULE_PAYMENT_COD_ZONE > 0)) {
			$check_flag = false;
			$check_query = xtc_db_query("select zone_id from " . TABLE_ZONES_TO_GEO_ZONES . " where geo_zone_id = '" . MODULE_PAYMENT_COD_ZONE . "' and zone_country_id = '" . $order->delivery['country']['id'] . "' order by zone_id");
			while ($check = xtc_db_fetch_array($check_query)) {
				if ($check['zone_id'] < 1) {
					$check_flag = true;
					break;
				} elseif ($check['zone_id'] == $order->delivery['zone_id']) {
					$check_flag = true;
					break;
				}
			}

			if ($check_flag == false) {
				$this->enabled = false;
			}
		}
		// BOF GM_MOD
		elseif (trim(MODULE_PAYMENT_COD_ALLOWED) != '') {
			$t_gm_allowed_countries = explode(',', MODULE_PAYMENT_COD_ALLOWED);

			if (!in_array($order->delivery['country']['iso_code_2'], $t_gm_allowed_countries)) {
				$this->enabled = false;
			}
		}
		
		if((bool)MODULE_PAYMENT_COD_UPPER_LIMIT && ($_SESSION['cart']->total > (double)MODULE_PAYMENT_COD_UPPER_LIMIT)){
			$this->enabled = false;
		}
		// EOF GM_MOD
	}

	function javascript_validation() {
		return false;
	}

	function selection() {
		global $xtPrice, $order;

		$t_address = $this->_get_from_address_book($_SESSION['sendto']);
		if($t_address === false || $this->_is_postfiliale($t_address) === true)
		{
			return false;
		}

		if (defined('MODULE_ORDER_TOTAL_COD_FEE_STATUS') && MODULE_ORDER_TOTAL_COD_FEE_STATUS == 'true') {


			$cod_country = false;

			$cod_zones = array();

			if (strpos(MODULE_ORDER_TOTAL_COD_FEE_RULES, '|') !== false) {
				$t_values_array = explode('|', MODULE_ORDER_TOTAL_COD_FEE_RULES);
				$t_shipping_array = array();

				for ($i = 0; $i < count($t_values_array); $i++) {
					if ($i % 2 == 0) {
						$t_module_name = $t_values_array[$i];
					} else {
						$t_shipping_array[$t_module_name] = $t_values_array[$i];
					}
				}

				if (isset($t_shipping_array[strtok($_SESSION['shipping']['id'], '_')])) {
					$cod_zones = preg_split('/[:,]/', $t_shipping_array[strtok($_SESSION['shipping']['id'], '_')]);
				}
			}

			$cod_cost = 0;

			for ($i = 0; $i < count($cod_zones); $i++) {
				if ($cod_zones[$i] == $order->delivery['country']['iso_code_2']) {
					$cod_cost = $cod_zones[$i + 1];
					$cod_country = true;
					break;
				} elseif ($cod_zones[$i] == '00') {
					$cod_cost = $cod_zones[$i + 1];
					$cod_country = true;
					break;
				} else {
					
				}
				$i++;
			}
		} else {
			//COD selected, but no shipping module which offers COD
		}

		$cod_cost = $xtPrice->xtcCalculateCurr($cod_cost);

		if ($cod_country) {

			$cod_tax = xtc_get_tax_rate(MODULE_ORDER_TOTAL_COD_FEE_TAX_CLASS, $order->delivery['country']['id'], $order->delivery['zone_id']);
			$cod_tax_description = xtc_get_tax_description(MODULE_ORDER_TOTAL_COD_FEE_TAX_CLASS, $order->delivery['country']['id'], $order->delivery['zone_id']);
			if ($_SESSION['customers_status']['customers_status_show_price_tax'] == 1) {
				$cod_cost_value = xtc_add_tax($cod_cost, $cod_tax);
				$cod_cost = $xtPrice->xtcFormat($cod_cost_value, true);
			}
			if ($_SESSION['customers_status']['customers_status_show_price_tax'] == 0 && $_SESSION['customers_status']['customers_status_add_tax_ot'] == 1) {

				$cod_cost_value = $cod_cost;
				$cod_cost = $xtPrice->xtcFormat($cod_cost, true);
			}
			if (!$cod_cost_value) {
				$cod_cost_value = $cod_cost;
				$cod_cost = $xtPrice->xtcFormat($cod_cost, true);
			}
			$this->cost = '+ ' . $cod_cost;
		}

		return array('id' => $this->code, 'module' => $this->title, 'description' => $this->info, 'module_cost' => $this->cost);
	}

	function pre_confirmation_check() {
		return false;
	}

	function confirmation() {
		return false;
	}

	function process_button() {
		return false;
	}

	function before_process() {
		return false;
	}

	function after_process() {
		global $insert_id;
		if ($this->order_status)
			xtc_db_query("UPDATE " . TABLE_ORDERS . " SET orders_status='" . $this->order_status . "' WHERE orders_id='" . $insert_id . "'");
	}

	function get_error() {
		return false;
	}

	function check() {
		if (!isset($this->_check)) {
			$check_query = xtc_db_query("select configuration_value from " . TABLE_CONFIGURATION . " where configuration_key = 'MODULE_PAYMENT_COD_STATUS'");
			$this->_check = xtc_db_num_rows($check_query);
		}
		return $this->_check;
	}

	function install() {
		xtc_db_query("insert into " . TABLE_CONFIGURATION . " ( configuration_key, configuration_value,  configuration_group_id, sort_order, set_function, date_added) values ('MODULE_PAYMENT_COD_STATUS', 'True',  '6', '1', 'gm_cfg_select_option(array(\'True\', \'False\'), ', now())");
		xtc_db_query("insert into " . TABLE_CONFIGURATION . " ( configuration_key, configuration_value,  configuration_group_id, sort_order, date_added) values ('MODULE_PAYMENT_COD_ALLOWED', '', '6', '0', now())");
		xtc_db_query("insert into " . TABLE_CONFIGURATION . " ( configuration_key, configuration_value,  configuration_group_id, sort_order, use_function, set_function, date_added) values ('MODULE_PAYMENT_COD_ZONE', '0', '6', '2', 'xtc_get_zone_class_title', 'xtc_cfg_pull_down_zone_classes(', now())");
		xtc_db_query("insert into " . TABLE_CONFIGURATION . " ( configuration_key, configuration_value,  configuration_group_id, sort_order, date_added) values ('MODULE_PAYMENT_COD_SORT_ORDER', '0',  '6', '0', now())");
		xtc_db_query("insert into " . TABLE_CONFIGURATION . " ( configuration_key, configuration_value,  configuration_group_id, sort_order, set_function, use_function, date_added) values ('MODULE_PAYMENT_COD_ORDER_STATUS_ID', '0','6', '0', 'xtc_cfg_pull_down_order_statuses(', 'xtc_get_order_status_name', now())");
		xtc_db_query("insert into " . TABLE_CONFIGURATION . " ( configuration_key, configuration_value,  configuration_group_id, sort_order, date_added) values ('MODULE_PAYMENT_COD_UPPER_LIMIT', '','6', '0', now())");
		xtc_db_query("insert into " . TABLE_CONFIGURATION . " ( configuration_key, configuration_value,  configuration_group_id, sort_order, date_added) values ('MODULE_PAYMENT_COD_DISABLED_SHIPPINGS', '','6', '0', now())");
	}

	function remove() {
		xtc_db_query("delete from " . TABLE_CONFIGURATION . " where configuration_key in ('" . implode("', '", $this->keys()) . "')");
	}

	function keys() {
		return array('MODULE_PAYMENT_COD_STATUS', 'MODULE_PAYMENT_COD_ALLOWED', 'MODULE_PAYMENT_COD_ZONE', 'MODULE_PAYMENT_COD_ORDER_STATUS_ID', 'MODULE_PAYMENT_COD_SORT_ORDER', 'MODULE_PAYMENT_COD_UPPER_LIMIT', 'MODULE_PAYMENT_COD_DISABLED_SHIPPINGS');	}

	protected function _get_from_address_book($p_address_book_id)
	{
		$t_query = 'SELECT * FROM address_book WHERE address_book_id = :address_book_id';
		$t_query = strtr($t_query, array(':address_book_id' => (int)$p_address_book_id));
		$t_result = xtc_db_query($t_query);
		$t_address_book_entry = false;
		while($t_row = xtc_db_fetch_array($t_result))
		{
			$t_address_book_entry = $t_row;
		}
		return $t_address_book_entry;
	}

	protected function _is_postfiliale($p_address_data)
	{
		$t_all_data = implode('', $p_address_data);
		$t_contains_postfiliale = stripos($t_all_data, 'postfiliale');
		$t_is_postfiliale = $t_contains_postfiliale || $p_address_data['address_class'] == 'postfiliale';
		return $t_is_postfiliale;
	}

}

MainFactory::load_origin_class('cod');