"new widget to display a clickable email address:

- if the regular value is empty the value of options is used
- the link either opens fmail or is a mailto-link
- complete email addess is shown as tooltip
- \"Ralf Becker <ralf@egroupware.org>\" displays \"Ralf Becker\" with \"ralf@egroupware.org as tooltip"

etemplate/inc/class.email_widget.inc.php

@@ -0,0 +1,109 @@
+<?php
+/**
+ * eGroupWare  eTemplate Extension - Email addresses
+ *
+ * @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
+ * @package etemplate
+ * @link http://www.egroupware.org
+ * @author Ralf Becker <RalfBecker@outdoor-training.de>
+ * @version $Id$
+ */
+
+/**
+ * eGroupWare  eTemplate Extension - Email addresses
+ *
+ * The value is an RFC822 email address or an interger account_id.
+ * If the value is empty or 0, the content of the options field is used instead.
+ * The address get displayed as name with the email as tooltip and a link to compose a mail.
+ */
+class email_widget
+{
+	/** 
+	 * exported methods of this class
+	 * 
+	 * @var array
+	 */
+	var $public_functions = array(
+		'pre_process' => True,
+	);
+	/**
+	 * availible extensions and there names for the editor
+	 * @var string
+	 */
+	var $human_name = array(
+		'email-address' => 'email address',
+	);
+
+	/**
+	 * Constructor of the extension
+	 *
+	 * @param string $ui '' for html
+	 */
+	function select_widget($ui)
+	{
+		$this->ui = $ui;
+	}
+
+	/**
+	 * pre-processing of the extension
+	 *
+	 * This function is called before the extension gets rendered
+	 *
+	 * @param string $name form-name of the control
+	 * @param mixed &$value value / existing content, can be modified
+	 * @param array &$cell array with the widget, can be modified for ui-independent widgets 
+	 * @param array &$readonlys names of widgets as key, to be made readonly
+	 * @param mixed &$extension_data data the extension can store persisten between pre- and post-process
+	 * @param object &$tmpl reference to the template we belong too
+	 * @return boolean true if extra label is allowed, false otherwise
+	 */
+	function pre_process($name,&$value,&$cell,&$readonlys,&$extension_data,&$tmpl)
+	{
+		if (!$value) $value = $cell['size'];
+		
+		if (is_numeric($value))
+		{
+			$email = $GLOBALS['egw']->accounts->id2name($value,'account_email');
+			$value = $GLOBALS['egw']->accounts->id2name($value,'account_fullname');
+		}
+		elseif (preg_match('/^(.*) ?<(.*)>/',$value,$matches))
+		{
+			$value = $matches[1];
+			$email = $matches[2];
+		}
+		elseif (strpos($email=$value,'@') !== false)
+		{
+			list($value) = explode('@',$value);	// cut the domain off to get a shorter name, we show the complete email as tooltip
+			$value .= '@...';
+		}
+		$link = $this->email2link($email);
+		//echo "<p>value='$value', email='$email', link=".print_r($link,true)."</p>\n";
+		
+		$cell['type'] = 'label';
+		$cell['size'] = ','.$link.',,,,'.($link[0]=='f'?'700x750':'').($value != $email ? ','.$email : '');
+		$cell['no_lang'] = 1;
+
+		return True;	// extra Label Ok
+	}
+
+	/**
+	 * convert email-address in compose link
+	 *
+	 * @param string $email email-addresse
+	 * @return array/string array with get-params or mailto:$email, or '' or no mail addresse
+	 */
+	function email2link($email)
+	{
+		if (strpos($email,'@') == false) return '';
+
+		if($GLOBALS['egw_info']['user']['apps']['felamimail'])
+		{
+			return 'felamimail.uicompose.compose&send_to='.base64_encode($email);
+		}
+		if($GLOBALS['egw_info']['user']['apps']['email'])
+		{
+			return 'email.uicompose.compose&to='.$email;
+		}
+		return 'mailto:' . $email;
+	}
+}