<?php
	/**************************************************************************\
	* eGroupWare - eTemplates - Editor                                         *
	* http://www.eGroupWare.org                                                *
	* Written by Ralf Becker <RalfBecker@outdoor-training.de>                  *
	* --------------------------------------------                             *
	*  This program is free software; you can redistribute it and/or modify it *
	*  under the terms of the GNU General Public License as published by the   *
	*  Free Software Foundation; either version 2 of the License, or (at your  *
	*  option) any later version.                                              *
	\**************************************************************************/

	/* $Id$ */

	/**
	 * template editor of the eTemplate package
	 *
	 * @package etemplate
	 * @subpackage tools
	 * @author RalfBecker-AT-outdoor-training.de
	 * @license GPL
	 */
	class editor
	{
		var $debug;
		var $etemplate; // eTemplate we edit
		var $editor;	// editor eTemplate
		var $aligns = array(
			'' => 'Left',
			'right' => 'Right',
			'center' => 'Center',
		);
		var $valigns = array(
			'' => 'Middle',
			'top' => 'Top',
			'bottom' => 'Bottom',
			'baseline' => 'Baseline',
		);
		var $edit_menu = array(
			'delete' => 'delete',
			'cut' => 'cut',
			'copy' => 'copy',
			'paste' => 'paste',
			'swap' => 'swap',
		);
		var $row_menu = array(
			'row_delete' => 'delete this row',
			'row_insert_above' => 'insert a row above',
			'row_insert_below' => 'insert a row below',
			'row_swap_next' => 'swap with next row',
		);
		var $column_menu = array(
			'column_delete' => 'delete this column',
			'column_insert_before' => 'insert a column before',
			'column_insert_behind' => 'insert a column behind',
			'column_swap_next' => 'swap with next column',
		);
		var $box_menu = array(
			'box_insert_before' => 'insert a widget before',
			'box_insert_behind' => 'insert a widget behind',
			'box_swap_next' => 'swap widget with next one',
		);
		var $options = array(
			'width',
			'height',
			'border',
			'class',
			'spacing',
			'padding',
			'overflow'
		);
		var $overflows = array(
			'' => 'visible',
			'hidden' => 'hidden',
			'scroll' => 'scroll',
			'auto' => 'auto'
		);
		var $onclick_types = array(
			''        => 'nothing',
			'confirm' => 'confirm',
			'popup'   => 'popup',
			'custom'  => 'custom',
		);
		var $onchange_types = array(
			''        => 'nothing',
			'submit'  => 'submit form',
			'custom'  => 'custom',
		);
		var $extensions = '';

		var $public_functions = array
		(
			'edit'         => True,
			'widget'       => True,
			'styles'       => True,
		);

		function editor()
		{
			$this->etemplate =& CreateObject('etemplate.etemplate');

			$this->extensions = $GLOBALS['egw']->session->appsession('extensions','etemplate');
		}

		function export_xml(&$xml,&$xml_label)
		{
			$name = $this->etemplate->name;
			$template = $this->etemplate->template != '' ? $this->etemplate->template : 'default';

			list($app) = explode('.',$name);

			if (!is_object($this->etemplate->xul_io))
			{
				$this->etemplate->xul_io =& CreateObject('etemplate.xul_io');
			}
			$xml = $this->etemplate->xul_io->export($this->etemplate);

			$dir = EGW_SERVER_ROOT . "/$app/templates/$template";
			if (($create_it = !is_dir($dir)))
			{
				$dir = EGW_SERVER_ROOT . "/$app/templates";
			}
			if (!is_writeable($dir))
			{
				return lang("Error: webserver is not allowed to write into '%1' !!!",$dir);
			}
			if ($create_it)
			{
				mkdir($dir .= "/$template");
			}
			$file = $dir . '/' . substr($name,strlen($app)+1);
			if ($this->etemplate->lang)
			{
				$file .= '.' . $this->etemplate->lang;
			}
			$old_file = $file . '.old.xet';
			$file .= '.xet';
			if (file_exists($file))
			{
				if (file_exists($old_file))
				{
					unlink($old_file);
				}
				rename($file,$old_file);
			}

			if (!($f = fopen($xml_label=$file,'w')))
			{
				return 0;
			}
			if (!is_object($this->etemplate->xul_io))
			{
				$this->etemplate->xul_io =& CreateObject('etemplate.xul_io');
			}
			$xml = $this->etemplate->xul_io->export($this->etemplate);

			fwrite($f,$xml);
			fclose($f);

			return lang("eTemplate '%1' written to '%2'",$name,$file);
		}

		function import_xml($file,&$xml)
		{
			if ($file == 'none' || $file == '' || !($f = fopen($file,'r')))
			{
				return lang('no filename given or selected via Browse...')."file='$file'";
			}
			$xml = fread ($f, filesize ($file));
			fclose($f);

			if (!is_object($this->etemplate->xul_io))
			{
				$this->etemplate->xul_io =& CreateObject('etemplate.xul_io');
			}
			$imported = $this->etemplate->xul_io->import($this->etemplate,$xml);
			$this->etemplate->modified = @filemtime($f);
			$this->etemplate->modified_set = 'xul-import';

			if (is_array($imported))
			{
				if (count($imported) == 1)
				{
					$imported = lang("eTemplate '%1' imported, use Save to put it in the database",$this->etemplate->name);
				}
				else
				{
					$imported = lang('File contains more than one eTemplate, last one is shown !!!');
				}
			}
			return $imported;
		}

		function list_result($cont='',$msg='')
		{
			if ($this->debug)
			{
				echo "<p>etemplate.editor.list_result: cont="; _debug_array($cont);
			}
			if (!$cont || !is_array($cont))
			{
				return $this->edit('error');
			}
			if (!isset($cont['result']) || isset($cont['search']))
			{
				$cont['result'] = $this->etemplate->search($cont);
			}
			$result = $cont['result'];

			if (isset($cont['delete']))
			{
				list($delete) = each($cont['delete']);
				$this->etemplate->init($result[$delete-1]);
				if ($this->etemplate->delete())
				{
					$msg = lang('Template deleted');
					unset($result[$delete-1]);
					$result = array_values($result);
				}
				else
				{
					$msg = lang('Error: Template not found !!!');
				}
			}
			if (isset($cont['delete_selected']))
			{
				foreach($cont['selected'] as $row => $sel)
				{
					if ($sel)
					{
						$this->etemplate->init($result[$row-1]);
						if ($this->etemplate->delete())
						{
							unset($result[$row-1]);
							++$n;
						}
					}
				}
				if ($n)
				{
					$msg = lang('%1 eTemplates deleted',$n);
				}
				unset($cont['selected']);
				unset($cont['delete_selected']);
				$result = array_values($result);
			}
			if (isset($cont['read']))
			{
				list($read) = each($cont['read']);
				$this->etemplate->read($result[$read-1]);
				$this->edit();
				return;
			}
			if (!$msg)
			{
				$msg = lang('%1 eTemplates found',count($result));
			}
			unset($cont['result']);
			if (!isset($cont['name']))
			{
				$cont += $this->etemplate->as_array();
			}
			$content = $cont + array('msg' => $msg);

			reset($result);
			for ($row=1; list(,$param) = each($result); ++$row)
			{
				$content[$row] = $param;
			}
			$list_result =& new etemplate('etemplate.editor.list_result');
			$GLOBALS['egw_info']['flags']['app_header'] = lang('Editable Templates - Search');
			$list_result->exec('etemplate.editor.list_result',$content,'','',array(
				'result' => $result,
			),'');
		}

		/**
		 * new eTemplate editor, which edits widgets in a popup
		 *
		 * @param array $content content from the process_exec call
		 * @param string $msg message to show
		 */
		function edit($content=null,$msg = '')
		{
			if ($this->debug)
			{
				echo "<p>etemplate.editor.show: content="; _debug_array($content);
			}
			if (!is_array($content)) $content = array();
			$preserv = array();

			if ($content['import_xml'])
			{
				$msg .= $this->import_xml($content['file']['tmp_name'],$xml);
				//$this->etemplate->echo_tmpl();
				$xml_label = $content['file']['name'];
				$preserv['import'] = $this->etemplate->as_array(1);
			}
			elseif (is_array($content['import']) && !$content['read'])	// imported not yet saved tmpl
			{
				$this->etemplate->init($content['import']);
				$preserv['import'] = $content['import'];
			}
			if ($content['save'])
			{
				if (!is_array($content['import'])) $this->etemplate->read($content['old_keys']);

				if (!$this->etemplate->modified_set || !$this->etemplate->modified)
				{
					$this->etemplate->modified = time();
				}
				$ok = $this->etemplate->save(trim($content['name']),trim($content['template']),trim($content['lang']),(int) $content['group'],trim($content['version']));
				$msg = $ok ? lang('Template saved') : lang('Error: while saving !!!');
				if ($ok) unset($preserv['import']);
			}
			elseif (isset($_GET['name']) || isset($content['name']))
			{
				if ($_GET['name'])
				{
					foreach($this->etemplate->db_key_cols as $var)
					{
						$content[$var] = $_GET[$var];
					}
				}
				if ($content['version'] != '')
				{
					$save_version = $content['version'];
					unset($content['version']);
					$this->etemplate->read($content);
					$newest_version = $this->etemplate->version;
					$content['version'] = $save_version;
				}
				if (!$this->etemplate->read($content))
				{
					if (isset($content['name']))
					{
						$version_backup = $content['version'];
						$content['version'] = '';	// trying it without version
						if ($this->etemplate->read($content))
						{
							$msg = lang('only an other Version found !!!');
						}
						else
						{
							$result = $this->etemplate->search($content);
							if (count($result) > 1)
							{
								return $this->list_result(array('result' => $result));
							}
							elseif (!count($result) || !$this->etemplate->read($result[0]))
							{
								$msg = lang('Error: Template not found !!!');
								$this->etemplate->version = $content['version'] = $version_backup;
							}
							elseif ($content['name'] == $result[0]['name'])
							{
								$msg = lang('only an other Version found !!!');
							}
						}
					}
					else
					{
						$msg = lang('Error: Template not found !!!');
					}
				}
				elseif ($newest_version != '' && $this->etemplate->version != $newest_version)
				{
					$link = $this->etemplate->as_array(-1);
					$link['menuaction'] = 'etemplate.editor.edit';
					$link['version'] = $newest_version;
					$msg = lang("newer version '%1' exists !!!",$this->etemplate->html->a_href($newest_version,$link));
				}
			}
			if (!is_array($this->extensions))
			{
				if (($extensions = $this->scan_for_extensions()))
				{
					$msg .= lang('Extensions loaded:') . ' ' . $extensions;
					$msg_ext_loaded = True;
				}
			}
			list($app) = explode('.',$this->etemplate->name);
			if ($app && $app != 'etemplate')
			{
				$GLOBALS['egw']->translation->add_app($app);	// load translations for app

				if (($extensions = $this->scan_for_extensions($app)))
				{
					$msg .= (!$msg_ext_loaded?lang('Extensions loaded:').' ':', ') . $extensions;
				}
			}
			if (!$msg && $content['delete'])
			{
				if (!$content['version'] && $this->etemplate->version)
				{
					$this->etemplate->version = '';	// else the newest would get deleted and not the one without version
				}
				$ok = $this->etemplate->delete();
				$msg = $ok ? lang('Template deleted') : lang('Error: Template not found !!!');
				$preserv['import'] = $this->etemplate->as_array(1);	// that way the content can be saved again
			}
			elseif ($content['dump'])
			{
				if (empty($app) || !@is_dir(EGW_SERVER_ROOT.'/'.$app))
				{
					$msg .= lang('Application name needed to write a langfile or dump the eTemplates !!!');
				}
				else
				{
					$msg .= $this->etemplate->dump4setup($app);
				}
			}
			elseif ($content['langfile'])
			{
				if (empty($app) || !@is_dir(EGW_SERVER_ROOT.'/'.$app))
				{
					$msg = lang('Application name needed to write a langfile or dump the eTemplates !!!');
				}
				else
				{
					$additional = array();
					if ($app == 'etemplate')
					{
						$additional = $this->etemplate->types + $this->extensions + $this->aligns + $this->valigns +
							$this->edit_menu + $this->box_menu + $this->row_menu + $this->column_menu + $this->onclick_types + $this->onchange_types;
					}
					else	// try to call the writeLangFile function of the app's ui-layer
					{
						foreach(array('ui'.$name,'ui',$name,'bo'.$name) as $class)
						{
							if (file_exists(EGW_INCLUDE_ROOT.'/'.$name.'/inc/class.'.$class.'.inc.php') &&
								($ui =& CreateObject($name.'.'.$class)) && is_object($ui))
							{
								break;
							}
						}
						if (is_object($ui) && @$ui->public_functions['writeLangFile'])
						{
							$msg = "$class::writeLangFile: ".$ui->writeLangFile();
						}
						unset($ui);
					}
					//if (empty($msg))
					{
						$msg = $this->etemplate->writeLangFile($app,'en',$additional);
					}
				}
			}
			elseif ($content['export_xml'])
			{
				$msg .= $this->export_xml($xml,$xml_label);
			}
			$new_content = $this->etemplate->as_array() + array(
				'msg' => $msg,
				'xml_label' => $xml_label,
				'xml' => $xml ? '<pre>'.$this->etemplate->html->htmlspecialchars($xml)."</pre>\n" : '',
			);

			$editor =& new etemplate('etemplate.editor.new');
			if (!$msg && isset($content['values']) && !isset($content['vals']))
			{
				$r = 1;
				foreach((array)$content['cont'] as $key => $val)
				{
					$vals["@$r"] = $key;
					$vals["A$r"] = is_array($val) ? htmlspecialchars(serialize($val)).'#SeR#' : $val;
					++$r;
				}
				$editor->data[$editor->rows]['A']['name'] = 'etemplate.editor.values';
				$editor->data[$editor->rows]['A']['size'] = 'vals';
				$new_content['vals'] = $vals;
			}
			else
			{
				// set onclick handler
				$this->etemplate->onclick_handler = "edit_widget('%p');";
				// setting the javascript via the content, allows looping too
				$new_content['onclick'] = '
				<script language="javascript">
					function edit_widget(path)
					{
						var url = "'.$GLOBALS['egw']->link('/index.php',$this->etemplate->as_array(-1)+array(
							'menuaction' => 'etemplate.editor.widget',
						)).'";
						url = url.replace(/index.php\\?/,"index.php?path="+path+"&");
						window.open(url,"etemplate_editor_widget","dependent=yes,width=640,height=480,location=no,menubar=no,toolbar=no,scrollbars=yes,status=yes");
					}
				</script>';
				if ($app != 'etemplate' && file_exists(EGW_SERVER_ROOT.'/'.$app.'/templates/default/app.css'))
				{
					$new_content['onclick'] .= $editor->html->style('@import url('.$GLOBALS['egw_info']['server']['webserver_url'].'/'.$app.'/templates/default/app.css);');
				}
				$editor->data[$editor->rows]['A']['obj'] = &$this->etemplate;
				$vals = $content['vals'];
				$olds = $content['olds'];

				for ($r = 1; isset($vals["A$r"]); ++$r)
				{
					$new_content['cont'][$olds["@$r"]] = substr($vals["A$r"],-5)=='#SeR#' ?
						unserialize(substr($vals["A$r"],0,-5)) : $vals["A$r"];
				}
			}
			$preserv['olds'] = $vals;
			$preserv['old_keys'] = $this->etemplate->as_array(-1);	// in case we do a save as

			$GLOBALS['egw_info']['flags']['app_header'] = lang('Editable Templates - Show Template');
			$editor->exec('etemplate.editor.edit',$new_content,array(),'',$preserv,0,'/^cont/');
		}

		/**
		 * initialises the children arrays for the new widget type, converts boxes <--> grids
		 *
		 * @internal 
		 * @param array &$widget reference to the new widget data
		 * @param array $old the old widget data
		 */
		function change_widget_type(&$widget,$old)
		{
			//echo "<p>editor::change_widget_type($widget[type]=$old[type])</p>\n";
			$old_type = $old['type'];
			$old_had_children = isset($this->etemplate->widgets_with_children[$old_type]);

			if (!isset($this->etemplate->widgets_with_children[$widget['type']]) ||
				($old_type == 'grid') == ($widget['type'] == 'grid'))
			{
				if ($this->etemplate->widgets_with_children[$widget['type']] == 'box')	// box
				{
					if ((int) $widget['size'] < 1)	// min. 1 child
					{
						list(,$options) = explode(',',$widget['size'],2);
						$widget['size'] = '1'.($options ? ','.$options : '');
					}
					// create the needed cells, if they dont exist
					for ($n = 1; $n <= (int) $widget['size']; ++$n)
					{
						if (!is_array($widget[$n])) $widget[$n] = $n == 1 ? $old : soetemplate::empty_cell();
					}
					unset($widget['onclick']);	// not valid for a box
				}
				return; // no change necessary, eg. between different box-types
			}
			switch ($this->etemplate->widgets_with_children[$widget['type']])
			{
				case 'grid':
					$widget['data'] = array(array());
					$widget['cols'] = $widget['rows'] = 0;
	
					if ($old_had_children)	// box --> grid: hbox --> 1 row, other boxes --> 1 column
					{
						list($num) = explode(',',$old['size']);
						for ($n = 1; is_array($old[$n]) && $n <= $num; ++$n)
						{
							$new_line = null;
							if ($old_type != 'hbox') soetemplate::add_child($widget,$new_line);
							soetemplate::add_child($widget,$old[$n]);
							unset($widget[$n]);
						}
						$widget['size'] = '';
					}
					else	// 1 row with 1 column/child
					{
						soetemplate::add_child($widget,$cell=soetemplate::empty_cell());
					}
					break;

				case 'box':
					$widget['size'] = 0;
					
					if ($old_type == 'grid')
					{
						if (preg_match('/,(vertical|horizontal)/',$widget['size'],$matches))
						{
							$orient = $matches[1];
						}
						else
						{
							$orient = $widget['type'] == 'hbox' ? 'horizontal' : 'vertical';
						}
						if ($orient == 'horizontal')	// ==> use first row
						{
							$row =& $old['data'][1];
							for ($n = 0; $n < $old['cols']; ++$n)
							{
								$cell =& $row[soetemplate::num2chrs($n)];
								soetemplate::add_child($widget,$cell);
								list($span) = (int)explode(',',$cell['span']);
								if ($span == 'all') break;
								while ($span-- > 1) ++$n;
							}
						}
						else	// vertical ==> use 1 column
						{
							for ($n = 1; $n <= $old['rows']; ++$n)
							{
								soetemplate::add_child($widget,$old['data'][$n][soetemplate::num2chrs(0)]);
							}
						}
					}
					if (!$widget['size']) // minimum one child
					{
						soetemplate::add_child($widget,soetemplate::empty_cell());
					}
					break;
			}
			//_debug_array($widget);
		}
		
		/**
		 * returns array with path => type pairs for each parent of $path
		 *
		 * @param string $path path to the widget not the parent!
		 * @return array 
		 */
		function path_components($path)
		{
			$path_parts = explode('/',$path);
			array_pop($path_parts);		// removed the widget itself
			array_shift($path_parts);	// removed the leading empty string

			$components = array();
			$part_path = '';
			foreach($path_parts as $part)
			{
				$part_path .= '/'.$part;
				$parent =& $this->etemplate->get_widget_by_path($part_path);
				$components[$part_path] = $parent['type'];
			}
			return $components;
		}

		/**
		 * returns array with path => type pairs for each parent of $path
		 *
		 * @param array $parent the parent
		 * @param string $child_id id of child
		 * @param string $parent_path path of the parent
		 * @return array with keys left, right, up and down and their pathes set (if applicable)
		 */
		function parent_navigation($parent,$parent_path,$child_id,$widget)
		{
			if ($parent['type'] == 'grid' && preg_match('/^([0-9]+)([A-Z]+)$/',$child_id,$matches))
			{
				list(,$r,$c) = $matches;
				// find the column-number (base 0) for $c (A, B, C, ...)
				for($col = 0; soetemplate::num2chrs($col) != $c && $col < 100; ++$col) ;
				
				if ($col > 0) $left = $parent_path.'/'.$r.soetemplate::num2chrs($col-1);
				
				if ($col < $parent['cols']-1) $right = $parent_path.'/'.$r.soetemplate::num2chrs($col+1);
				
				if ($r > 1) $up = $parent_path.'/'.($r-1).$c;
				
				if ($r < $parent['rows']) $down = $parent_path.'/'.($r+1).$c;
			}
			elseif ($parent['type']) // any box
			{
				if ($child_id > 1) $previous = $parent_path.'/'.($child_id-1);
				
				if ($child_id < (int) $parent['size'])  $next = $parent_path.'/'.($child_id+1);
			}
			else // template
			{
				if ($child_id > 0) $previous = '/'.($child_id-1);
				
				if ($child_id < count($this->etemplate->children)-1)  $next = '/'.($child_id+1);
			}
			if ($widget['type'] == 'grid')
			{
				$in = $parent_path.'/'.$child_id.'/1A';
			}
			elseif (isset($this->etemplate->widgets_with_children[$widget['type']]) && $widget['type'] != 'template')
			{
				if ($widget['type'])	// box
				{
					$in = $parent_path.'/'.$child_id.'/1';
				}
				else
				{
					$in = '/0';
				}
			}
			$navi = array();
			foreach(array('left'=>'&larr;','up'=>'&nbsp;&uarr;&nbsp;','down'=>'&nbsp;&darr;&nbsp;',
				'right'=>'&rarr;','previous'=>'&larr;&uarr;','next'=>'&darr;&rarr;','in'=>'&times;') as $var => $dir)
			{
				if ($$var) $navi[$$var] = $dir;
			}
			return $navi;
		}

		/**
		 * functions of the edit-menu: paste, swap, cut, delete, copy
		 *
		 * @internal 
		 * @param string &$action row_delete, row_insert_above, row_insert_below, row_swap, row_prefs
		 * @param array &$parent referece to the parent
		 * @param array &$content reference to the content-array
		 * @param string $child_id id of a cell
		 * @return string msg to display
		 */
		function edit_actions(&$action,&$parent,&$content,$child_id)
		{
			switch ($action)
			{
				case 'paste':
				case 'swap':
					$clipboard = $GLOBALS['egw']->session->appsession('clipboard','etemplate');
					if (!is_array($clipboard))
					{
						return lang('nothing in clipboard to paste !!!');
					}
					if ($action == 'swap')
					{
						$GLOBALS['egw']->session->appsession('clipboard','etemplate',$content['cell']);
					}
					$content['cell'] = $clipboard;
					break;

				case 'copy':
				case 'cut':
					$GLOBALS['egw']->session->appsession('clipboard','etemplate',$content['cell']);
					if ($action != 'cut')
					{
						return lang('widget copied into clipboard');
					}
					// fall-through
				case 'delete':
					if ($parent['type'] != 'grid')
					{
						// delete widget from parent
						if ($parent['type'])	// box
						{
							list($num,$options) = explode(',',$parent['size'],2);
							if ($num <= 1)	// cant delete last child --> only empty it
							{
								$parent[$num=1] = soetemplate::empty_cell();
							}
							else
							{
								for($n = $child_id; $n < $num; ++$n)
								{
									$parent[$n] = $parent[1+$n];
								}
								unset($parent[$num--]);
							}
							$parent['size'] = $num . ($options ? ','.$options : '');
						}
						else	// template itself
						{
							if (count($this->etemplate->children) <= 1)	// cant delete last child
							{
								$this->etemplate->children[0] = soetemplate::empty_cell();
							}
							else
							{
								unset($parent[$child_id]);
								$this->etemplate->children = array_values($this->etemplate->children);
							}
						}
						$action = 'save-no-merge';
					}
					else
					{
						$content['cell'] = soetemplate::empty_cell();
						return lang('cant delete a single widget from a grid !!!');
					}
					break;
			}
			return '';
		}

		/**
		 * functions of the box-menu: insert-before, -behind und swap
		 *
		 * @internal 
		 * @param string &$action row_delete, row_insert_above, row_insert_below, row_swap, row_prefs
		 * @param array &$parent referece to the parent
		 * @param array &$content reference to the content-array
		 * @param string &$child_id id of a cell, may change to the next cell if inserting behind
		 * @param string $parent_path path of parent
		 * @return string msg to display
		 */
		function box_actions(&$action,&$parent,&$content,&$child_id,$parent_path)
		{
			switch ($action)
			{
				case 'box_insert_before':
				case 'box_insert_behind':
					$n = $child_id + (int)($action == 'box_insert_behind');
					if (!$parent['type'])	// template
					{
						$num = count($parent)-1;	// 0..count()-1
					}
					else // boxes
					{
						list($num,$options) = explode(',',$parent['size'],2);
					}
					for($i = $num; $i >= $n; --$i)
					{
						$parent[1+$i] = $parent[$i];
					}
					$parent[$n] = $content['cell'] = soetemplate::empty_cell();
					$child_id = $n;
					if ($parent['type']) $parent['size'] = (1+$num) . ($options ? ','.$options : '');
					break;
					
				case 'box_swap_next':
					if (!$parent['type'])	// template
					{
						$num = count($parent)-1;	// 0..count()-1
					}
					else // boxes
					{
						list($num) = explode(',',$parent['size'],2);
					}
					if ($child_id == $num)	// if on last cell, swap with the one before
					{
						$this->swap($parent[$child_id],$parent[$child_id-1]);
						--$child_id;
					}
					else
					{
						$this->swap($parent[$child_id],$parent[$child_id+1]);
						++$child_id;
					}
					break;
			}
			$action = 'apply-no-merge';

			return '';
		}
						
		/**
		 * functions of the row-menu: insert, deleting & swaping of rows
		 *
		 * @internal 
		 * @param string &$action row_delete, row_insert_above, row_insert_below, row_swap_next, row_prefs
		 * @param array &$grid grid
		 * @param string $child_id id of a cell
		 * @return string msg to display
		 */
		function row_actions(&$action,&$grid,$child_id)
		{
			$data =& $grid['data'];
			$rows =& $grid['rows'];
			$cols =& $grid['cols'];
			$opts =& $data[0];

			if (preg_match('/^([0-9]+)([A-Z]+)$/',$child_id,$matches)) list(,$r,$c) = $matches;

			if (!$c || !$r || $r > $rows) return "wrong child_id='$child_id' => r='$r', c='$c'";

			switch($action)
			{
				case 'row_swap_next':
					if ($r > $rows-1)
					{
						if ($r != $rows) return lang('no row to swap with !!!');
						--$r;	// in last row swap with row above
					}
					$this->swap($data[$r],$data[1+$r]);
					$this->swap($opts['c'.$r],$opts['c'.(1+$r)]);
					$this->swap($opts['h'.$r],$opts['h'.(1+$r)]);
					break;
					
				case 'row_delete':
					if ($rows <= 1)	// one row only => delete whole grid
					{
						return lang('cant delete the only row in a grid !!!');
						// todo: delete whole grid instead
					}
					for($i = $r; $i < $rows; ++$i)
					{
						$opts['c'.$i] = $opts['c'.(1+$i)]; 
						$opts['h'.$i] = $opts['h'.(1+$i)]; 
						$data[$i] = $data[1+$i];
					}
					unset($opts['c'.$rows]);
					unset($opts['h'.$rows]);
					unset($data[$rows--]);
					break;
					
				case 'row_insert_above':
					--$r;
					// fall-through
				case 'row_insert_below':
					//echo "row_insert_below($r) rows=$rows, cols=$cols"; _debug_array($grid);
					// move height + class options of rows
					for($i = $rows; $i > $r; --$i)
					{
						echo ($i+1)."=$i<br>\n";
						$data[1+$i] = $data[$i]; 
						$opts['c'.(1+$i)] = $opts['c'.$i]; 
						$opts['h'.(1+$i)] = $opts['h'.$i]; 
					}
					for($i = 0; $i < $cols; ++$i)
					{
						echo (1+$r).":$i=".soetemplate::num2chrs($i)."=empty_cell()<br>\n";
						$data[1+$r][soetemplate::num2chrs($i)] = soetemplate::empty_cell();
					}
					$opts['c'.(1+$r)] = $opts['h'.(1+$r)] = '';
					++$rows;
					//_debug_array($grid); return '';
					break;
			}
			$action = 'save-no-merge';

			return '';
		}

		/**
		 * functions of the column-menu: insert, deleting & swaping of columns
		 *
		 * @internal 
		 * @param string &$action column_delete, column_insert_before, column_insert_behind, column_swap_next, column_prefs
		 * @param array &$grid grid
		 * @param string $child_id id of a cell
		 * @return string msg to display
		 */
		function column_actions(&$action,&$grid,$child_id)
		{
			$data =& $grid['data'];
			$rows =& $grid['rows'];
			$cols =& $grid['cols'];
			$opts =& $data[0];
			
			if (preg_match('/^([0-9]+)([A-Z]+)$/',$child_id,$matches)) list(,$r,$c) = $matches;
			// find the column-number (base 0) for $c (A, B, C, ...)
			for($col = 0; soetemplate::num2chrs($col) != $c && $col < 100; ++$col) ;

			if (!$c || !$r || $r > $rows || $col >= $cols) return "wrong child_id='$child_id' => r='$r', c='$c', col=$col";

			switch($action)
			{
				case 'column_swap_next':
					if ($col >= $cols-1)
					{
						if ($col != $cols-1) return lang('no column to swap with !!!');
						$c = soetemplate::num2chrs(--$col); // in last column swap with the one before
					}
					$c_next = soetemplate::num2chrs(1+$col);
					for($row = 1; $row <= $rows; ++$row)
					{
						$this->swap($data[$row][$c],$data[$row][$c_next]);
					}
					$this->swap($opts[$c],$opts[$c_next]);
					//_debug_array($grid); return '';
					break;
					
				case 'column_insert_behind':
					++$col;
				case 'column_insert_before':
					//echo "<p>column_insert_before: col=$col</p>\n";
					// $col is where the new column data goes
					for ($row = 1; $row <= $rows; ++$row)
					{
						for ($i = $cols; $i > $col; --$i)
						{
							$data[$row][soetemplate::num2chrs($i)] = $data[$row][soetemplate::num2chrs($i-1)];
						}
						$data[$row][soetemplate::num2chrs($col)] = soetemplate::empty_cell();
					}
					for ($i = $cols; $i > $col; --$i)
					{
						$opts[soetemplate::num2chrs($i)] = $opts[soetemplate::num2chrs($i-1)];
					}
					unset($opts[soetemplate::num2chrs($col)]);
					++$cols;
					//_debug_array($grid); return '';
					break;
					
				case 'column_delete':
					if ($cols <= 1)
					{
						return lang('cant delete the only column of a grid !!!');
						// todo: delete whole grid instead
					}
					for ($row = 1; $row <= $rows; ++$row)
					{
						for ($i = $col; $i < $cols-1; ++$i)
						{
							$data[$row][soetemplate::num2chrs($i)] = $data[$row][soetemplate::num2chrs($i+1)];
						}
						unset($data[$row][soetemplate::num2chrs($cols-1)]);
					}
					for ($i = $col; $i < $cols-1; ++$i)
					{
						$opts[soetemplate::num2chrs($i)] = $opts[soetemplate::num2chrs($i+1)];
					}
					unset($opts[soetemplate::num2chrs(--$cols)]);
					break;		
			}
			$action = 'save-no-merge';

			return '';
		}

		/**
		 * converts onclick selectbox and onclick text to one javascript call
		 *
		 * @param array &$widget reference into the widget-tree
		 * @param array &$cell_content cell array in content
		 * @param boolean $widget2content=true copy from widget to content or other direction
		 */
		function fix_set_onclick(&$widget,&$cell_content,$widget2content=true)
		{
			if ($widget2content)
			{
				if (preg_match('/^return confirm\(["\']{1}?(.*)["\']{1}\);?$/',$widget['onclick'],$matches))
				{
					$cell_content['onclick'] = $matches[1];
					$cell_content['onclick_type'] = 'confirm';
				}
				elseif (preg_match('/^window.open\(egw::link\(\'\/index.php\',\'([^\']+)\'\)(\+values2url\(.*\))?,\'([^\']+)\',\'dependent=yes,width=([0-9]+),height=([0-9]+),scrollbars=yes,status=yes\'\); return false;$/',$widget['onclick'],$matches))
				{
					$cell_content['onclick'] = $matches[1].($matches[2] ? str_replace('+values2url(this.form,','&values2url(',$matches[2]) : '');
					if ($matches[3] != '_blank')
					{
						$cell_content['onclick'] .= ','.$matches[3];
					}
					if ($matches[4] != '600')
					{
						$cell_content['onclick'] .= ($matches[3]=='_blank' ? ',':'').','.$matches[4];
					}
					if ($matches[5] != '450')
					{
						$cell_content['onclick'] .= ($matches[4]=='600' ? ','.($matches[3]=='_blank' ? ',':'') : '').
							','.$matches[5];
					}
					$cell_content['onclick_type'] = 'popup';
				}
				else
				{
					$cell_content['onclick_type'] = !$widget['onclick'] ? '' : 'custom';
				}
			}
			else	// content --> widget
			{
				if (preg_match('/^return confirm\(["\']{1}?(.*)["\']{1}\);?$/',$cell_content['onclick'],$matches) ||
					$cell_content['onclick_type'] == 'confirm' && $cell_content['onclick'])
				{
					$cell_content['onclick_type'] = 'confirm';
					$cell_content['onclick'] = is_array($matches) && $matches[1] ? $matches[1] : $cell_content['onclick'];
					$widget['onclick'] = "return confirm('".$cell_content['onclick']."');";
				}
				elseif ($cell_content['onclick_type'] == 'popup' && $cell_content['onclick'])
				{
					// eg: menuaction=calendar.uiforms.freetimesearch&values2url('start,end,participants'),ft_search,700,500
					if  (($values2url = preg_match('/&values2url\((\'[^\']+\')\)/',$cell_content['onclick'],$matches)))
					{
						$values2url = $matches[1];
						$onclick = str_replace('&values2url('.$values2url.')','',$cell_content['onclick']);
					}
					list($get,$target,$width,$height) = explode(',',$values2url ? $onclick : $cell_content['onclick']);
					if (!$target) $target = '_blank';
					if (!$width)  $width  = 600;
					if (!$height) $height = 450;
					$widget['onclick'] = "window.open(egw::link('/index.php','$get')".($values2url ? "+values2url(this.form,$values2url)" : '').
						",'$target','dependent=yes,width=$width,height=$height,scrollbars=yes,status=yes'); return false;";
				}
				elseif ($cell_content['onclick'])
				{
					$wiget['onclick'] = $cell_content['onclick'];
					$cell_content['onclick_type'] = 'custom';
				}
				else
				{
					$cell_content['onclick_type'] = '';
				}
				unset($widget['onclick_type']);
			}
			//echo "<p>editor::fix_set_onclick(,,widget2content=".(int)$widget2content.") widget="; _debug_array($widget); echo "content="; _debug_array($cell_content);
		}

		/**
		 * converts onchange selectbox and onchange text to one javascript call
		 *
		 * @param array &$widget reference into the widget-tree
		 * @param array &$cell_content cell array in content
		 * @param boolean $widget2content=true copy from widget to content or other direction
		 */
		function fix_set_onchange(&$widget,&$cell_content,$widget2content=true)
		{
			if ($widget2content)
			{
				if (!$widget['onchange'])
				{
					$cell_content['onchange_type'] = $cell_content['onchange'] = '';
				}
				elseif ($widget['onchange'] == 1 || $widget['onchange'] == 'this.form.submit();')
				{
					$cell_content['onchange'] = '';
					$cell_content['onchange_type'] = 'submit';
				}
				else
				{
					$cell_content['onchange_type'] = 'custom';
				}
			}
			else	// content --> widget
			{
				if ($cell_content['onchange_type'] == 'submit' || $cell_content['onchange'] == 'this.form.submit();')
				{
					$widget['onchange'] = 1;
				}
				elseif(!$cell_content['onchange'])
				{
					$widget['onchange'] = 0;
				}
				unset($widget['onchange_type']);
			}
			//echo "<p>editor::fix_set_onchange(,,widget2content=".(int)$widget2content.") widget="; _debug_array($widget); echo "content="; _debug_array($cell_content);
		}

		/**
		 * edit dialog for a widget
		 *
		 * @param array $content the submitted content of the etemplate::exec function, default null
		 * @param string $msg msg to display, default ''
		 */
		function widget($content=null,$msg='')
		{
			if (is_array($content))
			{
				$path = $content['goto'] ? $content['goto'] : ($content['goto2'] ? $content['goto2'] : $content['path']);
				$Ok = $this->etemplate->read($content['name'],$content['template'],$content['lang'],0,$content['goto'] || $content['goto2'] ? $content['version'] : $content['old_version']);
				
				// build size from options array, if applicable
				if (is_array($content['cell']['options']))
				{
					$size = '';
					for ($n = max(array_keys($content['cell']['options'])); $n >= 0; --$n)
					{
						if (strlen($content['cell']['options'][$n]) || strlen($size))
						{
							$size = $content['cell']['options'][$n].(strlen($size) ? ','.$size : '');
						}
					}
					$content['cell']['size'] = $size;
				}
			}
			else
			{
				//echo "<p><b>".($_GET['path']).":</b></p>\n";
				list($name,$version,$path) = explode(':',$_GET['path'],3);	// <name>:<version>:<path>
				$Ok = $this->etemplate->read(array(
					'name'    => $name,
					'version' => $version,
				));
			}
			if (!$Ok && !$content['cancel'])
			{
				$msg .= lang('Error: Template not found !!!');
			}
			$path_parts = explode('/',$path);
			$child_id = array_pop($path_parts);
			$parent_path = implode('/',$path_parts);
			//echo "<p>path='$path': child_id='$child_id', parent_path='$parent_path'</p>\n";
			$parent =& $this->etemplate->get_widget_by_path($parent_path);
			
			if (is_array($content))
			{
				foreach(array('save','apply','cancel','goto','goto2','edit_menu','box_menu','row_menu','column_menu') as $n => $name)
				{
					if (($action = $content[$name] ? ($n < 5 ? $name : $content[$name]) : false)) break;
					$name = '';
				}
				unset($content[$name]);
				
				//echo "<p>name='$name', parent-type='$parent[type]', action='$action'</p>\n";
				if (($name == 'row_menu' || $name == 'column_menu') && $parent['type'] != 'grid' ||
					$name == 'box_menu' && $parent['type'] == 'grid')
				{
					$msg .= lang("parent is a '%1' !!!",lang($parent['type'] ? $parent['type'] : 'template'));
					$action = false;
				}
				switch($name)
				{
					case 'edit_menu':
						$msg .= $this->edit_actions($action,$parent,$content,$child_id);
						break;
						
					case 'box_menu':
						$msg .= $this->box_actions($action,$parent,$content,$child_id,$parent_path);
						break;

					case 'row_menu':
						$msg .= $this->row_actions($action,$parent,$child_id);
						break;
						
					case 'column_menu':
						$msg .= $this->column_actions($action,$parent,$child_id);
						break;
						
					default: 
						// all menu's are (only) working on the parent, referencing widget is unnecessary 
						// and gives unexpected results, if parent is changed (eg. content gets copied)
						$widget =& $this->etemplate->get_widget_by_path($path);
						break;
				}
				switch ($action)
				{
					case 'goto':
					case 'goto2':
						$content['cell'] = $widget;
						$this->fix_set_onclick($widget,$content['cell'],true);
						$this->fix_set_onchange($widget,$content['cell'],true);
						break;

					case '':
					case 'save': case 'apply': 
						// initialise the children arrays if type is changed to a widget with children
						//echo "<p>$content[path]: $widget[type] --> ".$content['cell']['type']."</p>\n";
						if (isset($this->etemplate->widgets_with_children[$content['cell']['type']]))
						{
							$this->change_widget_type($content['cell'],$widget);
						}
						if (!$action) break;
						// save+apply only
						$widget = $content['cell'];
						if ($content['cell']['onclick_type'] || $content['cell']['onclick'])
						{
							$this->fix_set_onclick($widget,$content['cell'],false);
						}
						if ($content['cell']['onchange_type'] || $content['cell']['onchange'])
						{
							$this->fix_set_onchange($widget,$content['cell'],false);
						}
						// row- and column-attr for a grid
						if ($parent['type'] == 'grid' && preg_match('/^([0-9]+)([A-Z]+)$/',$child_id,$matches))
						{
							list(,$row,$col) = $matches;
							$parent['data'][0]['h'.$row] = $content['grid_row']['height'].
								($content['grid_row']['disabled']?','.$content['grid_row']['disabled']:'');
							$parent['data'][0]['c'.$row] = $content['grid_row']['class'].
								($content['grid_row']['valign']?','.$content['grid_row']['valign']:'');
							$parent['data'][0][$col] = $content['grid_column']['width'].
								($content['grid_column']['disabled']?','.$content['grid_column']['disabled']:'');
						}
						// fall-through
					case 'save-no-merge':
					case 'apply-no-merge':
						//$this->etemplate->echo_tmpl();
						$ok = $this->etemplate->save($content);
						$msg .= $ok ? lang('Template saved') : lang('Error: while saving !!!');
	
						// if necessary fix the version of our opener
						if ($content['opener']['name'] == $content['name'] &&
							$content['opener']['template'] == $content['template'] &&
							$content['opener']['group'] == $content['group'] &&
							$content['opener']['lang'] == $content['lang'])
						{
							$content['opener']['version'] = $content['version'];
						}
						$js = "opener.location.href='".$GLOBALS['egw']->link('/index.php',array(
								'menuaction' => 'etemplate.editor.edit',
							)+$content['opener'])."';";
						if ($action == 'apply' || $action == 'apply-no-merge') break;
						// fall through
					case 'cancel':
						$js .= 'window.close();';
						echo "<html><body><script>$js</script></body></html>\n";
						$GLOBALS['egw']->common->egw_exit();
						break;
				}				
				if ($js)
				{
					$content['java_script'] = "<script>$js</script>";
				}
			}
			else
			{
				$widget =& $this->etemplate->get_widget_by_path($path);
				
				$content = $this->etemplate->as_array(-1);
				$content['cell'] = $widget;
				$this->fix_set_onclick($widget,$content['cell'],true);
				$this->fix_set_onchange($widget,$content['cell'],true);
				
				foreach($this->etemplate->db_key_cols as $var)
				{
					if (isset($_GET[$var]))
					{
						$content['opener'][$var] = $_GET[$var];
					}
				}
			}
			unset($content['cell']['obj']);	// just in case it contains a template-object
			
			if ($parent['type'] == 'grid' && preg_match('/^([0-9]+)([A-Z]+)$/',$child_id,$matches))
			{
				list(,$row,$col) = $matches;

				$grid_row =& $content['grid_row'];
				list($grid_row['height'],$grid_row['disabled']) = explode(',',$parent['data'][0]['h'.$row]);
				list($grid_row['class'],$grid_row['valign']) = explode(',',$parent['data'][0]['c'.$row]);
				
				$grid_column =& $content['grid_column'];
				list($grid_column['width'],$grid_column['disabled']) = explode(',',$parent['data'][0][$col]);
				//echo "<p>grid_row($row)=".print_r($grid_row,true).", grid_column($col)=".print_r($grid_column,true)."</p>\n";
			}
			else
			{
				unset($content['grid_row']);
				unset($content['grid_column']);
			}
			$content['path'] = ($parent_path!='/'?$parent_path:'').'/'.$child_id;
			$content['msg'] = $msg;
			$content['goto'] = $this->path_components($content['path']);
			$content['goto2'] = $this->parent_navigation($parent,$parent_path,$child_id,$widget);
			
			$content['cell']['options'] = explode(',',$content['cell']['size']);

			$editor =& new etemplate('etemplate.editor.widget');
			$type_tmpl =& new etemplate;
			if ($type_tmpl->read('etemplate.editor.widget.'.$widget['type']))
			{
				$editor->set_cell_attribute('etemplate.editor.widget.generic','obj',$type_tmpl);
			}
			if ($parent['type'] == 'grid')
			{
				$editor->disable_cells('box_menu');
			}
			else
			{
				$editor->disable_cells('row_menu');
				$editor->disable_cells('column_menu');
			}
			$preserv = $this->etemplate->as_array()+array(
				'path'        => $content['path'],
				'old_version' => $this->etemplate->version,
				'opener'      => $content['opener'],
				'cell'        => $content['cell'],
				'goto'        => $content['goto'],
			);
			unset($preserv['cell']['options']);	// otherwise we never know if content is returned via options array or size
			
			$GLOBALS['egw_info']['flags']['java_script'] = "<script>window.focus();</script>\n";
			$GLOBALS['egw_info']['flags']['app_header'] = lang('Editable Templates - Editor');
			$editor->exec('etemplate.editor.widget',$content,array(
					'type'       => array_merge($this->etemplate->types,$this->extensions),
					'align'      => &$this->aligns,
					'valign'     => &$this->valigns,
					'edit_menu'  => &$this->edit_menu,
					'box_menu'   => &$this->box_menu,
					'row_menu'   => &$this->row_menu,
					'column_menu'=> &$this->column_menu,
					'onclick_type'=>&$this->onclick_types,
					'onchange_type'=>&$this->onchange_types,
					'options[6]' => &$this->overflows,
				),'',$preserv,2);
		}

		/**
		 * edit dialog for the styles of a templat or app
		 *
		 * @param array $content the submitted content of the etemplate::exec function, default null
		 * @param string $msg msg to display, default ''
		 */
		function styles($content=null,$msg='')
		{
			if (!is_array($content))
			{
				foreach($this->etemplate->db_key_cols as $var)
				{
					if (isset($_GET[$var])) $content[$var] = $_GET[$var];
				}
			}
			//_debug_array($content);
			// security check for content[from]
			if ($content['from'] && !preg_match('/^[A-Za-z0-9_-]+\/templates\/[A-Za-z0-9_-]+\/app.css$/',$content['from']))
			{
				$content['from'] = '';	// someone tried to trick us reading a file we are not suppost to read
			}
			if (!$this->etemplate->read($content))
			{
				$msg .= lang('Error: Template not found !!!');
			}
			if ($content['save'] || $content['apply'])
			{
				if ($content['from'])
				{
					$path = EGW_SERVER_ROOT.'/'.$content['from'];
					if (is_writable(dirname($path)) && file_exists($path))
					{
						rename($path,str_replace('.css','.old.css',$path));
					}
					if (file_exists($path) && !is_writable(dirname($path)))
					{
						$msg .= lang("Error: webserver is not allowed to write into '%1' !!!",dirname($path));
					}
					else
					{
						$fp = fopen($path,'w');
						if (!$fp || !fwrite($fp,$content['styles']))
						{
							$msg .= lang('Error: while saving !!!');
						}
						else
						{
							$msg .= lang("File writen",$path);
						}
						@fclose($fp);
					}
				}					
				else	// the templates own embeded styles;
				{
					$this->etemplate->style = $content['styles'];
					$ok = $this->etemplate->save();
					$msg = $ok ? lang('Template saved') : lang('Error: while saving !!!');
				}
				$js = "opener.location.href='".$GLOBALS['egw']->link('/index.php',array(
						'menuaction' => 'etemplate.editor.edit',
					)+$this->etemplate->as_array(-1))."';";
			}
			if ($content['save'] || $content['cancel'])
			{
				$js .= 'window.close();';
				echo "<html><body><script>$js</script></body></html>\n";
				$GLOBALS['egw']->common->egw_exit();
			}
			$content = array(
				'from' => $content['from'],
				'java_script' => $js ? '<script>'.$js.'</script>' : '',
				'msg' => $msg
			);
			$tmpl =& new etemplate('etemplate.editor.styles');

			if ($content['from'])
			{
				$path = EGW_SERVER_ROOT.'/'.$content['from'];
				$content['styles'] = file_exists($path) && is_readable($path) ? implode('',file($path)) : '';
				if (!is_writable(dirname($path)) && (!file_exists($path) || !is_writable($path)))
				{ 
					$tmpl->set_cell_attribute('styles','readonly',true);
				}
			}
			else
			{
				$content['styles'] = $this->etemplate->style;
			}
			// generate list of style-sources
			$keys = $this->etemplate->as_array(-1); unset($keys['group']);
			$sources[''] = lang('eTemplate').': '.implode(':',$keys);
			list($app) = explode('.',$this->etemplate->name);
			$app_templates = @opendir(EGW_SERVER_ROOT.'/'.$app.'/templates');
			while (($template = @readdir($app_templates)) !== false)
			{
				$dir = EGW_SERVER_ROOT.'/'.$app.'/templates/'.$template;
				if ($template[0] == '.' || $template == 'CVS' || !is_dir($dir.'/images')) continue;	// not a template-dir
				$exists = file_exists($dir.'/app.css');
				$writable = is_writable($dir) || $exists && is_writable($dir.'/app.css');
				if (!$exists && !$writable) continue;	// nothing to show
				$rel_path = $app.'/templates/'.$template.'/app.css';
				$sources[$rel_path] = lang('file').': '.$rel_path.($exists && !$writable ? ' ('.lang('readonly').')' : '');
			}
			$GLOBALS['egw_info']['flags']['java_script'] = "<script>window.focus();</script>\n";
			$GLOBALS['egw_info']['flags']['app_header'] = lang('etemplate').' - '.lang('CSS-styles');
			$tmpl->exec('etemplate.editor.styles',$content,array('from'=>$sources),'',$keys,2);
		}

		/**
		 * search the inc-dirs of etemplate and the app whichs template is edited for extensions / custom widgets
		 *
		 * extensions are class-files in $app/inc/class.${name}_widget.inc.php
		 * the extensions found will be saved in a class-var and in the session
		 *
		 * @param string $app='etemplate' app to scan
		 * @return string comma delimited list of new found extensions
		 */
		function scan_for_extensions($app='etemplate')
		{
			if (!is_array($this->extensions)) $this->extensions = array();
			
			if (isset($this->extensions['**loaded**'][$app])) return '';	// already loaded
			
			$labels = array();
			$dir = @opendir(EGW_SERVER_ROOT.'/'.$app.'/inc');
			while ($dir && ($file = readdir($dir)))
			{
				if (ereg('class\\.([a-zA-Z0-9_]*)_widget.inc.php',$file,$regs) &&
					($regs[1] != 'xslt' || $this->etemplate->xslt) &&
					($ext = $this->etemplate->loadExtension($regs[1].'.'.$app,$this->etemplate)))
				{
					if (is_array($ext))
					{
						$this->extensions += $ext;
						$labels += $ext;
					}
					else
					{
						$this->extensions[$regs[1]] = $ext;
						$labels[] = $ext;
					}
				}
			}
			// store the information in the session, our constructor loads it from there
			$GLOBALS['egw']->session->appsession('extensions','etemplate',$this->extensions);
			$apps_loaded = $GLOBALS['egw']->session->appsession('apps_loaded','etemplate');
			$apps_loaded[$app] = true;
			$GLOBALS['egw']->session->appsession('apps_loaded','etemplate',$apps_loaded);
			//_debug_array($this->extensions); _debug_array($apps_loaded);
			
			return implode(', ',$labels);
		}
		
		/**
		 * swap the values of $a and $b
		 *
		 * @param mixed &$a
		 * @param mixed &$b
		 */
		function swap(&$a,&$b)
		{
			$h = $a;
			$a = $b;
			$b = $h;
		}
	}