Making fancy row highlighting an option
[squirrelmail.git] / functions / page_header.php
CommitLineData
59177427 1<?php
7350889b 2
35586184 3/**
4 * page_header.php
5 *
6c84ba1e 6 * Copyright (c) 1999-2005 The SquirrelMail Project Team
35586184 7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * Prints the page header (duh)
10 *
31841a9e 11 * @version $Id$
d6c32258 12 * @package squirrelmail
35586184 13 */
14
d6c32258 15/** Include required files from SM */
b68edc75 16require_once(SM_PATH . 'functions/strings.php');
17require_once(SM_PATH . 'functions/html.php');
18require_once(SM_PATH . 'functions/imap_mailbox.php');
0b97a708 19require_once(SM_PATH . 'functions/global.php');
b68edc75 20
d6c32258 21/**
8b096f0a 22 * Output a SquirrelMail page header, from <!doctype> to </head>
23 * Always set up the language before calling these functions.
24 *
25 * @param string title the page title, default SquirrelMail.
26 * @param string xtra extra HTML to insert into the header
27 * @param bool do_hook whether to execute hooks, default true
62b9c984 28 * @param bool frames generate html frameset doctype (since 1.5.1)
8b096f0a 29 * @return void
d6c32258 30 */
62b9c984 31function displayHtmlHeader( $title = 'SquirrelMail', $xtra = '', $do_hook = true, $frames = false ) {
e842b215 32 global $squirrelmail_language;
692155b7 33
0365891c 34 if ( !sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION) ) {
0b97a708 35 global $base_uri;
36 }
b6c283c4 37 global $theme_css, $custom_css, $pageheader_sent;
2c21ef20 38
62b9c984 39 if ($frames) {
40 echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">';
91e0dccc 41 } else {
62b9c984 42 echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';
43 }
44 echo "\n\n" . html_tag( 'html' ,'' , '', '', 'lang="'.$squirrelmail_language.'"' ) . "\n<head>\n";
2c21ef20 45
fcae5445 46 /*
47 * Add closing / to link and meta elements only after switching to xhtml 1.0 Transitional.
48 * It is not compatible with html 4.01 Transitional
49 */
a714cb95 50 if ( !isset( $custom_css ) || $custom_css == 'none' ) {
692155b7 51 if ($theme_css != '') {
fcae5445 52 echo "<link rel=\"stylesheet\" type=\"text/css\" href=\"$theme_css\">";
692155b7 53 }
8f1ba72b 54 } else {
d68323ff 55 echo '<link rel="stylesheet" type="text/css" href="' .
fcae5445 56 $base_uri . 'themes/css/'.$custom_css.'">';
8f1ba72b 57 }
62f7daa5 58
e842b215 59 if ($squirrelmail_language == 'ja_JP') {
683b7853 60 /*
e50f5ac2 61 * force correct detection of charset, when browser does not follow
683b7853 62 * http content-type and tries to detect charset from page content.
63 * Shooting of browser's creator can't be implemented in php.
e50f5ac2 64 * We might get rid of it, if we follow http://www.w3.org/TR/japanese-xml/
683b7853 65 * recommendations and switch to unicode.
e50f5ac2 66 */
e842b215 67 echo "<!-- \xfd\xfe -->\n";
fcae5445 68 echo '<meta http-equiv="Content-type" content="text/html; charset=euc-jp">' . "\n";
e842b215 69 }
62f7daa5 70
237470b4 71 if ($do_hook) {
d68323ff 72 do_hook('generic_header');
237470b4 73 }
62f7daa5 74
5ca4b1ee 75 echo "\n<title>$title</title>$xtra\n";
76
77 /* work around IE6's scrollbar bug */
78 echo <<<ECHO
79<style type="text/css">
80<!--
81 /* avoid stupid IE6 bug with frames and scrollbars */
62f7daa5 82 body {
83 voice-family: "\"}\"";
84 voice-family: inherit;
5ca4b1ee 85 width: expression(document.documentElement.clientWidth - 30);
86 }
87-->
88</style>
89
90ECHO;
91
92 echo "\n</head>\n\n";
b6c283c4 93
94 /* this is used to check elsewhere whether we should call this function */
95 $pageheader_sent = TRUE;
a07cd1a4 96}
97
8b096f0a 98/**
99 * Given a path to a SquirrelMail file, return a HTML link to it
100 *
101 * @param string path the SquirrelMail file to link to
102 * @param string text the link text
103 * @param string target the target frame for this link
104 */
d62c4938 105function makeInternalLink($path, $text, $target='') {
0365891c 106 sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION);
dcc1cc82 107 if ($target != '') {
108 $target = " target=\"$target\"";
109 }
4910106a 110
e50f5ac2 111 // This is an inefficient hook and is only used by
4910106a 112 // one plugin that still needs to patch this code,
e50f5ac2 113 // plus if we are templat-izing SM, visual hooks
114 // are not needed. However, I am leaving the code
115 // here just in case we find a good (non-visual?)
4910106a 116 // use for the internal_link hook.
117 //
118 //$hooktext = do_hook_function('internal_link',$text);
119 //if ($hooktext != '')
120 // $text = $hooktext;
121
d62c4938 122 return '<a href="'.$base_uri.$path.'"'.$target.'>'.$text.'</a>';
123}
124
8b096f0a 125/**
126 * Same as makeInternalLink, but echoes it too
127 */
d62c4938 128function displayInternalLink($path, $text, $target='') {
b26d81e5 129 echo makeInternalLink($path, $text, $target);
a07cd1a4 130}
131
8b096f0a 132/**
133 * Outputs a complete SquirrelMail page header, starting with <!doctype> and
134 * including the default menu bar. Uses displayHtmlHeader and takes
135 * JavaScript and locale settings into account.
136 *
137 * @param array color the array of theme colors
138 * @param string mailbox the current mailbox name to display
139 * @param string xtra extra html code to add
140 * @param bool session
141 * @return void
142 */
aca403fa 143function displayPageHeader($color, $mailbox, $xtra='', $session=false) {
715225af 144
0b97a708 145 global $hide_sm_attributions, $PHP_SELF, $frame_top,
1ba8cd6b 146 $compose_new_win, $compose_width, $compose_height,
ce68b76b 147 $provider_name, $provider_uri, $startMessage,
148 $javascript_on, $default_use_mdn, $mdn_user_support;
715225af 149
0365891c 150 sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION );
151 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION );
715225af 152 $module = substr( $PHP_SELF, ( strlen( $PHP_SELF ) - strlen( $base_uri ) ) * -1 );
f3e14140 153 if ($qmark = strpos($module, '?')) {
154 $module = substr($module, 0, $qmark);
155 }
d03f3582 156 if (!isset($frame_top)) {
157 $frame_top = '_top';
158 }
715225af 159
735f6b9c 160 if ($session) {
1a531551 161 $compose_uri = $base_uri.'src/compose.php?mailbox='.urlencode($mailbox).'&amp;attachedmessages=true&amp;session='."$session";
aca403fa 162 } else {
087ce5f8 163 $compose_uri = $base_uri.'src/compose.php?newmessage=1';
1a531551 164 $session = 0;
aca403fa 165 }
62f7daa5 166
04f8889b 167 if( $javascript_on || strpos($xtra, 'new_js_autodetect_results.value') ) {
d62c4938 168
169 switch ( $module ) {
170 case 'src/read_body.php':
171 $js ='';
32485e5e 172
173 // compose in new window code
d62c4938 174 if ($compose_new_win == '1') {
175 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
176 $compose_width = '640';
177 }
178 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
179 $compose_height = '550';
180 }
1a531551 181 $js .= "function comp_in_new_form(comp_uri, button, myform) {\n".
182 ' if (!comp_uri) {'."\n".
183 ' comp_uri = "'.$compose_uri."\";\n".
184 ' }'. "\n".
185 ' comp_uri += "&" + button.name + "=1";'."\n".
186 ' for ( var i=0; i < myform.elements.length; i++ ) {'."\n".
187 ' if ( myform.elements[i].type == "checkbox" && myform.elements[i].checked )'."\n".
188 ' comp_uri += "&" + myform.elements[i].name + "=1";'."\n".
189 ' }'."\n".
190 ' var newwin = window.open(comp_uri' .
191 ', "_blank",'.
192 '"width='.$compose_width. ',height='.$compose_height.
75442b66 193 ',scrollbars=yes,resizable=yes,status=yes");'."\n".
1a531551 194 "}\n\n";
e346043e 195 $js .= "function comp_in_new(comp_uri) {\n".
196 " if (!comp_uri) {\n".
197 ' comp_uri = "'.$compose_uri."\";\n".
198 ' }'. "\n".
199 ' var newwin = window.open(comp_uri' .
200 ', "_blank",'.
201 '"width='.$compose_width. ',height='.$compose_height.
75442b66 202 ',scrollbars=yes,resizable=yes,status=yes");'."\n".
e346043e 203 "}\n\n";
32485e5e 204 }
d62c4938 205
32485e5e 206 // javascript for sending read receipts
207 if($default_use_mdn && $mdn_user_support) {
d62c4938 208 $js .= 'function sendMDN() {'."\n".
32485e5e 209 " mdnuri=window.location+'&sendreceipt=1'; ".
d62c4938 210 "var newwin = window.open(mdnuri,'right');".
1a531551 211 "\n}\n\n";
32485e5e 212 }
213
214 // if any of the above passes, add the JS tags too.
215 if($js) {
216 $js = "\n".'<script language="JavaScript" type="text/javascript">' .
217 "\n<!--\n" . $js . "// -->\n</script>\n";
218 }
d62c4938 219
32485e5e 220 displayHtmlHeader ('SquirrelMail', $js);
221 $onload = $xtra;
d62c4938 222 break;
223 case 'src/compose.php':
224 $js = '<script language="JavaScript" type="text/javascript">' .
225 "\n<!--\n" .
9f2f6126 226 "function checkForm() {\n";
227
228 global $action, $reply_focus;
229 if (strpos($action, 'reply') !== FALSE && $reply_focus)
230 {
231 if ($reply_focus == 'select') $js .= "document.forms['compose'].body.select();}\n";
232 else if ($reply_focus == 'focus') $js .= "document.forms['compose'].body.focus();}\n";
192cdcf5 233 else if ($reply_focus == 'none') $js .= "}\n";
234 }
235 // no reply focus also applies to composing new messages
236 else if ($reply_focus == 'none')
237 {
238 $js .= "}\n";
9f2f6126 239 }
240 else
241 $js .= "var f = document.forms.length;\n".
d62c4938 242 "var i = 0;\n".
243 "var pos = -1;\n".
244 "while( pos == -1 && i < f ) {\n".
245 "var e = document.forms[i].elements.length;\n".
246 "var j = 0;\n".
247 "while( pos == -1 && j < e ) {\n".
248 "if ( document.forms[i].elements[j].type == 'text' ) {\n".
249 "pos = j;\n".
250 "}\n".
251 "j++;\n".
d7f8e6e6 252 "}\n".
d62c4938 253 "i++;\n".
d7f8e6e6 254 "}\n".
d62c4938 255 "if( pos >= 0 ) {\n".
256 "document.forms[i-1].elements[pos].focus();\n".
257 "}\n".
258 "}\n";
62f7daa5 259
d62c4938 260 $js .= "// -->\n".
1a531551 261 "</script>\n";
d62c4938 262 $onload = 'onload="checkForm();"';
263 displayHtmlHeader ('SquirrelMail', $js);
62f7daa5 264 break;
d62c4938 265
cc681ac9 266 case 'src/right_main.php':
267// following code graciously stolen from phpMyAdmin project at:
268// http://www.phpmyadmin.net
269 $js = <<<EOS
270/**
271 * This array is used to remember mark status of rows in browse mode
272 */
273var marked_row = new Array;
274
275
276/**
277 * Sets/unsets the pointer and marker in browse mode
278 *
279 * @param object the table row
280 * @param integer the row number
281 * @param string the action calling this script (over, out or click)
282 * @param string the default background color
283 * @param string the color to use for mouseover
284 * @param string the color to use for marking a row
285 *
286 * @return boolean whether pointer is set or not
287 */
288function setPointer(theRow, theRowNum, theAction, theDefaultColor, thePointerColor, theMarkColor)
289{
290 var theCells = null;
291
292 // 1. Pointer and mark feature are disabled or the browser can't get the
293 // row -> exits
294 if ((thePointerColor == '' && theMarkColor == '')
295 || typeof(theRow.style) == 'undefined') {
296 return false;
297 }
298
299 // 2. Gets the current row and exits if the browser can't get it
300 if (typeof(document.getElementsByTagName) != 'undefined') {
301 theCells = theRow.getElementsByTagName('td');
302 }
303 else if (typeof(theRow.cells) != 'undefined') {
304 theCells = theRow.cells;
305 }
306 else {
307 return false;
308 }
309
310 // 3. Gets the current color...
311 var rowCellsCnt = theCells.length;
312 var domDetect = null;
313 var currentColor = null;
314 var newColor = null;
315 // 3.1 ... with DOM compatible browsers except Opera that does not return
316 // valid values with "getAttribute"
317 if (typeof(window.opera) == 'undefined'
318 && typeof(theCells[0].getAttribute) != 'undefined') {
319 currentColor = theCells[0].getAttribute('bgcolor');
320 domDetect = true;
321 }
322 // 3.2 ... with other browsers
323 else {
324 currentColor = theCells[0].style.backgroundColor;
325 domDetect = false;
326 } // end 3
327
328 // 3.3 ... Opera changes colors set via HTML to rgb(r,g,b) format so fix it
329 if (currentColor.indexOf("rgb") >= 0)
330 {
331 var rgbStr = currentColor.slice(currentColor.indexOf('(') + 1,
332 currentColor.indexOf(')'));
333 var rgbValues = rgbStr.split(",");
334 currentColor = "#";
335 var hexChars = "0123456789ABCDEF";
336 for (var i = 0; i < 3; i++)
337 {
338 var v = rgbValues[i].valueOf();
339 currentColor += hexChars.charAt(v/16) + hexChars.charAt(v%16);
340 }
341 }
342
343 // 4. Defines the new color
344 // 4.1 Current color is the default one
345 if (currentColor == ''
346 || currentColor.toLowerCase() == theDefaultColor.toLowerCase()) {
347 if (theAction == 'over' && thePointerColor != '') {
348 newColor = thePointerColor;
349 }
350 else if (theAction == 'click' && theMarkColor != '') {
351 newColor = theMarkColor;
352 marked_row[theRowNum] = true;
353 // deactivated onclick marking of the checkbox because it's also executed
354 // when an action (clicking on the checkbox itself) on a single item is
355 // performed. Then the checkbox would get deactived, even though we need
356 // it activated. Maybe there is a way to detect if the row was clicked,
357 // and not an item therein...
f603fc95 358 //document.getElementById('msg[' + theRowNum + ']').checked = true;
cc681ac9 359 }
360 }
361 // 4.1.2 Current color is the pointer one
362 else if (currentColor.toLowerCase() == thePointerColor.toLowerCase()
363 && (typeof(marked_row[theRowNum]) == 'undefined' || !marked_row[theRowNum])) {
364 if (theAction == 'out') {
365 newColor = theDefaultColor;
366 }
367 else if (theAction == 'click' && theMarkColor != '') {
368 newColor = theMarkColor;
369 marked_row[theRowNum] = true;
f603fc95 370 //document.getElementById('msg[' + theRowNum + ']').checked = true;
cc681ac9 371 }
372 }
373 // 4.1.3 Current color is the marker one
374 else if (currentColor.toLowerCase() == theMarkColor.toLowerCase()) {
375 if (theAction == 'click') {
376 newColor = (thePointerColor != '')
377 ? thePointerColor
378 : theDefaultColor;
379 marked_row[theRowNum] = (typeof(marked_row[theRowNum]) == 'undefined' || !marked_row[theRowNum])
380 ? true
381 : null;
f603fc95 382 //document.getElementById('msg[' + theRowNum + ']').checked = false;
cc681ac9 383 }
384 } // end 4
385
386 // 5. Sets the new color...
387 if (newColor) {
388 var c = null;
389 // 5.1 ... with DOM compatible browsers except Opera
390 if (domDetect) {
391 for (c = 0; c < rowCellsCnt; c++) {
392 theCells[c].setAttribute('bgcolor', newColor, 0);
393 } // end for
394 }
395 // 5.2 ... with other browsers
396 else {
397 for (c = 0; c < rowCellsCnt; c++) {
398 theCells[c].style.backgroundColor = newColor;
399 }
400 }
401 } // end 5
402
403 return true;
404} // end of the 'setPointer()' function
405EOS;
406 $js = "\n".'<script language="JavaScript" type="text/javascript">' .
407 "\n<!--\n" . $js . "// -->\n</script>\n";
408 $onload = '';
409 displayHtmlHeader ('SquirrelMail', $js);
410 break;
411
d62c4938 412 default:
413 $js = '<script language="JavaScript" type="text/javascript">' .
414 "\n<!--\n" .
415 "function checkForm() {\n".
416 "var f = document.forms.length;\n".
417 "var i = 0;\n".
418 "var pos = -1;\n".
419 "while( pos == -1 && i < f ) {\n".
420 "var e = document.forms[i].elements.length;\n".
421 "var j = 0;\n".
422 "while( pos == -1 && j < e ) {\n".
423 "if ( document.forms[i].elements[j].type == 'text' " .
424 "|| document.forms[i].elements[j].type == 'password' ) {\n".
425 "pos = j;\n".
426 "}\n".
427 "j++;\n".
353616c4 428 "}\n".
d62c4938 429 "i++;\n".
430 "}\n".
431 "if( pos >= 0 ) {\n".
432 "document.forms[i-1].elements[pos].focus();\n".
353616c4 433 "}\n".
1a531551 434 "$xtra\n".
d62c4938 435 "}\n";
62f7daa5 436
d62c4938 437 if ($compose_new_win == '1') {
438 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
439 $compose_width = '640';
440 }
441 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
442 $compose_height = '550';
443 }
444 $js .= "function comp_in_new(comp_uri) {\n".
75442b66 445 " if (!comp_uri) {\n".
446 ' comp_uri = "'.$compose_uri."\";\n".
447 ' }'. "\n".
d62c4938 448 ' var newwin = window.open(comp_uri' .
449 ', "_blank",'.
450 '"width='.$compose_width. ',height='.$compose_height.
75442b66 451 ',scrollbars=yes,resizable=yes,status=yes");'."\n".
d62c4938 452 "}\n\n";
453
9c3e6cd4 454 }
d62c4938 455 $js .= "// -->\n". "</script>\n";
62f7daa5 456
d62c4938 457 $onload = 'onload="checkForm();"';
458 displayHtmlHeader ('SquirrelMail', $js);
62f7daa5 459 break;
0cba960a 460
d62c4938 461 }
462 } else {
463 /* do not use JavaScript */
464 displayHtmlHeader ('SquirrelMail');
465 $onload = '';
715225af 466 }
467
b01b21d0 468 echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\" $onload>\n\n";
a07cd1a4 469 /** Here is the header and wrapping table **/
72520f77 470 $shortBoxName = htmlspecialchars(imap_utf7_decode_local(
91e0dccc 471 readShortMailboxName($mailbox, $delimiter)));
3b7d68e6 472 if ( $shortBoxName == 'INBOX' ) {
7da23762 473 $shortBoxName = _("INBOX");
474 }
b01b21d0 475 echo "<a name=\"pagetop\"></a>\n"
476 . html_tag( 'table', '', '', $color[4], 'border="0" width="100%" cellspacing="0" cellpadding="2"' ) ."\n"
477 . html_tag( 'tr', '', '', $color[9] ) ."\n"
478 . html_tag( 'td', '', 'left' ) ."\n";
5bb2a991 479 if ( $shortBoxName <> '' && strtolower( $shortBoxName ) <> 'none' ) {
b01b21d0 480 echo ' ' . _("Current Folder") . ": <b>$shortBoxName&nbsp;</b>\n";
5bb2a991 481 } else {
482 echo '&nbsp;';
483 }
b01b21d0 484 echo " </td>\n"
485 . html_tag( 'td', '', 'right' ) ."<b>\n";
80e86e94 486 displayInternalLink ('src/signout.php', _("Sign Out"), $frame_top);
b01b21d0 487 echo "</b></td>\n"
488 . " </tr>\n"
489 . html_tag( 'tr', '', '', $color[4] ) ."\n"
99ea51d3 490 . ($hide_sm_attributions ? html_tag( 'td', '', 'left', '', 'colspan="2"' )
491 : html_tag( 'td', '', 'left' ) )
492 . "\n";
a07cd1a4 493 $urlMailbox = urlencode($mailbox);
e233a3ad 494 echo makeComposeLink('src/compose.php?mailbox='.$urlMailbox.'&amp;startMessage='.$startMessage);
a07cd1a4 495 echo "&nbsp;&nbsp;\n";
21a957a9 496 displayInternalLink ('src/addressbook.php', _("Addresses"));
a07cd1a4 497 echo "&nbsp;&nbsp;\n";
21a957a9 498 displayInternalLink ('src/folders.php', _("Folders"));
a07cd1a4 499 echo "&nbsp;&nbsp;\n";
21a957a9 500 displayInternalLink ('src/options.php', _("Options"));
a07cd1a4 501 echo "&nbsp;&nbsp;\n";
21a957a9 502 displayInternalLink ("src/search.php?mailbox=$urlMailbox", _("Search"));
a07cd1a4 503 echo "&nbsp;&nbsp;\n";
21a957a9 504 displayInternalLink ('src/help.php', _("Help"));
a07cd1a4 505 echo "&nbsp;&nbsp;\n";
506
d68323ff 507 do_hook('menuline');
a07cd1a4 508
99ea51d3 509 echo " </td>\n";
510
511 if (!$hide_sm_attributions)
512 {
513 echo html_tag( 'td', '', 'right' ) ."\n";
514 if (!isset($provider_uri)) $provider_uri= 'http://www.squirrelmail.org/';
515 if (!isset($provider_name)) $provider_name= 'SquirrelMail';
516 echo '<a href="'.$provider_uri.'" target="_blank">'.$provider_name.'</a>';
517 echo "</td>\n";
518 }
519 echo " </tr>\n".
04fa3c41 520 "</table><br />\n\n";
a07cd1a4 521}
2ba13803 522
8b096f0a 523/**
524 * Blatantly copied/truncated/modified from displayPageHeader.
525 * Outputs a page header specifically for the compose_in_new popup window
526 *
527 * @param array color the array of theme colors
528 * @param string mailbox the current mailbox name to display
529 * @return void
530 */
9c3e6cd4 531function compose_Header($color, $mailbox) {
532
d62c4938 533 global $javascript_on;
9c3e6cd4 534
535 /*
d62c4938 536 * Locate the first displayable form element (only when JavaScript on)
537 */
538 if($javascript_on) {
ce68b76b 539 global $base_uri, $PHP_SELF, $data_dir, $username;
d62c4938 540
541 $module = substr( $PHP_SELF, ( strlen( $PHP_SELF ) - strlen( $base_uri ) ) * -1 );
542
543 switch ( $module ) {
544 case 'src/search.php':
545 $pos = getPref($data_dir, $username, 'search_pos', 0 ) - 1;
546 $onload = "onload=\"document.forms[$pos].elements[2].focus();\"";
547 displayHtmlHeader (_("Compose"));
548 break;
549 default:
550 $js = '<script language="JavaScript" type="text/javascript">' .
551 "\n<!--\n" .
9f2f6126 552 "function checkForm() {\n";
553
554 global $action, $reply_focus;
555 if (strpos($action, 'reply') !== FALSE && $reply_focus)
556 {
557 if ($reply_focus == 'select') $js .= "document.forms['compose'].body.select();}\n";
558 else if ($reply_focus == 'focus') $js .= "document.forms['compose'].body.focus();}\n";
192cdcf5 559 else if ($reply_focus == 'none') $js .= "}\n";
560 }
561 // no reply focus also applies to composing new messages
562 else if ($reply_focus == 'none')
563 {
564 $js .= "}\n";
9f2f6126 565 }
566 else
567 $js .= "var f = document.forms.length;\n".
d62c4938 568 "var i = 0;\n".
569 "var pos = -1;\n".
570 "while( pos == -1 && i < f ) {\n".
571 "var e = document.forms[i].elements.length;\n".
572 "var j = 0;\n".
573 "while( pos == -1 && j < e ) {\n".
574 "if ( document.forms[i].elements[j].type == 'text' ) {\n".
575 "pos = j;\n".
576 "}\n".
577 "j++;\n".
9c3e6cd4 578 "}\n".
d62c4938 579 "i++;\n".
9c3e6cd4 580 "}\n".
d62c4938 581 "if( pos >= 0 ) {\n".
582 "document.forms[i-1].elements[pos].focus();\n".
583 "}\n".
584 "}\n";
585 $js .= "// -->\n".
1a531551 586 "</script>\n";
d62c4938 587 $onload = 'onload="checkForm();"';
588 displayHtmlHeader (_("Compose"), $js);
62f7daa5 589 break;
d62c4938 590 }
591 } else {
592 /* javascript off */
593 displayHtmlHeader(_("Compose"));
594 $onload = '';
9c3e6cd4 595 }
596
b01b21d0 597 echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\" $onload>\n\n";
9c3e6cd4 598}
e842b215 599
cc681ac9 600?>