functions/page_header.php

   1 <?php
   2
   3 /**
   4  * page_header.php
   5  *
   6  * Copyright (c) 1999-2005 The SquirrelMail Project Team
   7  * Licensed under the GNU GPL. For full terms see the file COPYING.
   8  *
   9  * Prints the page header (duh)
  10  *
  11  * @version $Id$
  12  * @package squirrelmail
  13  */
  14
  15 /** Include required files from SM */
  16 require_once(SM_PATH . 'functions/strings.php');
  17 require_once(SM_PATH . 'functions/html.php');
  18 require_once(SM_PATH . 'functions/imap_mailbox.php');
  19 require_once(SM_PATH . 'functions/global.php');
  20
  21 /**
  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
  28  * @param bool frames generate html frameset doctype (since 1.5.1)
  29  * @return void
  30  */
  31 function displayHtmlHeader( $title = 'SquirrelMail', $xtra = '', $do_hook = true, $frames = false ) {
  32     global $squirrelmail_language;
  33
  34     if ( !sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION) ) {
  35         global $base_uri;
  36     }
  37     global $theme_css, $custom_css, $pageheader_sent;
  38
  39     if ($frames) {
  40         echo '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">';
  41     } else {
  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";
  45
  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      */
  50     if ( !isset( $custom_css ) || $custom_css == 'none' ) {
  51         if ($theme_css != '') {
  52             echo "<link rel=\"stylesheet\" type=\"text/css\" href=\"$theme_css\">";
  53         }
  54     } else {
  55         echo '<link rel="stylesheet" type="text/css" href="' .
  56              $base_uri . 'themes/css/'.$custom_css.'">';
  57     }
  58
  59     if ($squirrelmail_language == 'ja_JP') {
  60         /*
  61          * force correct detection of charset, when browser does not follow
  62          * http content-type and tries to detect charset from page content.
  63          * Shooting of browser's creator can't be implemented in php.
  64          * We might get rid of it, if we follow http://www.w3.org/TR/japanese-xml/
  65          * recommendations and switch to unicode.
  66          */
  67         echo "<!-- \xfd\xfe -->\n";
  68         echo '<meta http-equiv="Content-type" content="text/html; charset=euc-jp">' . "\n";
  69     }
  70
  71     if ($do_hook) {
  72         do_hook('generic_header');
  73     }
  74
  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 */
  82   body {
  83       voice-family: "\"}\"";
  84       voice-family: inherit;
  85       width: expression(document.documentElement.clientWidth - 30);
  86   }
  87 -->
  88 </style>
  89
  90 ECHO;
  91
  92     echo "\n</head>\n\n";
  93
  94     /* this is used to check elsewhere whether we should call this function */
  95     $pageheader_sent = TRUE;
  96 }
  97
  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  */
 105 function makeInternalLink($path, $text, $target='') {
 106     sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION);
 107     if ($target != '') {
 108         $target = " target=\"$target\"";
 109     }
 110
 111     // This is an inefficient hook and is only used by
 112     // one plugin that still needs to patch this code,
 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?)
 116     // use for the internal_link hook.
 117     //
 118     //$hooktext = do_hook_function('internal_link',$text);
 119     //if ($hooktext != '')
 120     //    $text = $hooktext;
 121
 122     return '<a href="'.$base_uri.$path.'"'.$target.'>'.$text.'</a>';
 123 }
 124
 125 /**
 126  * Same as makeInternalLink, but echoes it too
 127  */
 128 function displayInternalLink($path, $text, $target='') {
 129     echo makeInternalLink($path, $text, $target);
 130 }
 131
 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  */
 143 function displayPageHeader($color, $mailbox, $xtra='', $session=false) {
 144
 145     global $hide_sm_attributions, $PHP_SELF, $frame_top,
 146            $compose_new_win, $compose_width, $compose_height,
 147            $provider_name, $provider_uri, $startMessage,
 148            $javascript_on, $default_use_mdn, $mdn_user_support;
 149
 150     sqgetGlobalVar('base_uri', $base_uri, SQ_SESSION );
 151     sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION );
 152     $module = substr( $PHP_SELF, ( strlen( $PHP_SELF ) - strlen( $base_uri ) ) * -1 );
 153     if ($qmark = strpos($module, '?')) {
 154         $module = substr($module, 0, $qmark);
 155     }
 156     if (!isset($frame_top)) {
 157         $frame_top = '_top';
 158     }
 159
 160     if ($session) {
 161     $compose_uri = $base_uri.'src/compose.php?mailbox='.urlencode($mailbox).'&amp;attachedmessages=true&amp;session='."$session";
 162     } else {
 163         $compose_uri = $base_uri.'src/compose.php?newmessage=1';
 164     $session = 0;
 165     }
 166
 167     if( $javascript_on || strpos($xtra, 'new_js_autodetect_results.value') ) {
 168
 169       switch ( $module ) {
 170         case 'src/read_body.php':
 171                 $js ='';
 172
 173                 // compose in new window code
 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                     }
 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.
 193                            ',scrollbars=yes,resizable=yes,status=yes");'."\n".
 194                            "}\n\n";
 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.
 202                            ',scrollbars=yes,resizable=yes,status=yes");'."\n".
 203                            "}\n\n";
 204                 }
 205
 206                 // javascript for sending read receipts
 207                 if($default_use_mdn && $mdn_user_support) {
 208                     $js .= 'function sendMDN() {'."\n".
 209                            "    mdnuri=window.location+'&sendreceipt=1'; ".
 210                            "var newwin = window.open(mdnuri,'right');".
 211                        "\n}\n\n";
 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                 }
 219
 220                 displayHtmlHeader ('SquirrelMail', $js);
 221                 $onload = $xtra;
 222             break;
 223         case 'src/compose.php':
 224             $js = '<script language="JavaScript" type="text/javascript">' .
 225                  "\n<!--\n" .
 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";
 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";
 239             }
 240             else
 241                 $js .= "var f = document.forms.length;\n".
 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".
 252                         "}\n".
 253                     "i++;\n".
 254                     "}\n".
 255                     "if( pos >= 0 ) {\n".
 256                         "document.forms[i-1].elements[pos].focus();\n".
 257                     "}\n".
 258                 "}\n";
 259
 260             $js .= "// -->\n".
 261                  "</script>\n";
 262             $onload = 'onload="checkForm();"';
 263             displayHtmlHeader ('SquirrelMail', $js);
 264             break;
 265
 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  */
 273 var 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  */
 288 function 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...
 358             //document.getElementById('msg[' + theRowNum + ']').checked = true;
 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;
 370             //document.getElementById('msg[' + theRowNum + ']').checked = true;
 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;
 382             //document.getElementById('msg[' + theRowNum + ']').checked = false;
 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
 405 EOS;
 406             $js = "\n".'<script language="JavaScript" type="text/javascript">' .
 407                         "\n<!--\n" . $js;
 408             if ($compose_new_win == '1') {
 409                 if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
 410                     $compose_width = '640';
 411                 }
 412                 if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
 413                     $compose_height = '550';
 414                 }
 415                 $js .= "function comp_in_new(comp_uri) {\n".
 416                      "       if (!comp_uri) {\n".
 417                      '           comp_uri = "'.$compose_uri."\";\n".
 418                      '       }'. "\n".
 419                      '    var newwin = window.open(comp_uri' .
 420                      ', "_blank",'.
 421                      '"width='.$compose_width. ',height='.$compose_height.
 422                      ',scrollbars=yes,resizable=yes,status=yes");'."\n".
 423                      "}\n\n";
 424             }
 425             $js .= "// -->\n</script>\n";
 426             $onload = '';
 427             displayHtmlHeader ('SquirrelMail', $js);
 428             break;
 429
 430         default:
 431             $js = '<script language="JavaScript" type="text/javascript">' .
 432                  "\n<!--\n" .
 433                  "function checkForm() {\n".
 434                     "var f = document.forms.length;\n".
 435                     "var i = 0;\n".
 436                     "var pos = -1;\n".
 437                     "while( pos == -1 && i < f ) {\n".
 438                         "var e = document.forms[i].elements.length;\n".
 439                         "var j = 0;\n".
 440                         "while( pos == -1 && j < e ) {\n".
 441                             "if ( document.forms[i].elements[j].type == 'text' " .
 442                             "|| document.forms[i].elements[j].type == 'password' ) {\n".
 443                                 "pos = j;\n".
 444                             "}\n".
 445                             "j++;\n".
 446                         "}\n".
 447                     "i++;\n".
 448                     "}\n".
 449                     "if( pos >= 0 ) {\n".
 450                         "document.forms[i-1].elements[pos].focus();\n".
 451                     "}\n".
 452             "$xtra\n".
 453                 "}\n";
 454
 455                 if ($compose_new_win == '1') {
 456                     if (!preg_match("/^[0-9]{3,4}$/", $compose_width)) {
 457                         $compose_width = '640';
 458                     }
 459                     if (!preg_match("/^[0-9]{3,4}$/", $compose_height)) {
 460                         $compose_height = '550';
 461                     }
 462                     $js .= "function comp_in_new(comp_uri) {\n".
 463                          "       if (!comp_uri) {\n".
 464                          '           comp_uri = "'.$compose_uri."\";\n".
 465                          '       }'. "\n".
 466                          '    var newwin = window.open(comp_uri' .
 467                          ', "_blank",'.
 468                          '"width='.$compose_width. ',height='.$compose_height.
 469                          ',scrollbars=yes,resizable=yes,status=yes");'."\n".
 470                          "}\n\n";
 471
 472                 }
 473             $js .= "// -->\n". "</script>\n";
 474
 475             $onload = 'onload="checkForm();"';
 476             displayHtmlHeader ('SquirrelMail', $js);
 477             break;
 478
 479         }
 480     } else {
 481         /* do not use JavaScript */
 482         displayHtmlHeader ('SquirrelMail');
 483         $onload = '';
 484     }
 485
 486     echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\" $onload>\n\n";
 487     /** Here is the header and wrapping table **/
 488     $shortBoxName = htmlspecialchars(imap_utf7_decode_local(
 489                 readShortMailboxName($mailbox, $delimiter)));
 490     if ( $shortBoxName == 'INBOX' ) {
 491         $shortBoxName = _("INBOX");
 492     }
 493     echo "<a name=\"pagetop\"></a>\n"
 494         . html_tag( 'table', '', '', $color[4], 'border="0" width="100%" cellspacing="0" cellpadding="2"' ) ."\n"
 495         . html_tag( 'tr', '', '', $color[9] ) ."\n"
 496         . html_tag( 'td', '', 'left' ) ."\n";
 497     if ( $shortBoxName <> '' && strtolower( $shortBoxName ) <> 'none' ) {
 498         echo '         ' . _("Current Folder") . ": <b>$shortBoxName&nbsp;</b>\n";
 499     } else {
 500         echo '&nbsp;';
 501     }
 502     echo  "      </td>\n"
 503         . html_tag( 'td', '', 'right' ) ."<b>\n";
 504     displayInternalLink ('src/signout.php', _("Sign Out"), $frame_top);
 505     echo "</b></td>\n"
 506         . "   </tr>\n"
 507         . html_tag( 'tr', '', '', $color[4] ) ."\n"
 508         . ($hide_sm_attributions ? html_tag( 'td', '', 'left', '', 'colspan="2"' )
 509                                  : html_tag( 'td', '', 'left' ) )
 510         . "\n";
 511     $urlMailbox = urlencode($mailbox);
 512     echo makeComposeLink('src/compose.php?mailbox='.$urlMailbox.'&amp;startMessage='.$startMessage);
 513     echo "&nbsp;&nbsp;\n";
 514     displayInternalLink ('src/addressbook.php', _("Addresses"));
 515     echo "&nbsp;&nbsp;\n";
 516     displayInternalLink ('src/folders.php', _("Folders"));
 517     echo "&nbsp;&nbsp;\n";
 518     displayInternalLink ('src/options.php', _("Options"));
 519     echo "&nbsp;&nbsp;\n";
 520     displayInternalLink ("src/search.php?mailbox=$urlMailbox", _("Search"));
 521     echo "&nbsp;&nbsp;\n";
 522     displayInternalLink ('src/help.php', _("Help"));
 523     echo "&nbsp;&nbsp;\n";
 524
 525     do_hook('menuline');
 526
 527     echo "      </td>\n";
 528
 529     if (!$hide_sm_attributions)
 530     {
 531         echo html_tag( 'td', '', 'right' ) ."\n";
 532         if (!isset($provider_uri)) $provider_uri= 'http://www.squirrelmail.org/';
 533         if (!isset($provider_name)) $provider_name= 'SquirrelMail';
 534         echo '<a href="'.$provider_uri.'" target="_blank">'.$provider_name.'</a>';
 535         echo "</td>\n";
 536     }
 537     echo "   </tr>\n".
 538         "</table><br />\n\n";
 539 }
 540
 541 /**
 542  * Blatantly copied/truncated/modified from displayPageHeader.
 543  * Outputs a page header specifically for the compose_in_new popup window
 544  *
 545  * @param array color the array of theme colors
 546  * @param string mailbox the current mailbox name to display
 547  * @return void
 548  */
 549 function compose_Header($color, $mailbox) {
 550
 551     global $javascript_on;
 552
 553     /*
 554      * Locate the first displayable form element (only when JavaScript on)
 555      */
 556     if($javascript_on) {
 557         global $base_uri, $PHP_SELF, $data_dir, $username;
 558
 559         $module = substr( $PHP_SELF, ( strlen( $PHP_SELF ) - strlen( $base_uri ) ) * -1 );
 560
 561         switch ( $module ) {
 562         case 'src/search.php':
 563             $pos = getPref($data_dir, $username, 'search_pos', 0 ) - 1;
 564             $onload = "onload=\"document.forms[$pos].elements[2].focus();\"";
 565             displayHtmlHeader (_("Compose"));
 566             break;
 567         default:
 568             $js = '<script language="JavaScript" type="text/javascript">' .
 569                  "\n<!--\n" .
 570              "function checkForm() {\n";
 571
 572             global $action, $reply_focus;
 573             if (strpos($action, 'reply') !== FALSE && $reply_focus)
 574             {
 575                 if ($reply_focus == 'select') $js .= "document.forms['compose'].body.select();}\n";
 576                 else if ($reply_focus == 'focus') $js .= "document.forms['compose'].body.focus();}\n";
 577                 else if ($reply_focus == 'none') $js .= "}\n";
 578             }
 579             // no reply focus also applies to composing new messages
 580             else if ($reply_focus == 'none')
 581             {
 582                 $js .= "}\n";
 583             }
 584             else
 585                 $js .= "var f = document.forms.length;\n".
 586                     "var i = 0;\n".
 587                     "var pos = -1;\n".
 588                     "while( pos == -1 && i < f ) {\n".
 589                         "var e = document.forms[i].elements.length;\n".
 590                         "var j = 0;\n".
 591                         "while( pos == -1 && j < e ) {\n".
 592                             "if ( document.forms[i].elements[j].type == 'text' ) {\n".
 593                                 "pos = j;\n".
 594                             "}\n".
 595                             "j++;\n".
 596                         "}\n".
 597                     "i++;\n".
 598                     "}\n".
 599                     "if( pos >= 0 ) {\n".
 600                         "document.forms[i-1].elements[pos].focus();\n".
 601                     "}\n".
 602                 "}\n";
 603             $js .= "// -->\n".
 604                  "</script>\n";
 605             $onload = 'onload="checkForm();"';
 606             displayHtmlHeader (_("Compose"), $js);
 607             break;
 608         }
 609     } else {
 610         /* javascript off */
 611         displayHtmlHeader(_("Compose"));
 612         $onload = '';
 613     }
 614
 615     echo "<body text=\"$color[8]\" bgcolor=\"$color[4]\" link=\"$color[7]\" vlink=\"$color[7]\" alink=\"$color[7]\" $onload>\n\n";
 616 }
 617
 618 ?>