<?php
/**
* @version	$Id: relationship_event_handler.php 15698 2013-02-19 11:33:17Z alex $
* @package	In-Portal
* @copyright	Copyright (C) 1997 - 2009 Intechnic. All rights reserved.
* @license      GNU/GPL
* In-Portal is Open Source software.
* This means that this software may have been modified pursuant
* the GNU General Public License, and as distributed it includes
* or is derivative of works licensed under the GNU General Public License
* or other free or open source software licenses.
* See http://www.in-portal.org/license for copyright notices and details.
*/

	defined('FULL_PATH') or die('restricted access!');

	class RelationshipEventHandler extends kDBEventHandler
	{
		/**
		 * Allows to override standard permission mapping
		 *
		 * @return void
		 * @access protected
		 * @see kEventHandler::$permMapping
		 */
		protected function mapPermissions()
		{
			parent::mapPermissions();

			$permissions = Array (
				'OnProcessSelected' => Array ('subitem' => 'add|edit')
			);

			$this->permMapping = array_merge($this->permMapping, $permissions);
		}

		/**
		 * Initializes new relation
		 *
		 * @param kEvent $event
		 * @return void
		 * @access protected
		 */
		protected function OnNew(kEvent $event)
		{
			parent::OnNew($event);

			$object = $event->getObject();
			/* @var $object kDBItem */

			$table_info = $object->getLinkedInfo();

			$object->SetDBField('SourceId', $table_info['ParentId']);
			$source_item_type = $this->Application->getUnitConfig($table_info['ParentPrefix'])->getItemType();
			$object->SetDBField('SourceType', $source_item_type);

			$object->SetDBField('TargetId', $this->Application->GetVar('target_id'));
			$object->SetDBField('TargetType', $this->Application->GetVar('target_type'));

			$this->OnAfterItemLoad($event);
		}

		/**
		 * Add new relation
		 *
		 * @param kEvent $event
		 */
		function OnProcessSelected($event)
		{
			$dst_field = $this->Application->RecallVar('dst_field');

			if ( $dst_field == 'TargetId' ) {
				// prepare target_id & target_type
				$object = $event->getObject(Array ('skip_autoload' => true));

				$target_id = 0;
				$target_prefix = false;
				$selected_ids = $this->Application->GetVar('selected_ids');

				foreach ($selected_ids as $selected_prefix => $target_id) {
					if ( $target_id > 0 ) {
						$target_prefix = $selected_prefix;
						break;
					}
				}

				if ( !$target_prefix ) {
					$event->SetRedirectParam('opener', 'u');
					return;
				}

				$target_config = $this->Application->getUnitConfig($target_prefix);

				$sql = 'SELECT ResourceId
						FROM ' . $target_config->getTableName() . '
						WHERE ' . $target_config->getIDField() . ' IN (' . $target_id . ')';
				$target_id = $this->Conn->GetOne($sql);
				$target_type = $target_config->getItemType();

				// don't add same relation twice
				$table_info = $object->getLinkedInfo();
				$sql = 'SELECT TargetId
						FROM ' . $object->TableName . '
						WHERE (SourceId = ' . $table_info['ParentId'] . ') AND (TargetId = ' . $target_id . ')';
				$duplicate_relation = $this->Conn->GetOne($sql) == $target_id;

				$event->SetRedirectParam('opener', 'u');

				if ( !$duplicate_relation ) {
					// place correct template in opener stack
					$source_prefix = $event->getUnitConfig()->getParentPrefix();
					$template = $this->Application->getUnitConfig($source_prefix)->getAdminTemplatePath() . '/relations_edit';

					$redirect_params = Array (
						$event->Prefix . '_event' => 'OnNew',
						'target_id' => $target_id,
						'm_opener' => 's',
						'target_type' => $target_type,
						'pass' => 'all,' . $event->Prefix,
					);

					$this->Application->EventManager->openerStackPush($template, $redirect_params);
				}
			}
			else {
				$event->SetRedirectParam('opener', 'u');
			}
		}

		/**
		 * Set ItemName & ItemType virtual fields based on loaded item data
		 *
		 * @param kEvent $event
		 * @return void
		 * @access protected
		 */
		protected function OnAfterItemLoad(kEvent $event)
		{
			parent::OnAfterItemLoad($event);

			$object = $event->getObject();
			/* @var $object kDBItem */

			$sql = 'SELECT Prefix
					FROM ' . TABLE_PREFIX . 'ItemTypes
					WHERE ItemType = ' . $object->GetDBField('TargetType');
			$target_config = $this->Application->getUnitConfig($this->Conn->GetOne($sql));

			$title_field = $this->getTitleField($target_config);
			$title_phrase = $target_config->getTitlePhrase();

			$sql = 'SELECT ' . $title_field . '
					FROM ' . $target_config->getTableName() . '
					WHERE ResourceId = ' . $object->GetDBField('TargetId');

			$object->SetDBField('ItemName', $this->Conn->GetOne($sql));
			$object->SetDBField('ItemType', $this->Application->Phrase($title_phrase));
		}

		/**
		 * Creates needed sql query to load list,
		 * if no query is defined in config for
		 * special requested, then use default
		 * query
		 *
		 * @param kEvent $event
		 * @return string
		 * @access protected
		 */
		protected function ListPrepareQuery(kEvent $event)
		{
			return $this->BaseQuery($event, 'ListSQLs');
		}

		/**
		 * Creates needed sql query to load item,
		 * if no query is defined in config for
		 * special requested, then use list query
		 *
		 * @param kEvent $event
		 * @return string
		 * @access protected
		 */
		protected function ItemPrepareQuery(kEvent $event)
		{
			return $this->BaseQuery($event, 'ItemSQLs');
		}


		/**
		 * Get item name & type based on relation type & modules installed
		 *
		 * @param kEvent $event
		 * @param string $sql_field
		 */
		function BaseQuery($event, $sql_field)
		{
			$sqls = $event->getUnitConfig()->getSetting($sql_field);
			$sql = isset($sqls[$event->Special]) ? $sqls[$event->Special] : $sqls[''];

			$configs = $this->extractModulesInfo();

			// 2. build sql based on information queried
			$sql_templates['ItemName'] = 'IFNULL(%s.%s,\' \')';
			$sql_templates['TableJoin'] = 'LEFT JOIN %1$s ON %1$s.ResourceId = rel.TargetId';
			$sql_templates['TargetName'] = 'IF(rel.TargetType = %s, \'%s\', %s)';

			$sql_parts = Array ();
			$sql_parts['TargetName'] = "''";

			foreach ($configs as $config) {
				$title_field = $this->getTitleField($config);

				$sql_parts['ItemName'][] = sprintf($sql_templates['ItemName'], $config->getTableName(), $title_field);
				$sql_parts['TableJoin'][] = sprintf($sql_templates['TableJoin'], $config->getTableName());

				$sql_parts['TargetName'] = sprintf($sql_templates['TargetName'], $config->getItemType(), '!' . $config->getTitlePhrase() . '!', $sql_parts['TargetName']);
				$sql_parts['TargetName'] = str_replace('rel', '%1$s', $sql_parts['TargetName']);
			}

			$object = $event->getObject();

			$vars = Array ('#ITEM_NAMES#', '#ITEM_TYPES#');
			$replacements = Array (implode(', ', $sql_parts['ItemName']), $sql_parts['TargetName']);

			$calculated_fields = $object->getCalculatedFields();

			foreach ($calculated_fields as $field_name => $field_expression) {
				$calculated_fields[$field_name] = str_replace($vars, $replacements, $field_expression);
			}

			$object->setCalculatedFields($calculated_fields);

			$sql = str_replace('#ITEM_JOIN#', implode(' ', $sql_parts['TableJoin']), $sql);
			$sql = str_replace('rel.', '%1$s.', $sql);

			return $sql;
		}

		/**
		 * Convert TitleField field of kMultiLanguage formatter used for it
		 *
		 * @param kUnitConfig $config
		 * @return string
		 */
		function getTitleField(kUnitConfig $config)
		{
			$lang_prefix = 'l' . $this->Application->GetVar('m_lang') . '_';

			$title_field = $config->getTitleField();
			$field_options = $config->getFieldByName($title_field);

			$formatter_class = isset($field_options['formatter']) ? $field_options['formatter'] : '';

			if ( $formatter_class == 'kMultiLanguage' && !isset($field_options['master_field']) ) {
				$title_field = $lang_prefix . $title_field;
			}

			return $title_field;
		}

		/**
		 * Get configs from modules installed
		 *
		 * @return Array|kUnitConfig[]
		 * @access private
		 */
		function extractModulesInfo()
		{
			// get installed modules & their config info
			// maybe we should leave only prefixes, that have "view" permission
			$ret = Array ();

			foreach ($this->Application->ModuleInfo as $module_data) {
				$prefix = $module_data['Var'];

				if ( $prefix == 'm' ) {
					$prefix = 'c';
				}

				if ( !$this->Application->prefixRegistred($prefix) ) {
					continue;
				}

				$config = $this->Application->getUnitConfig($prefix);

				if ( $config->getCatalogItem() ) {
					$ret[$prefix] = $config;
				}
			}

			return $ret;
		}

		/**
		 * Deletes relations to hooked item from other items
		 *
		 * @param kEvent $event
		 */
		function OnDeleteForeignRelations($event)
		{
			$main_object = $event->MasterEvent->getObject();
			/* @var $main_object kDBItem */

			$sql = 'DELETE FROM ' . $event->getUnitConfig()->getTableName() . '
					WHERE TargetId = ' . $main_object->GetDBField('ResourceId');
			$this->Conn->Query($sql);
		}

	}