6 * The idea is to inlcude here some functions to make easier
7 * the right to left implementation by "functionize" some
10 * @copyright © 1999-2006 The SquirrelMail Project Team
11 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
13 * @package squirrelmail
20 * @param string $tag Tag to output
21 * @param string $val Value between tags
22 * @param string $align Alignment (left, center, etc)
23 * @param string $bgcolor Back color in hexadecimal
24 * @param string $xtra Extra options
25 * @return string HTML ready for output
28 function html_tag( $tag, // Tag to output
29 $val = '', // Value between tags
30 $align = '', // Alignment
31 $bgcolor = '', // Back color
32 $xtra = '' ) { // Extra options
34 GLOBAL $languages, $squirrelmail_language;
36 $align = strtolower( $align );
38 $tag = strtolower( $tag );
40 if ( isset( $languages[$squirrelmail_language]['DIR']) ) {
41 $dir = $languages[$squirrelmail_language]['DIR'];
46 if ( $dir == 'ltr' ) {
54 if ( $bgcolor <> '' ) {
55 $bgc = " bgcolor=\"$bgcolor\"";
63 $alg = " align=\"$rgt\"";
66 $alg = " align=\"$lft\"";
69 $alg = " align=\"$align\"";
75 if ( $dir <> 'ltr' ) {
76 $ret .= " dir=\"$dir\"";
85 $ret .= ">$val</$tag>\n";
94 * handy function to set url vars
96 * especially useful when $url = $PHP_SELF
97 * @param string $url url that must be modified
98 * @param string $var variable name
99 * @param string $val variable value
100 * @param boolean $link controls sanitizing of ampersand in urls (since 1.3.2)
101 * @return string $url modified url
104 function set_url_var($url, $var, $val=0, $link=true) {
107 '/.+(\\&'.$var.')=(.*)\\&/AU', /* in the middle */
108 '/.+\\?('.$var.')=(.*\\&).+/AU', /* at front, more follow */
109 '/.+(\\?'.$var.')=(.*)$/AU', /* at front and only var */
110 '/.+(\\&'.$var.')=(.*)$/AU' /* at the end */
112 $url = str_replace('&','&',$url);
114 // FIXME: why switch is used instead of if () or one preg_match()
116 case (preg_match($pat_a[0],$url,$regs)):
120 case (preg_match($pat_a[1],$url,$regs)):
124 case (preg_match($pat_a[2],$url,$regs)):
128 case (preg_match($pat_a[3],$url,$regs)):
134 if (strpos($url,'?')) {
135 $url .= "&$var=$val";
137 $url .= "?$var=$val";
149 if( substr($v,-1)=='&' ) {
153 $url = preg_replace($pat,$rpl,$url);
156 $url = str_replace('&','&',$url);