<?php
	/**
	 * eGroupWare eTemplate Widget for custom fields
	 *
	 * @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
	 * @package etemplate
	 * @link http://www.egroupware.org
	 * @author Cornelius Weiss <egw@von-und-zu-weiss.de>
	 * @version $Id$
	 */

	/**
	 * This widget generates a template for customfields based on definitions in egw_config table
	 * 
	 * All widgets here have 2 comma-separated options ($cell[size]):
	 * - sub-type to display only the cf's without subtype or with a matching one
	 * - use-private to display only (non-)private cf's (0=regular ones, 1=private ones, default both)
	 * 
	 * Private cf's the user has no right to see (neither him nor his memberships are mentioned) are never displayed.
	 *
	 * @package etemplate
	 * @subpackage extensions
	 * @author RalfBecker-At-outdoor-training.de
	 * @author Cornelius Weiss <egw@von-und-zu-weiss.de>
	 * @license GPL - GNU General Public License
	 */
	class customfields_widget
	{
		var $public_functions = array(
			'pre_process' => True,
		);
		var $human_name = array(
			'customfields' => 'custom fields',
			'customfields-types' => 'custom field types',
			'customfields-list'  => 'custom field list',
			'customfields-no-label' => 'custom fields without label',
		);
		
		/**
		 * Allowd types of customfields
		 * 
		 * The additionally allowed app-names from the link-class, will be add by the edit-method only,
		 * as the link-class has to be called, which can NOT be instanciated by the constructor, as 
		 * we get a loop in the instanciation.
		 * 
		 * @var array
		 */
		var $cf_types = array(
			'text'     => 'Text',
			'label'    => 'Label',
			'select'   => 'Selectbox',
			'radio'    => 'Radiobutton',
			'checkbox' => 'Checkbox',
			'date'     => 'Date',
			'date-time'=> 'Date+Time',
			'select-account' => 'Select account',
			'button'   => 'Button',         // button to execute javascript
			'link-entry' => 'Select entry',		// should be last type, as the individual apps get added behind
		);

		/**
		 * @var $prefix string Prefix for every custiomfield name returned in $content (# for general (admin) customfields)
		 */
		var $prefix = '#';
		/**
		 * Current application
		 *
		 * @var string
		 */
		var $appname;
		/**
		 * Instance of the config class for $appname
		 *
		 * @var config
		 */
		var $config;
		/**
		 * Our customfields as name => data array
		 *
		 * @var array
		 */
		var $customfields;
		var $types;
		var $advanced_search;


		function customfields_widget($ui,$appname=null)
		{
			$this->appname = $appname ? $appname : $GLOBALS['egw_info']['flags']['currentapp'];
			$this->customfields = config::get_customfields($this->appname);
			$this->types = config::get_content_types($this->appname);
			$this->advanced_search = $GLOBALS['egw_info']['etemplate']['advanced_search'];
		}

		function pre_process($name,&$value,&$cell,&$readonlys,&$extension_data,&$tmpl)
		{
			if ($this->appname == 'etemplate' || !$this->customfields)	// if we are in the etemplate editor or the app has no cf's, load the cf's from the app the tpl belongs too
			{
				list($app) = explode('.',$tmpl->name);
				if ($app && $app != $this->appname) $this->customfields_widget(null,$app);
			}
			list($type2,$use_private) = explode(',',$cell['size']);
			$fields_with_vals=array();

			$fields = $this->customfields;
			
			// remove private or non-private cf's, if only one kind should be displayed
			foreach((array)$fields as $key => $field)
			{
				if ((string)$use_private !== '' && (boolean)$field['private'] != (boolean)$use_private)
				{
					unset($fields[$key]);
				}
			}
			// check if name refers to a single custom field --> show only that
			if (($pos=strpos($cell['name'],$this->prefix)) !== false && // allow the prefixed name to be an array index too
				preg_match("/$this->prefix([^\]]+)/",$cell['name'],$matches) && isset($fields[$name=$matches[1]]))
			{
				$fields = array($name => $fields[$name]);
				$value = array($this->prefix.$name => $value);
				$singlefield = true;
			}
			switch($type = $cell['type'])
			{
				case 'customfields-types':
					$cell['type'] = 'select';
					foreach($this->cf_types as $lname => $label) 
					{
						$cell['sel_options'][$lname] = lang($label);
						$fields_with_vals[]=$lname;
					}
					$link_types = ExecMethod('phpgwapi.bolink.app_list','');
					ksort($link_types);
					foreach($link_types as $lname => $label) $cell['sel_options'][$lname] = '- '.$label;
					$cell['no_lang'] = true;
					return true;

				case 'customfields-list':
					foreach(array_reverse($fields) as $lname => $field)
					{
						if (!empty($type2) && !empty($field['type2']) && strpos(','.$field['type2'].',',','.$type2.',') === false) continue;	// not for our content type//
						if (isset($value[$this->prefix.$lname]) && $value[$this->prefix.$lname] !== '') //break;
						{
							$fields_with_vals[]=$lname;
						}
						//$stop_at_field = $name;
					}
					break;
				default:
					foreach(array_reverse($fields) as $lname => $field)
					{
						$fields_with_vals[]=$lname;
					}
			}
			$readonly = $cell['readonly'] || $readonlys[$name] || $type == 'customfields-list';

			if(!is_array($fields))
			{
				$cell['type'] = 'label';
				return True;
			}
			// making the cell an empty grid
			$cell['type'] = 'grid';
			$cell['data'] = array(array());
			$cell['rows'] = $cell['cols'] = 0;

			$n = 1;
			foreach($fields as $lname => $field)
			{
			   if (!(array_search($lname,$fields_with_vals)===false))
			   {
				if ($stop_at_field && $lname == $stop_at_field) break;	// no further row necessary

				// check if the customfield get's displayed for type $value, we can have multiple comma-separated types now
				if (!empty($type2) && !empty($field['type2']) && strpos(','.$field['type2'].',',','.$type2.',') === false)
				{
					continue;	// not for our content type
				}
				$new_row = null; etemplate::add_child($cell,$new_row);
				if ($type != 'customfields-list' && $type == 'customfields')
				{
					$row_class = 'row';
					etemplate::add_child($cell,$label =& etemplate::empty_cell('label','',array(
						'label' => $field['label'],
						'no_lang' => substr(lang($field['label']),-1) == '*' ? 2 : 0,
						'span' => $field['type'] === 'label' ? '2' : '',
					)));
				} elseif ($type == 'customfields-list') {
					if (isset($value[$this->prefix.$lname]) && $value[$this->prefix.$lname] !== '') {
						etemplate::add_child($cell,$input =& etemplate::empty_cell('image','info.png',
							array('label'=>/*lang("custom fields").": ".*/$field['label'],'width'=>"16px",
								'onclick'=>"return alert('".lang("custom fields").": ".$field['label']."');")));
					}
				}

				switch ((string)$field['type'])
				{
					case 'select' :
						if (count($field['values']) == 1 && isset($field['values']['@']))
						{
							$field['values'] = $this->_get_options_from_file($field['values']['@']);
						}
						if($this->advanced_search && $field['rows'] <= 1) $field['values'][''] = lang('doesn\'t matter');
						foreach($field['values'] as $key => $val)
						{
							if (substr($val = lang($val),-1) != '*')
							{
								$field['values'][$key] = $val;
							}
						}
						$input =& etemplate::empty_cell('select',$this->prefix.$lname,array(
							'sel_options' => $field['values'],
							'size'        => $field['rows'],
							'no_lang'     => True,
						));
						if($this->advanced_search)
						{
							$select =& $input; unset($input);
							$input =& etemplate::empty_cell('hbox');
							etemplate::add_child($input, $select); unset($select);
							etemplate::add_child($input, etemplate::empty_cell('select',$this->prefix.$lname,array(
								'sel_options' => $field['values'],
								'size'        => $field['rows'],
								'no_lang'     => True
							)));
						}
						break;
					case 'label' :
						$row_class = 'th';
						break;
					case 'checkbox' :
						$input =& etemplate::empty_cell('checkbox',$this->prefix.$lname);
						break;
					case 'radio' :
						if (count($field['values']) == 1 && isset($field['values']['@']))
						{
							$field['values'] = $this->_get_options_from_file($field['values']['@']);
						}
						$input =& etemplate::empty_cell('groupbox');
						$m = 0;
						foreach ($field['values'] as $key => $val)
						{
							$radio = etemplate::empty_cell('radio',$this->prefix.$lname);
							$radio['label'] = $val;
							$radio['size'] = $key;
							etemplate::add_child($input,$radio);
							unset($radio);
						}
						break;
					case 'text' :
					case 'textarea' :
					case '' :	// not set
						$field['len'] = $field['len'] ? $field['len'] : 20;
						if ($type != 'customfields-list')
						{
							if($field['rows'] <= 1)
							{//text
								list($max,$shown) = explode(',',$field['len']);
								$tmparray=array(
									'size' => intval($shown > 0 ? $shown : $max).','.intval($max),
									'maxlength'=>intval($max),
								);
								if (is_array($field['values']))
								{
									if (array_key_exists('readonly',$field['values']))
									{
										$tmparray['readonly']='readonly';
									}
								}
								$input =& etemplate::empty_cell('text',$this->prefix.$lname,$tmparray);
							}
							else
							{//textarea
								$tmparray=array(
									'size' => $field['rows'].($field['len'] >0 ? ','.(int)$field['len'] : '')
								);
								if (array_key_exists('readonly',$field['values']))
								{
									$tmparray['readonly']='readonly';
								}
								$input =& etemplate::empty_cell('textarea',$this->prefix.$lname,$tmparray);
							}
						} else {
							$input =& etemplate::empty_cell('label',$this->prefix.$lname, 
								array(
									'onclick'=>"return alert('".lang("custom fields").": ".
										$lname."=>".htmlentities(str_replace("\r","",str_replace("\n"," ",$value[$this->prefix.$lname]))) ."');",
								)
							);
						}
						break;
					case 'date':
					case 'date-time':
						$input =& etemplate::empty_cell($field['type'],$this->prefix.$lname,array(
							'size' => $field['len'] ? $field['len'] : ($field['type'] == 'date' ? 'Y-m-d' : 'Y-m-d H:i:s'),
						));
						break;
					case 'select-account':
						list($opts) = explode('=',$field['values'][0]);
						$input =& etemplate::empty_cell('select-account',$this->prefix.$lname,array(
							'size' => ($field['rows']>1?$field['rows']:lang('None')).','.$opts,
						));
						break;
					case 'button':  // button(s) to execute javascript (label=onclick) or textinputs (empty label, readonly with neg. length)
						$input =& etemplate::empty_cell('hbox');
						foreach($field['values'] as $label => $js)
						{
							if (!$label)    // display an readonly input
							{
								$widget =& etemplate::empty_cell('text',$this->prefix.$lname.$label,array(
									'size' => $field['len'] ? $field['len'] : 20,
									'readonly' => $field['len'] < 0,
									'onchange' => $js,
								));
							}
							else
							{
								if ($readonly) continue;        // dont display buttons if we're readonly
								$widget =& etemplate::empty_cell('buttononly',$this->prefix.$lname.$label,array(
									'label' => $label ? $label : lang('Submit'),
									'onclick' => $js,
									'no_lang' => True
								));
							}
							etemplate::add_child($input,$widget);
							unset($widget);
						}
						break;
					case 'link-entry':
					default :	// link-entry to given app
						$input =& etemplate::empty_cell('link-entry',$this->prefix.$lname,array(
							'size' => $field['type'] == 'link-entry' ? '' : $field['type'],
						));
				}
				$cell['data'][0]['c'.$n++] = $row_class.',top';
				
				if (!is_null($input))
				{
					if ($readonly) $input['readonly'] = true;

					if ($cell['needed']) $input['needed'] = $cell['needed'];
					
					if (!empty($field['help']) && $row_class != 'th')
					{
						$input['help'] = $field['help'];
						$input['no_lang'] = substr(lang($help),-1) == '*' ? 2 : 0;
					}
					if ($singlefield)	// a single field, can & need to be returned instead of the cell (no grid)
					{
						$cell = $input;
						if ($type == 'customfields') $cell['label'] = $field['label'];
						return true;
					}
					etemplate::add_child($cell,$input);
					unset($input);
				}
				unset($label);
			   }
			}
			if ($type != 'customfields-list')
			{
				$cell['data'][0]['A'] = '100';
			}
			list($span,$class) = explode(',',$cell['span']);	// msie (at least 5.5) shows nothing with div overflow=auto
			// we dont want to use up the full space for the table created, so we skip the line below
			//$cell['size'] = '100%,100%,0,'.$class.','.(in_array($type,array('customfields-list','customfields-no-label'))?'0,0':',').(html::$user_agent != 'msie' ? ',auto' : '');

			return True;	// extra Label is ok
		}

		/**
		 * Read the options of a 'select' or 'radio' custom field from a file
		 *
		 * For security reasons that file has to be relative to the eGW root
		 * (to not use that feature to explore arbitrary files on the server)
		 * and it has to be a php file setting one variable called options,
		 * (to not display it to anonymously by the webserver).
		 * The $options var has to be an array with value => label pairs, eg:
		 *
		 * <?php
		 * $options = array(
		 *      'a' => 'Option A',
		 *      'b' => 'Option B',
		 *      'c' => 'Option C',
		 * );
		 *
		 * @param string $file file name inside the eGW server root, either relative to it or absolute
		 * @return array in case of an error we return a single option with the message
		 */
		function _get_options_from_file($file)
		{
			if (!($path = realpath($file{0} == '/' ? $file : EGW_SERVER_ROOT.'/'.$file)) ||	// file does not exist
				substr($path,0,strlen(EGW_SERVER_ROOT)+1) != EGW_SERVER_ROOT.'/' ||	// we are NOT inside the eGW root
				basename($path,'.php').'.php' != basename($path) ||	// extension is NOT .php
				basename($path) == 'header.inc.php')	// dont allow to include our header again
			{
				return array(lang("'%1' is no php file in the eGW server root (%2)!".': '.$path,$file,EGW_SERVER_ROOT));
			}
			include($path);

			return $options;
		}
	}