<?php
/**********************************************************************
	Copyright (C) NotrinosERP.
	Released under the terms of the GNU General Public License, GPL,
	as published by the Free Software Foundation, either version 3
	of the License, or (at your option) any later version.
	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
/*
	Retrieve value of POST variable(s).
	For $name passed as array $dflt is not used, 
	default values can be passed as values with non-numeric keys instead.
	If some field have user formatted numeric value, pass float default value to
	convert automatically to POSIX.
*/
function get_post($name, $dflt='') {
	if (is_array($name)) {
		$ret = array();
		foreach($name as $key => $dflt)
			if (!is_numeric($key))
				$ret[$key] = is_numeric($dflt) ? input_num($key, $dflt) : get_post($key, $dflt);
			else
				$ret[$dflt] = get_post($dflt, null);
		return $ret;
	}
	else
		return is_float($dflt) ? input_num($name, $dflt) : ((!isset($_POST[$name]) /*|| $_POST[$name] === ''*/) ? $dflt : $_POST[$name]);
}

/**
 * Return the current application selector query parameter.
 *
 * @param string $prefix
 * @return string
 */
function get_sel_app_param($prefix = '&') {
	$app = isset($_GET['sel_app']) && $_GET['sel_app'] != ''
		? $_GET['sel_app']
		: (isset($_SESSION['sel_app']) && $_SESSION['sel_app'] != '' ? $_SESSION['sel_app'] : '');

	return $app !== '' ? $prefix . 'sel_app=' . urlencode($app) : '';
}

//---------------------------------------------------------------------------------

$form_nested = -1;

$ui_table_mode_stack = array();
$ui_outer_section_open = false;
$ui_row_mode_stack = array();
$filter_group_open = false;

/**
 * Check whether modern theme is active.
 * Always returns true as only the modern theme is supported from NotrinosERP 1.0
 *
 * @return bool
 */
function ui_is_modern_theme() {
	return true;
}

/**
 * Push UI table mode to stack.
 *
 * @param string $mode
 * @return void
 */
function ui_push_table_mode($mode) {
	global $ui_table_mode_stack;
	$ui_table_mode_stack[] = $mode;
}

/**
 * Pop UI table mode from stack.
 *
 * @return string
 */
function ui_pop_table_mode() {
	global $ui_table_mode_stack;
	if (!count($ui_table_mode_stack))
		return 'table';
	return array_pop($ui_table_mode_stack);
}

/**
 * Get current UI table mode from stack.
 *
 * @return string
 */
function ui_current_table_mode() {
	global $ui_table_mode_stack;
	if (!count($ui_table_mode_stack))
		return 'table';
	return $ui_table_mode_stack[count($ui_table_mode_stack) - 1];
}

function start_form($multi=false, $action='', $name='') {
	global $form_nested;

	if (++$form_nested)
		return;

	if ($name != '')
		$name = "name='".$name."'";
	if ($action == '') {
		$action = $_SERVER['PHP_SELF'];
		// Preserve application context on form submissions, including session-only flows.
		if (isset($_GET['sel_app']) && $_GET['sel_app'] != '')
			$action .= '?sel_app=' . urlencode($_GET['sel_app']);
		elseif (isset($_SESSION['sel_app']) && $_SESSION['sel_app'] != '')
			$action .= '?sel_app=' . urlencode($_SESSION['sel_app']);
	}

	if ($multi)
		echo "<form enctype='multipart/form-data' method='post' action='$action' $name>\n";
	else
		echo "<form method='post' action='$action' $name>\n";
}

// Flush hidden fields buffer.
function output_hidden() {
	global $hidden_fields;

	if (is_array($hidden_fields))
		echo implode('', $hidden_fields);
	$hidden_fields = array();
}

//---------------------------------------------------------------------------------

function end_form($breaks=0) {
	global $Ajax, $form_nested, $hidden_fields;

	if ($form_nested-- > 0) return;

	close_filter_group_if_open();

	if ($breaks)
		br($breaks);
	hidden('_focus');
	hidden('_modified', get_post('_modified', 0));
	hidden('_confirmed'); // helper for final form confirmation
	hidden('_token', ensure_csrf_token());

	output_hidden();
	echo "</form>\n";
	$Ajax->activate('_token');
	$Ajax->activate('_confirmed');
}

/**
 * Ensure the current session has a CSRF token.
 *
 * @return string
 */
function ensure_csrf_token() {
	if (!isset($_SESSION['csrf_token']) || $_SESSION['csrf_token'] == '')
		$_SESSION['csrf_token'] = random_id();

	return $_SESSION['csrf_token'];
}

/**
 * Validate the submitted CSRF token against the current session token.
 *
 * @return bool
 */
function check_csrf_token() {
	$session_token = isset($_SESSION['csrf_token']) ? $_SESSION['csrf_token'] : '';
	$submitted_token = isset($_POST['_token']) ? $_POST['_token'] : '';
	$valid_token = function_exists('hash_equals')
		? ($session_token !== '' && $submitted_token !== '' && hash_equals($session_token, $submitted_token))
		: ($session_token !== '' && $session_token == $submitted_token);

	if (!$valid_token) {
		display_error(_('Request from outside of this page is forbidden.'));
		error_log(_('CSRF attack detected from: ').@$_SERVER['HTTP_HOST'].' ('.@$_SERVER['HTTP_REFERER'].')');
		return false;
	}
	return true;
}

/**
 * Close the filter-group wrapper div if one is currently open.
 *
 * @return void
 */
function close_filter_group_if_open() {
	global $filter_group_open;
	if ($filter_group_open) {
		echo "</div>\n";
		$filter_group_open = false;
	}
}

function start_table($class=false, $extra='', $padding='2', $spacing='0') {
	global $filter_group_open;

	if ($class == TABLESTYLE_NOBORDER) {
		if (!$filter_group_open) {
			echo "<div class='filter-group'>\n";
			$filter_group_open = true;
		}
	} else {
		close_filter_group_if_open();
	}

	$mode = ($class != TABLESTYLE) ? 'form' : 'table';
	ui_push_table_mode($mode);

	if ($mode == 'form') {
		$css_class = 'form-table';
		if ($class == TABLESTYLE_NOBORDER)
			$css_class .= ' filter-bar';
		echo "<div class='".$css_class."'";
		if ($extra != '')
			echo ' '.$extra;
		echo ">\n";
		return;
	}

	$table_class = 'tablestyle';

	if ($extra != '' && preg_match('/class\s*=\s*[\"\']([^\"\']+)[\"\']/i', $extra, $class_match)) {
		$table_class = trim($table_class.' '.$class_match[1]);
		$extra = trim(preg_replace('/class\s*=\s*[\"\'][^\"\']+[\"\']/i', '', $extra));
	}

	echo "<center><table";
	if ($table_class != '')
		echo " class='".$table_class."'";
	if ($extra != '')
		echo ' '.$extra;
	echo " cellpadding='".$padding."' cellspacing='".$spacing."'>\n";
}

function end_table($breaks=0) {
	$mode = ui_pop_table_mode();
	if ($mode == 'form')
		echo "</div>\n";
	else
		echo "</table></center>\n";
	output_hidden();
	if ($breaks) {
		close_filter_group_if_open();
		br($breaks);
	}
}

/**
 * Open a filter cell wrapper.
 * In table mode: outputs label TD and opening control TD.
 * In form mode: outputs a filter-field wrapper div with label.
 *
 * @param string|null $label The label text or null for no label
 * @param string $params Extra HTML attributes for the label cell (table mode only)
 * @return void
 */
function filter_cell_open($label = null, $params = '') {
	if (ui_current_table_mode() != 'table') {
		echo "<div class='filter-field'>\n";
		if ($label != null)
			echo "<label class='filter-label'>".$label."</label>\n";
		return;
	}
	if ($label != null)
		echo "<td ".$params.">".$label."</td>\n";
	echo "<td nowrap>\n";
}

/**
 * Close a filter cell wrapper.
 *
 * @return void
 */
function filter_cell_close() {
	if (ui_current_table_mode() != 'table')
		echo "</div>\n";
	else
		echo "</td>\n";
}

function start_outer_table($class=false, $extra='', $padding='2', $spacing='0', $br=false) {
	global $ui_outer_section_open;

	if ($br)
		br();
	$ui_outer_section_open = false;
	ui_push_table_mode('outer_form');
	echo "<div class='form-grid'";
	if ($extra != '')
		echo ' '.$extra;
	echo ">\n";
}

function table_section($number=1, $width=false) {
	global $ui_outer_section_open;

	if (ui_current_table_mode() == 'outer_form') {
		if ($ui_outer_section_open)
			echo "</div>\n";
		$ui_outer_section_open = true;
		echo "<div class='form-section'";
		if ($width)
			echo " style='width:{$width};'";
		echo ">\n";
		return;
	}

	if ($number > 1) {
		echo "</table>\n";
		output_hidden();
		$width = ($width ? "width='$width'" : '');
		echo "</td><td style='border-left:1px solid #cccccc;' $width>\n"; // outer table
	}
	echo "<table class='tablestyle_inner'>\n";
}	

function end_outer_table($breaks=0, $close_table=true) {
	global $ui_outer_section_open;

	if (ui_current_table_mode() == 'outer_form') {
		if ($ui_outer_section_open)
			echo "</div>\n";
		echo "</div>\n";
		$ui_outer_section_open = false;
		ui_pop_table_mode();
		output_hidden();
		if ($breaks)
			br($breaks);
		return;
	}

	if ($close_table) {
		echo "</table>\n";
		output_hidden();
	}
	echo "</td></tr>\n";
	end_table($breaks);
}

//  outer table spacer
function vertical_space($params='') {
	if (ui_current_table_mode() == 'outer_form') {
		echo "<div class='form-space' ".$params."></div>";
		return;
	}
	echo "</td></tr><tr><td valign=center ".$params.">";
}

function meta_forward($forward_to, $params='', $timeout=0, $return=false) {
	global $Ajax;
	echo "<meta http-equiv='Refresh' content='".$timeout."; url=$forward_to?$params'>\n";
	echo "<center><br>" . _('You should automatically be forwarded.');
	echo " " . _('If this does not happen').' '."<a href='".$forward_to.'?'.$params."'>"._('click here')."</a> "._('to continue').".<br><br></center>\n";
	if ($params != '')
		$params = '?'.$params;
	$Ajax->redirect($forward_to.$params);
	if (!$return)
		exit;
}

//-----------------------------------------------------------------------------------
// Find and replace hotkey marker.
// if $clean == true marker is removed and clean label is returned 
// (for use in wiki help system), otherwise result is array of label 
// with underlined hotkey letter and access property string.
//
function access_string($label, $clean=false) {
	$access = '';
	$slices = array();

	if (preg_match('/(.*)&([a-zA-Z0-9])(.*)/', $label, $slices)) {
		$label = $clean ? $slices[1].$slices[2].$slices[3] : $slices[1].'<u>'.$slices[2].'</u>'.$slices[3];
		$access = " accesskey='".strtoupper($slices[2])."'";
	}
	
	$label = str_replace( '&&', '&', $label);

	return $clean ? $label : array($label, $access);
}

function hyperlink_back($center=true, $no_menu=true, $type_no=0, $trans_no=0, $final=false) {
	global $path_to_root;

	$id = 0;
	if ($no_menu && $trans_no != 0) {
		include_once($path_to_root.'/admin/db/attachments_db.inc');
		$id = has_attachment($type_no, $trans_no);
		$attach = get_attachment_string($type_no, $trans_no);
		echo $attach;
	}
	echo "<div class='form-actions'>";
	if ($no_menu)
		echo "<a class='inputsubmit' href='javascript:window.print();'>"._('Print')."</a>";
	echo "<a class='inputsubmit' href='javascript:goBack(".($final ? '-2' : '').");'>".($no_menu ? _('Close') : _('Back'))."</a>";
	echo "</div><br>";
}

function hyperlink_no_params($target, $label, $center=true) {
	$id = default_focus();
	$pars = access_string($label);
	if ($target == '')
		$target = $_SERVER['PHP_SELF'];
	if ($center)
		echo "<br><center>";
	echo "<a href='$target' id='$id' $pars[1]>$pars[0]</a>\n";
	if ($center)
		echo "</center>";
}

function hyperlink_no_params_td($target, $label) {
	echo '<td>';
	hyperlink_no_params($target, $label);
	echo "</td>\n";
}

function viewer_link($label, $url='', $class='', $id='', $icon=null) {
	global $path_to_root;
	
	if ($class != '')
		$class = " class='".$class."'";

	if ($id != '')
		$class = " id='".$id."'";

	if ($url != '') {
		$pars = access_string($label);
		if (user_graphic_links() && $icon)
			$pars[0] = set_icon($icon, $pars[0]);
		$preview_str = "<a target='_blank' $class $id href='$path_to_root/$url' onclick=\"javascript:openWindow(this.href,this.target); return false;\"$pars[1]>$pars[0]</a>";
	}
	else
		$preview_str = $label;
	return $preview_str;
}

function menu_link($url, $label, $id=null) {
	global $path_to_root;

	$id = default_focus($id);
	$pars = access_string($label);

	if ($url[0] != '/')
		$url = '/'.$url;
	$url = $path_to_root.$url;

	return "<a href='$url' class='menu_option' id='$id' $pars[1]>$pars[0]</a>";
}

function submenu_option($title, $url, $id=null) {
	display_note( menu_link($url, $title, $id), 0, 1);
}

function submenu_view($title, $type, $number, $id=null) {
	display_note(get_trans_view_str($type, $number, $title, false, 'viewlink', $id), 0, 1);
}

function submenu_print($title, $type, $number, $id=null, $email=0, $extra=0) {
	display_note(print_document_link($number, $title, $type, false, 'printlink', $id, $email, $extra), 0, 1);
}

//-----------------------------------------------------------------------------------

function hyperlink_params($target, $label, $params, $center=true) {
	$id = default_focus();
	
	$pars = access_string($label);
	if ($target == '')
		$target = $_SERVER['PHP_SELF'];
	if ($center)
		echo "<br><center>";
	echo "<a id='$id' href='$target?$params'$pars[1]>$pars[0]</a>\n";
	if ($center)
		echo "</center>";
}

function hyperlink_params_td($target, $label, $params) {
	echo "<td>";
	hyperlink_params($target, $label, $params, false);
	echo "</td>\n";
}

//-----------------------------------------------------------------------------------

function hyperlink_params_separate($target, $label, $params, $center=false) {
	$id = default_focus();

	$pars = access_string($label);
	if ($center)
		echo "<br><center>";
	echo "<a target='_blank' id='$id' href='$target?$params' $pars[1]>$pars[0]</a>\n";
	if ($center)
		echo "</center>";
}

function hyperlink_params_separate_td($target, $label, $params) {
	echo "<td>";
	hyperlink_params_separate($target, $label, $params);
	echo "</td>\n";
}

//--------------------------------------------------------------------------------------------------

function alt_table_row_color(&$k, $extra_class=null) {
	global $ui_row_mode_stack;

	$classes = $extra_class ? array($extra_class) : array();
	if ($k == 1) {
		array_push($classes, 'oddrow');
		$k = 0;
	}
	else {
		array_push($classes, 'evenrow');
		$k++;
	}
	if (ui_current_table_mode() == 'table') {
		$ui_row_mode_stack[] = 'tr';
		echo "<tr class='".implode(' ', $classes)."'>\n";
	}
	else {
		$ui_row_mode_stack[] = 'div';
		echo "<div class='form-row ".implode(' ', $classes)."'>\n";
	}
}

function table_section_title($msg, $colspan=2) {
	if (ui_current_table_mode() == 'table')
		echo "<tr><td colspan=".$colspan." class='tableheader'>".$msg."</td></tr>\n";
	else
		echo "<h3 class='section-title'>".$msg."</h3>\n";
}

function table_header($labels, $params='') {
	if (ui_current_table_mode() != 'table') {
		echo "<div class='table-header-row'>";
		foreach ($labels as $label)
			echo "<span class='table-header-cell' ".$params.">".$label."</span>";
		echo "</div>\n";
		return;
	}

	start_row();
	foreach ($labels as $label)
		labelheader_cell($label, $params);
	end_row();
}

//-----------------------------------------------------------------------------------

function start_row($param='') {
	global $ui_row_mode_stack;

	if (ui_current_table_mode() != 'table') {
		$ui_row_mode_stack[] = 'div';
		if ($param != '')
			echo "<div class='form-row' ".$param.">\n";
		else
			echo "<div class='form-row'>\n";
		return;
	}

	$ui_row_mode_stack[] = 'tr';
	if ($param != '')
		echo "<tr ".$param.">\n";
	else
		echo "<tr>\n";
}

function end_row() {
	global $ui_row_mode_stack;
	$mode = count($ui_row_mode_stack) ? array_pop($ui_row_mode_stack) : 'tr';
	if ($mode == 'div')
		echo "</div>\n";
	else
		echo "</tr>\n";
}

function br($num=1) {
	for ($i = 0; $i < $num; $i++)
		echo "<br>";
}

$ajax_divs = array();

function div_start($id='', $trigger=null, $non_ajax=false) {
	global $ajax_divs;

	close_filter_group_if_open();

	if ($non_ajax) { // div for non-ajax elements
		array_push($ajax_divs, array($id, null));
		echo "<div style='display:none' class='js_only' ".($id !='' ? "id='$id'" : '').">";
	}
	else { // ajax ready div
		array_push($ajax_divs, array($id, $trigger===null ? $id : $trigger));
		echo "<div ". ($id !='' ? "id='$id'" : '').">";
		ob_start();
	}
}

function div_end() {
	global $ajax_divs, $Ajax;

	output_hidden();
	if (count($ajax_divs)) {
		$div = array_pop($ajax_divs);
		if ($div[1] !== null)
			$Ajax->addUpdate($div[1], $div[0], ob_get_flush());
	}
	echo "</div>";
}

//-----------------------------------------------------------------------------
//	Tabbed area:
// 	$name - prefix for widget internal elements:
//		Nth tab submit name:  {$name}_N
//		div id:	_{$name}_div
//		sel (hidden) name: _{$name}_sel
// $tabs - array of tabs; string: tab title or array(tab_title, enabled_status)

function tabbed_content_start($name, $tabs, $dft='') {
	global $Ajax;

	$selname = '_'.$name.'_sel';
	$div = '_'.$name.'_div';

	$sel = find_submit($name.'_', false);
	if($sel==null)
		$sel = get_post($selname, (string)($dft === '' ? key($tabs) : $dft));

	if ($sel!==@$_POST[$selname])
		$Ajax->activate($name);

	$_POST[$selname] = $sel;

	div_start($name);
	$str = "<ul class='ajaxtabs' rel='$div'>\n";

	foreach($tabs as $tab_no => $tab) {
		$acc = access_string(is_array($tab) ? $tab[0] : $tab);
		$disabled = (is_array($tab) && !$tab[1])  ? 'disabled ' : '';
		$str .= ( "<li>"
			."<button type='submit' name='{$name}_".$tab_no
			."' class='".((string)$tab_no===$sel ? 'current':'ajaxbutton')."' $acc[1] $disabled>"
			."<span>$acc[0]</span>"
			."</button>\n"
			."</li>\n" );
	}

	$str .= "</ul>\n";
	$str .= "<div class='spaceBox'></div>\n";
	$str .= "<input type='hidden' name='$selname' value='$sel'>\n";
	$str .= "<div class='contentBox' id='$div'>\n";
	echo $str;
}

function tabbed_content_end() {
	output_hidden();
	echo "</div>"; // content box (don't change to div_end() unless div_start() is used above)
	div_end(); // tabs widget
}

function tab_changed($name) {
	$to = find_submit("{$name}_", false);
	if (!$to)
		return null;

	return array('from' => $from = get_post("_{$name}_sel"), 'to' => $to);
}

// Check whether tab has been just switched on
function tab_opened($name, $tab) {
	return (get_post('_'.$name.'_sel') != $tab) && (find_submit($name.'_', false) == $tab);
}

// Check whether tab has been just switched off
function tab_closed($name, $tab) {
	return (get_post('_'.$name.'_sel') == $tab) && (find_submit($name.'_', false) != $tab);
}

// Check whether tab is visible on current page
function tab_visible($name, $tab) {
	$new = find_submit($name.'_', false);
	return (get_post('_'.$name.'_sel') == $tab && !$new) || $new==$tab;
}

/* Table editor interfaces. Key is editor type
	0 => url of editor page
	1 => hotkey code
	2 => context help
*/
$popup_editors = array(
	'customer' => array('/sales/manage/customers.php?debtor_no=', 
		113,	_('Customers'), 900, 550),
	'branch' => array('/sales/manage/customer_branches.php?SelectedBranch=', 
		114, _('Branches'), 900, 650),
	'supplier' => array('/purchasing/manage/suppliers.php?supplier_id=', 
		113, _('Suppliers'), 1150, 550),
	'item' => array('/inventory/manage/items.php?stock_id=', 
		115, _('Items'), 1000, 500),
	'fa_item' => array('/inventory/manage/items.php?FixedAsset=1&stock_id=', 
		115, _('Items'), 1000, 500),
	'employee' => array('/hrm/manage/employees.php?employee_no=',
		113, _('Employee'), 900, 600)
);

$search_types = array(
	'stock' => array('/inventory/inquiry/stock_list.php?popup=1&type=all&client_id=', _('Search items')),
	'stock_manufactured' => array('/inventory/inquiry/stock_list.php?popup=1&type=manufactured&client_id=', _('Search items')),
	'stock_purchased' => array('/inventory/inquiry/stock_list.php?popup=1&type=purchasable&client_id=', _('Search items')),
	'stock_sales' => array('/inventory/inquiry/stock_list.php?popup=1&type=sales&client_id=', _('Search items')),
	'stock_costable' => array('/inventory/inquiry/stock_list.php?popup=1&type=costable&client_id=', _('Search items')),
	'component' => array('/inventory/inquiry/stock_list.php?popup=1&type=component&parent=', '&client_id=', _('Search items')),
	'kits' => array('/inventory/inquiry/stock_list.php?popup=1&type=kits&client_id=', _('Search items')),
	'customer' => array('/sales/inquiry/customers_list.php?popup=1&client_id=', _('Search customers')),
	'branch' => array('/sales/inquiry/customer_branches_list.php?popup=1&client_id=', '#customer_id', _('Search branches')),
	'supplier' => array('/purchasing/inquiry/suppliers_list.php?popup=1&client_id=', _('Search suppliers')),
	'account' => array('/gl/inquiry/accounts_list.php?popup=1&skip=false&client_id=', _('Search GL accounts')),
	'account2' => array('/gl/inquiry/accounts_list.php?popup=1&skip=true&client_id=', _('Search GL accounts')),
	'employee' => array('hrm/inquiry/employees_list.php?popup=1&dept=all&client_id=', _('Search employee'))
);
/*
	Bind editors for various selectors.
	$type - type of editor
	$input - name of related input field
	$caller - optional function key code (available values F1-F12: 112-123,
		true: default)
*/
function set_editor($type, $input, $caller=true) {
	global $path_to_root, $Editors, $popup_editors, $Pagehelp;

	$key = $caller === true ? $popup_editors[$type][1] : $caller;

	$Editors[$key] = array( $path_to_root.$popup_editors[$type][0], $input, $popup_editors[$type][3], $popup_editors[$type][4]);
	
	$help = 'F'.($key - 111).' - ';
	$help .= $popup_editors[$type][2];
	$Pagehelp[] = $help;
}
//------------------------------------------------------------------------------
// Procedures below are now obsolete. Preserved for eventual future use.

/*
	External page call with saving current context.
	$call - url of external page
	$ctx - optional. name of SESSION context object or array of names of POST 
		variables saved on call
*/
function context_call($call, $ctx='') {
	if (is_array($ctx)) {
		foreach($ctx as $postname) {
			$context[$postname] = get_post($postname);
		}
	}
	else 
		$context = isset($_SESSION[$ctx]) ? $_SESSION[$ctx] : null;

	array_unshift($_SESSION['Context'], array('name' => $ctx, 
		'ctx' => $context,
		'caller' => $_SERVER['PHP_SELF'],
		'ret' => array()));
	meta_forward($call);
}
/*
	Restores context after external page call and
	returns array of data passed by external page.
*/
function context_restore() {
	if ( count($_SESSION['Context'])) {
		if ($_SERVER['PHP_SELF'] == $_SESSION['Context'][0]['caller']) {
			$ctx = array_shift($_SESSION['Context']);
			if ($ctx) {
				if (is_array($ctx['ctx'])) {
					foreach($ctx['ctx'] as $name => $val) {
						$_POST[$name] = $val;
					}
				}
				else
					if ($ctx['name']!='')
						$_SESSION[$ctx['name']] = $ctx['ctx'];
				return $ctx['ret'];
			}
		}
	}
	return false;
}

/*
	Return to caller page if the page was called from external context.
*/
function context_return($ret) {
	if ( count($_SESSION['Context'])) {
		$ctx = &$_SESSION['Context'][0];
		$ctx['ret'] = $ret;
		meta_forward( $ctx['caller'] );
	}
}
/*
	Clearing context stack after page cancel.
*/
function context_reset() {
	$_SESSION['Context'] = array();
}
/*
	Context stack initialization
*/
if (!isset($_SESSION['Context'])) {
	context_reset();
}
/*
	Redirector for selector F4 calls.
	$sel_editors is array of selname=>editor_page
*/
function editor_redirect($sel_editors, $save_fun='') {
	foreach ($sel_editors as $selname=>$editor)
		if (isset($_POST['_'.$selname.'_editor'])) {
			if (function_exists($save_fun))
				$save_fun();
			unset($_POST['_'.$selname.'_editor']);
			context_call($editor, array_keys($_POST));
		}
}
/*
	Return procedure for selector F4 calls
*/
function editor_return($vars, $restore_fun='') {
	if (function_exists($restore_fun))
		$restore_fun();

	if ($ret = context_restore()) {
		foreach ($vars as $postname=>$retname)
			if (isset($ret[$retname])) {
				$_POST[$postname] = $ret[$retname];
				set_focus($postname);
			}
	}
}

function confirm_dialog($submit, $msg) {
	if (find_post($submit)) {
		display_warning($msg);
		br();
		submit_center_first('DialogConfirm', _('Proceed'), '', true);
		submit_center_last('DialogCancel', _('Cancel'), '', 'cancel');
		return 0;
	}
	else
		return get_post('DialogConfirm', 0);
}
/*
	Confirm dialog to be used optionally in final form checking routine.
	Displays warning conditionally unless it was displayed
*/
function display_confirmation($msg) {
	global $Ajax;

	if (!get_post('_confirmed')) {
		$_POST['_confirmed'] = 1;
		display_warning($msg);
		return false;
	}
	else
		return true;
}
/*
	Block menu/shortcut links during transaction procesing.
*/
function page_processing($msg=false) {
	global $Ajax;

	if ($msg === true)
		$msg = _("Entered data has not been saved yet.\nDo you want to abandon changes?");

	$js = "_validate._processing=" . (
		$msg ? '\''.strtr($msg, array("\n"=>'\\n')) . '\';' : 'null;');
	if (in_ajax())
		$Ajax->addScript(true, $js);
	else
		add_js_source($js);
}

function page_modified($status=true) {
	global $Ajax;

	$js = "_validate._modified=".($status ? 1 : 0).';';
	if (in_ajax())
		$Ajax->addScript(true, $js);
	else
		add_js_source($js);
}

/**
 * Start a multi-column view layout (used in document view pages).
 * Modern theme: flexbox container; Default: outer table.
 *
 * @param string $extra Optional extra attributes
 */
function start_view_columns($extra='') {
	echo "<div class='view-columns'";
	if ($extra)
		echo " " . $extra;
	echo ">\n";
}

/**
 * Output column headers for view layout.
 * Modern theme: header bar; Default: table row with headings.
 *
 * @param array $headers Array of heading strings
 */
function view_column_headers($headers) {
	echo "<div class='view-columns-header'>\n";
	foreach ($headers as $header) {
		echo "<div class='view-column-title'>" . $header . "</div>\n";
	}
	echo "</div>\n";
}

/**
 * Start a single column panel inside view_columns layout.
 * Modern theme: div panel; Default: table cell.
 */
function view_column_start() {
	echo "<div class='view-column-panel'>\n";
}

/**
 * Transition to the next column panel.
 * Modern theme: close/open div; Default: close/open td.
 */
function view_column_next() {
	echo "</div>\n<div class='view-column-panel'>\n";
}

/**
 * End the last column panel and close the view columns layout.
 * Modern theme: close divs; Default: close td/tr/table.
 */
function end_view_columns() {
	echo "</div>\n</div>\n";
}
