class.t3lib_tceforms.php

Go to the documentation of this file.

<?php
/***************************************************************
*  Copyright notice
*
*  (c) 1999-2004 Kasper Skaarhoj (kasperYYYY@typo3.com)
*  All rights reserved
*
*  This script is part of the TYPO3 project. The TYPO3 project 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.
*
*  The GNU General Public License can be found at
*  http://www.gnu.org/copyleft/gpl.html.
*  A copy is found in the textfile GPL.txt and important notices to the license
*  from the author is found in LICENSE.txt distributed with these scripts.
*
*
*  This script is distributed in the hope that it will be useful,
*  but WITHOUT ANY WARRANTY; without even the implied warranty of
*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
*  GNU General Public License for more details.
*
*  This copyright notice MUST APPEAR in all copies of the script!
***************************************************************/
require_once(PATH_t3lib.'class.t3lib_diff.php');



class t3lib_TCEforms {

      // variables not commented yet.... (do so...)
   var $palFieldArr = array();
   var $disableWizards = 0;
   var $isPalettedoc = 0;
   var $paletteMargin = 1;
   var $defStyle = ''; // 'font-family:Verdana;font-size:10px;';
   var $cachedTSconfig = array();
   var $cachedTSconfig_fieldLevel = array();
   var $transformedRow = array();
   var $extJSCODE = '';
   var $printNeededJS = array();
   var $hiddenFieldAccum=array();
   var $TBE_EDITOR_fieldChanged_func='';
   var $loadMD5_JS=1;
   var $prevBorderStyle='[nothing here...]'; // Something unique...
   var $allowUpload=0;           // If set direct upload fields will be shown
   var $titleLen=15;                // $BE_USER->uc['titleLen'] but what is default??
   var $defaultLanguageData = array(); // Array where records in the default language is stored. (processed by transferdata)
   var $defaultLanguageData_diff = array();  // Array where records in the default language is stored (raw without any processing. used for making diff)


      // EXTERNAL, static
   var $backPath='';             // Set this to the 'backPath' pointing back to the typo3 admin directory from the script where this form is displayed.
   var $returnUrl='';               // Alternative return URL path (default is t3lib_div::linkThisScript())
   var $doSaveFieldName='';         // Can be set to point to a field name in the form which will be set to '1' when the form is submitted with a *save* button. This way the recipient script can determine that the form was submitted for save and not "close" for example.
   var $palettesCollapsed=0;        // Can be set true/false to whether palettes (secondary options) are in the topframe or in form. True means they are NOT IN-form. So a collapsed palette is one, which is shown in the top frame, not in the page.
   var $disableRTE=0;               // If set, the RTE is disabled (from form display, eg. by checkbox in the bottom of the page!)
   var $globalShowHelp=1;           // If false, then all CSH will be disabled, regardless of settings in $this->edit_showFieldHelp
   var $fieldOrder='';              // Overrule the field order set in TCA[types][showitem], eg for tt_content this value, 'bodytext,image', would make first the 'bodytext' field, then the 'image' field (if set for display)... and then the rest in the old order.
   var $doPrintPalette=1;           // If set to false, palettes will NEVER be rendered.
   var $clipObj=FALSE;              // Set to initialized clipboard object; Then the element browser will offer a link to paste in records from clipboard.
   var $enableClickMenu=FALSE;         // Enable click menu on reference icons.
   var $enableTabMenu = FALSE;         // Enable Tab Menus. If set to true, the JavaScript content from template::getDynTabMenuJScode() must be included in the document.

   var $form_rowsToStylewidth = 9.58;  // Form field width compensation: Factor from NN4 form field widths to style-aware browsers (like NN6+ and MSIE, with the $CLIENT[FORMSTYLE] value set)
   var $form_largeComp = 1.33;         // Form field width compensation: Compensation for large documents, doc-tab (editing)
   var $charsPerRow=40;          // The number of chars expected per row when the height of a text area field is automatically calculated based on the number of characters found in the field content.
   var $maxTextareaWidth=48;        // The maximum abstract value for textareas
   var $maxInputWidth=48;           // The maximum abstract value for input fields
   var $defaultMultipleSelectorStyle='width:250px;';  // Default style for the selector boxes used for multiple items in "select" and "group" types.


      // INTERNAL, static
   var $prependFormFieldNames = 'data';      // The string to prepend formfield names with.
   var $prependFormFieldNames_file = 'data_files';    // The string to prepend FILE form field names with.
   var $formName = 'editform';               // The name attribute of the form.



      // INTERNAL, dynamic
   var $perms_clause='';                  // Set by readPerms()  (caching)
   var $perms_clause_set=0;               // Set by readPerms()  (caching-flag)
   var $edit_showFieldHelp='';               // Used to indicate the mode of CSH (Context Sensitive Help), whether it should be icons-only ('icon'), full description ('text') or not at all (blank).
   var $docLarge=0;                    // If set, the forms will be rendered a little wider, more precisely with a factor of $this->form_largeComp.
   var $clientInfo=array();               // Loaded with info about the browser when class is instantiated.
   var $RTEenabled=0;                     // True, if RTE is possible for the current user (based on result from BE_USER->isRTE())
   var $RTEenabled_notReasons='';            // If $this->RTEenabled was false, you can find the reasons listed in this array which is filled with reasons why the RTE could not be loaded)
   var $RTEcounter = 0;                // Counter that is incremented before an RTE is created. Can be used for unique ids etc.

   var $colorScheme;                   // Contains current color scheme
   var $classScheme;                   // Contains current class scheme
   var $defColorScheme;                // Contains the default color scheme
   var $defClassScheme;                // Contains the default class scheme
   var $fieldStyle;                    // Contains field style values
   var $borderStyle;                   // Contains border style values.

   var $commentMessages=array();          // An accumulation of messages from the class.

      // INTERNAL, templates
   var $totalWrap='<hr />|<hr />';           // Total wrapping for the table rows.
   var $fieldTemplate='<b>###FIELD_NAME###</b><br />###FIELD_ITEM###<hr />';  // Field template
   var $sectionWrap='';                // Wrapping template code for a section
   var $palFieldTemplateHeader='';           // Template for palette headers
   var $palFieldTemplate='';              // Template for palettes

      // INTERNAL, working memory
   var $excludeElements='';               // Set to the fields NOT to display, if any.
   var $palettesRendered=array();            // During rendering of forms this will keep track of which palettes has already been rendered (so they are not rendered twice by mistake)
   var $hiddenFieldListArr = array();        // This array of fields will be set as hidden-fields instead of rendered normally! For instance palette fields edited in the top frame are set as hidden fields since the main form has to submit the values. The top frame actually just sets the value in the main form!
   var $requiredFields=array();           // Used to register input-field names, which are required. (Done during rendering of the fields). This information is then used later when the JavaScript is made.
   var $requiredElements=array();            // Used to register the min and max number of elements for selectorboxes where that apply (in the "group" type for instance)
   var $renderDepth=0;                    // Keeps track of the rendering depth of nested records.
   var $savedSchemes=array();             // Color scheme buffer.

      // Internal, registers for user defined functions etc.
   var $additionalCode_pre = array();        // Additional HTML code, printed before the form.
   var $additionalJS_pre = array();       // Additional JavaScript, printed before the form
   var $additionalJS_post = array();         // Additional JavaScript printed after the form
   var $additionalJS_submit = array();       // Additional JavaScript executed on submit; If you set "OK" variable it will raise an error about RTEs not being loaded and offer to block further submission.







   function t3lib_TCEforms()  {
      global $CLIENT;

      $this->clientInfo = t3lib_div::clientInfo();

      $this->RTEenabled = $GLOBALS['BE_USER']->isRTE();
      if (!$this->RTEenabled) {
         $this->RTEenabled_notReasons = implode(chr(10),$GLOBALS['BE_USER']->RTE_errors);
         $this->commentMessages[] = 'RTE NOT ENABLED IN SYSTEM due to:'.chr(10).$this->RTEenabled_notReasons;
      }

         // Default color+class scheme
      $this->defColorScheme = array(
         $GLOBALS['SOBE']->doc->bgColor,  // Background for the field AND palette
         t3lib_div::modifyHTMLColorAll($GLOBALS['SOBE']->doc->bgColor,-20),   // Background for the field header
         t3lib_div::modifyHTMLColorAll($GLOBALS['SOBE']->doc->bgColor,-10),   // Background for the palette field header
         'black', // Field header font color
         '#666666'   // Palette field header font color
      );
      $this->defColorScheme = array();

         // Override / Setting defaults from TBE_STYLES array
      $this->resetSchemes();

         // Setting the current colorScheme to default.
      $this->defColorScheme = $this->colorScheme;
      $this->defClassScheme = $this->classScheme;
   }

   function initDefaultBEmode()  {
      global $BE_USER;
      $this->prependFormFieldNames = 'data';
      $this->formName = 'editform';
      $this->setNewBEDesign();
      $this->docLarge = $BE_USER->uc['edit_wideDocument'] ? 1 : 0;
      $this->edit_showFieldHelp = $BE_USER->uc['edit_showFieldHelp'];

      $this->edit_docModuleUpload = $BE_USER->uc['edit_docModuleUpload'];
      $this->titleLen = $BE_USER->uc['titleLen'];
   }

















   /*******************************************************
    *
    * Rendering the forms, fields etc
    *
    *******************************************************/

   function getSoloField($table,$row,$theFieldToReturn)  {
      global $TCA;

      if ($TCA[$table]) {
         t3lib_div::loadTCA($table);
         $typeNum = $this->getRTypeNum($table,$row);
         if ($TCA[$table]['types'][$typeNum])   {
            $itemList = $TCA[$table]['types'][$typeNum]['showitem'];
            if ($itemList) {
               $fields = t3lib_div::trimExplode(',',$itemList,1);
               $excludeElements = $this->excludeElements = $this->getExcludeElements($table,$row,$typeNum);

               reset($fields);
               while(list(,$fieldInfo)=each($fields)) {
                  $parts = explode(';',$fieldInfo);

                  $theField = trim($parts[0]);
                  if (!in_array($theField,$excludeElements) && !strcmp($theField,$theFieldToReturn))  {
                     if ($TCA[$table]['columns'][$theField])   {
                        $sField = $this->getSingleField($table,$theField,$row,$parts[1],1,$parts[3],$parts[2]);
                        return $sField['ITEM'];
                     }
                  }
               }
            }
         }
      }
   }

   function getMainFields($table,$row,$depth=0) {
      global $TCA;

      $this->renderDepth=$depth;

         // Init vars:
      $out_array = array(array());
      $out_array_meta = array(array(
         'title' => $this->getLL('l_generalTab')
      ));

      $out_pointer=0;
      $out_sheet=0;
      $this->palettesRendered=array();
      $this->palettesRendered[$this->renderDepth][$table]=array();

      if ($TCA[$table]) {

            // Load the full TCA for the table.
         t3lib_div::loadTCA($table);

            // Load the description content for the table.
         if ($this->edit_showFieldHelp || $this->doLoadTableDescr($table)) {
            $GLOBALS['LANG']->loadSingleTableDescription($table);
         }
            // Get the current "type" value for the record.
         $typeNum = $this->getRTypeNum($table,$row);

            // Find the list of fields to display:
         if ($TCA[$table]['types'][$typeNum])   {
            $itemList = $TCA[$table]['types'][$typeNum]['showitem'];
            if ($itemList) {  // If such a list existed...

                  // Explode the field list and possibly rearrange the order of the fields, if configured for
               $fields = t3lib_div::trimExplode(',',$itemList,1);
               if ($this->fieldOrder)  {
                  $fields = $this->rearrange($fields);
               }

                  // Get excluded fields, added fiels and put it together:
               $excludeElements = $this->excludeElements = $this->getExcludeElements($table,$row,$typeNum);
               $fields = $this->mergeFieldsWithAddedFields($fields,$this->getFieldsToAdd($table,$row,$typeNum));

                  // Traverse the fields to render:
               $cc=0;
               foreach($fields as $fieldInfo)   {
                     // Exploding subparts of the field configuration:
                  $parts = explode(';',$fieldInfo);

                     // Getting the style information out:
                  $color_style_parts = t3lib_div::trimExplode('-',$parts[4]);
                  if (strcmp($color_style_parts[0],''))  {
                     $this->setColorScheme($GLOBALS['TBE_STYLES']['colorschemes'][intval($color_style_parts[0])]);
                  }
                  if (strcmp($color_style_parts[1],''))  {
                     $this->fieldStyle = $GLOBALS['TBE_STYLES']['styleschemes'][intval($color_style_parts[1])];
                     if (!isset($this->fieldStyle))   $this->fieldStyle = $GLOBALS['TBE_STYLES']['styleschemes'][0];
                  }
                  if (strcmp($color_style_parts[2],''))  {
                     $this->wrapBorder($out_array[$out_sheet],$out_pointer);
                     $this->borderStyle = $GLOBALS['TBE_STYLES']['borderschemes'][intval($color_style_parts[2])];
                     if (!isset($this->borderStyle))  $this->borderStyle = $GLOBALS['TBE_STYLES']['borderschemes'][0];
                  }

                     // Render the field:
                  $theField = $parts[0];
                  if (!in_array($theField,$excludeElements))   {
                     if ($TCA[$table]['columns'][$theField])   {
                        $sFieldPal='';

                        if ($parts[2] && !isset($this->palettesRendered[$this->renderDepth][$table][$parts[2]]))  {
                           $sFieldPal=$this->getPaletteFields($table,$row,$parts[2]);
                           $this->palettesRendered[$this->renderDepth][$table][$parts[2]] = 1;
                        }
                        $sField = $this->getSingleField($table,$theField,$row,$parts[1],0,$parts[3],$parts[2]);
                        if ($sField)   $sField.=$sFieldPal;

                        $out_array[$out_sheet][$out_pointer].= $sField;
                     } elseif($theField=='--div--')   {
                        if ($cc>0) {
                           $out_array[$out_sheet][$out_pointer].=$this->getDivider();

                           if ($this->enableTabMenu && $TCA[$table]['ctrl']['dividers2tabs'])   {
                              $this->wrapBorder($out_array[$out_sheet],$out_pointer);
                              $out_sheet++;
                              $out_array[$out_sheet] = array();
                              $out_array_meta[$out_sheet]['title'] = $this->sL($parts[1]);
                           }
                        } else { // Setting alternative title for "General" tab if "--div--" is the very first element.
                           $out_array_meta[$out_sheet]['title'] = $this->sL($parts[1]);
                        }
                     } elseif($theField=='--palette--')  {
                        if ($parts[2] && !isset($this->palettesRendered[$this->renderDepth][$table][$parts[2]]))  {
                              // render a 'header' if not collapsed
                           if ($TCA[$table]['palettes'][$parts[2]]['canNotCollapse'] AND $parts[1]) {
                              $out_array[$out_sheet][$out_pointer].=$this->getPaletteFields($table,$row,$parts[2],$this->sL($parts[1]));
                           } else {
                              $out_array[$out_sheet][$out_pointer].=$this->getPaletteFields($table,$row,$parts[2],'','',$this->sL($parts[1]));
                           }
                           $this->palettesRendered[$this->renderDepth][$table][$parts[2]] = 1;
                        }
                     }
                  }

                  $cc++;
               }
            }
         }
      }

         // Wrapping a border around it all:
      $this->wrapBorder($out_array[$out_sheet],$out_pointer);

         // Resetting styles:
      $this->resetSchemes();

         // Rendering Main palette, if any
      $mP = $TCA[$table]['ctrl']['mainpalette'];
      if ($mP && !isset($this->palettesRendered[$this->renderDepth][$table][$mP]))  {
         $temp_palettesCollapsed=$this->palettesCollapsed;
         $this->palettesCollapsed=0;
         $out_array[$out_sheet][$out_pointer].=$this->getPaletteFields($table,$row,$mP,$this->getLL('l_generalOptions'));
         $this->palettesCollapsed=$temp_palettesCollapsed;
         $this->palettesRendered[$this->renderDepth][$table][$mP] = 1;
      }
      $this->wrapBorder($out_array[$out_sheet],$out_pointer);

      if ($this->renderDepth) {
         $this->renderDepth--;
      }


         // Return the imploded $out_array:
      if ($out_sheet>0) {  // There were --div-- dividers around...

            // Create parts array for the tab menu:
         $parts = array();
         foreach($out_array as $idx => $sheetContent) {
            $parts[] = array(
               'label' => $out_array_meta[$idx]['title'],
               'content' => '<table border="0" cellspacing="0" cellpadding="0" width="100%">'.
                     implode('',$sheetContent).
                  '</table>'
            );
         }

         return '
            <tr>
               <td colspan="2">
               '.$this->getDynTabMenu($parts, 'TCEforms:'.$table.':'.$row['uid']).'
               </td>
            </tr>';
      } else { // Only one, so just implode:
         return implode('',$out_array[$out_sheet]);
      }
   }

   function getListedFields($table,$row,$list)  {
      global $TCA;

      t3lib_div::loadTCA($table);
      if ($this->edit_showFieldHelp || $this->doLoadTableDescr($table)) {
         $GLOBALS['LANG']->loadSingleTableDescription($table);
      }

      $out='';
      $types_fieldConfig=t3lib_BEfunc::getTCAtypes($table,$row,1);

      $editFieldList=array_unique(t3lib_div::trimExplode(',',$list,1));
      foreach($editFieldList as $theFieldC)  {
         list($theField,$palFields) = split('\[|\]',$theFieldC);
         $theField = trim($theField);
         $palFields = trim($palFields);
         if ($TCA[$table]['columns'][$theField])   {
            $parts = t3lib_div::trimExplode(';',$types_fieldConfig[$theField]['origString']);
            $sField= $this->getSingleField($table,$theField,$row,$parts[1],0,$parts[3],0);   // Don't sent palette pointer - there are no options anyways for a field-list.
            $out.= $sField;
         } elseif($theField=='--div--')   {
            $out.=$this->getDivider();
         }
         if ($palFields)   {
            $out.=$this->getPaletteFields($table,$row,'','',implode(',',t3lib_div::trimExplode('|',$palFields,1)));
         }
      }
      return $out;
   }

   function getPaletteFields($table,$row,$palette,$header='',$itemList='',$collapsedHeader='')  {
      global $TCA;
      if (!$this->doPrintPalette)   return '';

      $out='';
      $palParts=array();
      t3lib_div::loadTCA($table);

         // Getting excludeElements, if any.
      if (!is_array($this->excludeElements)) {
         $this->excludeElements = $this->getExcludeElements($table,$row,$this->getRTypeNum($table,$row));
      }

         // Render the palette TCEform elements.
      if ($TCA[$table] && (is_array($TCA[$table]['palettes'][$palette]) || $itemList)) {
         $itemList = $itemList?$itemList:$TCA[$table]['palettes'][$palette]['showitem'];
         if ($itemList) {
            $fields = t3lib_div::trimExplode(',',$itemList,1);
            reset($fields);
            while(list(,$fieldInfo)=each($fields)) {
               $parts = t3lib_div::trimExplode(';',$fieldInfo);
               $theField = $parts[0];

               if (!in_array($theField,$this->excludeElements) && $TCA[$table]['columns'][$theField]) {
                  $this->palFieldArr[$palette][] = $theField;
                  if ($this->isPalettesCollapsed($table,$palette))   {
                     $this->hiddenFieldListArr[] = $theField;
                  }

                  $part=$this->getSingleField($table,$theField,$row,$parts[1],1,'',$parts[2]);
                  if (is_array($part)) {
                     $palParts[]=$part;
                  }
               }
            }
         }
      }
         // Put palette together if there are fields in it:
      if (count($palParts))   {
         if ($header)   {
            $out.=   $this->intoTemplate(array(
                        'HEADER' => htmlspecialchars($header)
                     ),
                     $this->palFieldTemplateHeader
                  );
         }
         $out.=   $this->intoTemplate(array(
                     'PALETTE' => $this->printPalette($palParts)
                  ),
                  $this->palFieldTemplate
               );
      }
         // If a palette is collapsed (not shown in form, but in top frame instead) AND a collapse header string is given, then make that string a link to activate the palette.
      if ($this->isPalettesCollapsed($table,$palette) && $collapsedHeader) {
         $pC=  $this->intoTemplate(array(
                     'PALETTE' => $this->wrapOpenPalette('<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/options.gif','width="18" height="16"').' border="0" title="'.htmlspecialchars($this->getLL('l_moreOptions')).'" align="top" alt="" /><strong>'.$collapsedHeader.'</strong>',$table,$row,$palette),
                  ),
                  $this->palFieldTemplate
               );
         $out.=$pC;
      }
      return $out;
   }

   function getSingleField($table,$field,$row,$altName='',$palette=0,$extra='',$pal=0) {
      global $TCA,$BE_USER;

      $out = '';
      $PA = array();
      $PA['altName'] = $altName;
      $PA['palette'] = $palette;
      $PA['extra'] = $extra;
      $PA['pal'] = $pal;

         // Make sure to load full $TCA array for the table:
      t3lib_div::loadTCA($table);

         // Get the TCA configuration for the current field:
      $PA['fieldConf'] = $TCA[$table]['columns'][$field];
      $PA['fieldConf']['config']['form_type'] = $PA['fieldConf']['config']['form_type'] ? $PA['fieldConf']['config']['form_type'] : $PA['fieldConf']['config']['type'];

         // Now, check if this field is configured and editable (according to excludefields + other configuration)
      if (  is_array($PA['fieldConf']) &&
            (!$PA['fieldConf']['exclude'] || $BE_USER->check('non_exclude_fields',$table.':'.$field)) &&
            $PA['fieldConf']['config']['form_type']!='passthrough' &&
            ($this->RTEenabled || !$PA['fieldConf']['config']['showIfRTE']) &&
            (!$PA['fieldConf']['displayCond'] || $this->isDisplayCondition($PA['fieldConf']['displayCond'],$row)) &&
            (!$TCA[$table]['ctrl']['languageField'] || strcmp($PA['fieldConf']['l10n_mode'],'exclude') || $row[$TCA[$table]['ctrl']['languageField']]<=0)
         )  {

            // Fetching the TSconfig for the current table/field. This includes the $row which means that
         $PA['fieldTSConfig'] = $this->setTSconfig($table,$row,$field);

            // If the field is NOT disabled from TSconfig (which it could have been) then render it
         if (!$PA['fieldTSConfig']['disabled']) {

               // Init variables:
            $PA['itemFormElName']=$this->prependFormFieldNames.'['.$table.']['.$row['uid'].']['.$field.']';    // Form field name
            $PA['itemFormElName_file']=$this->prependFormFieldNames_file.'['.$table.']['.$row['uid'].']['.$field.']';   // Form field name, in case of file uploads
            $PA['itemFormElValue']=$row[$field];      // The value to show in the form field.

               // Create a JavaScript code line which will ask the user to save/update the form due to changing the element. This is used for eg. "type" fields and others configured with "requestUpdate"
            if (
                  (($TCA[$table]['ctrl']['type'] && !strcmp($field,$TCA[$table]['ctrl']['type'])) ||
                  ($TCA[$table]['ctrl']['requestUpdate'] && t3lib_div::inList($TCA[$table]['ctrl']['requestUpdate'],$field)))
                  && !$BE_USER->uc['noOnChangeAlertInTypeFields'])   {
               $alertMsgOnChange = 'if (confirm('.$GLOBALS['LANG']->JScharCode($this->getLL('m_onChangeAlert')).') && TBE_EDITOR_checkSubmit(-1)){ TBE_EDITOR_submitForm() };';
            } else {$alertMsgOnChange='';}

               // Render as a hidden field?
            if (in_array($field,$this->hiddenFieldListArr)) {
               $this->hiddenFieldAccum[]='<input type="hidden" name="'.$PA['itemFormElName'].'" value="'.htmlspecialchars($PA['itemFormElValue']).'" />';
            } else { // Render as a normal field:

                  // If the field is NOT a palette field, then we might create an icon which links to a palette for the field, if one exists.
               if (!$PA['palette']) {
                  if ($PA['pal'] && $this->isPalettesCollapsed($table,$PA['pal']))  {
                     list($thePalIcon,$palJSfunc) = $this->wrapOpenPalette('<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/options.gif','width="18" height="16"').' border="0" title="'.htmlspecialchars($this->getLL('l_moreOptions')).'" alt="" />',$table,$row,$PA['pal'],1);
                  } else {
                     $thePalIcon = '';
                     $palJSfunc = '';
                  }
               }
                  // onFocus attribute to add to the field:
               $PA['onFocus'] = ($palJSfunc && !$BE_USER->uc['dontShowPalettesOnFocusInAB']) ? ' onfocus="'.htmlspecialchars($palJSfunc).'"' : '';

                  // Find item
               $item='';
               $PA['label'] = $PA['altName'] ? $PA['altName'] : $PA['fieldConf']['label'];
               $PA['label'] = $this->sL($PA['label']);
                  // JavaScript code for event handlers:
               $PA['fieldChangeFunc']=array();
               $PA['fieldChangeFunc']['TBE_EDITOR_fieldChanged'] = "TBE_EDITOR_fieldChanged('".$table."','".$row['uid']."','".$field."','".$PA['itemFormElName']."');";
               $PA['fieldChangeFunc']['alert']=$alertMsgOnChange;

                  // Based on the type of the item, call a render function:
               $item = $this->getSingleField_SW($table,$field,$row,$PA);

                  // Add language + diff
               $item = $this->renderDefaultLanguageContent($table,$field,$row,$item);
               $item = $this->renderDefaultLanguageDiff($table,$field,$row,$item);

                  // If the record has been saved and the "linkTitleToSelf" is set, we make the field name into a link, which will load ONLY this field in alt_doc.php
               $PA['label'] = t3lib_div::deHSCentities(htmlspecialchars($PA['label']));
               if (t3lib_div::testInt($row['uid']) && $PA['fieldTSConfig']['linkTitleToSelf'])  {
                  $lTTS_url = $this->backPath.'alt_doc.php?edit['.$table.']['.$row['uid'].']=edit&columnsOnly='.$field.
                           ($PA['fieldTSConfig']['linkTitleToSelf.']['returnUrl']?'&returnUrl='.rawurlencode($this->thisReturnUrl()):'');
                  $PA['label'] = '<a href="'.htmlspecialchars($lTTS_url).'">'.$PA['label'].'</a>';
               }

                  // Create output value:
               if ($PA['fieldConf']['config']['form_type']=='user' && $PA['fieldConf']['config']['noTableWrapping']) {
                  $out = $item;
               } elseif ($PA['palette'])  {
                     // Array:
                  $out=array(
                     'NAME'=>$PA['label'],
                     'ID'=>$row['uid'],
                     'FIELD'=>$field,
                     'TABLE'=>$table,
                     'ITEM'=>$item,
                     'HELP_ICON' => $this->helpTextIcon($table,$field,1)
                  );
                  $out = $this->addUserTemplateMarkers($out,$table,$field,$row,$PA);
               } else {
                     // String:
                  $out=array(
                     'NAME'=>$PA['label'],
                     'ITEM'=>$item,
                     'TABLE'=>$table,
                     'ID'=>$row['uid'],
                     'HELP_ICON'=>$this->helpTextIcon($table,$field),
                     'HELP_TEXT'=>$this->helpText($table,$field),
                     'PAL_LINK_ICON'=>$thePalIcon,
                     'FIELD'=>$field
                  );
                  $out = $this->addUserTemplateMarkers($out,$table,$field,$row,$PA);
                     // String:
                  $out=$this->intoTemplate($out);
               }
            }
         } else $this->commentMessages[]=$this->prependFormFieldNames.'['.$table.']['.$row['uid'].']['.$field.']: Disabled by TSconfig';
      }
         // Return value (string or array)
      return $out;
   }

   function getSingleField_SW($table,$field,$row,&$PA)   {
      $PA['fieldConf']['config']['form_type'] = $PA['fieldConf']['config']['form_type'] ? $PA['fieldConf']['config']['form_type'] : $PA['fieldConf']['config']['type'];

      switch($PA['fieldConf']['config']['form_type']) {
         case 'input':
            $item = $this->getSingleField_typeInput($table,$field,$row,$PA);
         break;
         case 'text':
            $item = $this->getSingleField_typeText($table,$field,$row,$PA);
         break;
         case 'check':
            $item = $this->getSingleField_typeCheck($table,$field,$row,$PA);
         break;
         case 'radio':
            $item = $this->getSingleField_typeRadio($table,$field,$row,$PA);
         break;
         case 'select':
            $item = $this->getSingleField_typeSelect($table,$field,$row,$PA);
         break;
         case 'group':
            $item = $this->getSingleField_typeGroup($table,$field,$row,$PA);
         break;
         case 'none':
            $item = $this->getSingleField_typeNone($table,$field,$row,$PA);
         break;
         case 'user':
            $item = $this->getSingleField_typeUser($table,$field,$row,$PA);
         break;
         case 'flex':
            $item = $this->getSingleField_typeFlex($table,$field,$row,$PA);
         break;
         default:
            $item = $this->getSingleField_typeUnknown($table,$field,$row,$PA);
         break;
      }

      return $item;
   }



















   /**********************************************************
    *
    * Rendering of each TCEform field type
    *
    ************************************************************/

   function getSingleField_typeInput($table,$field,$row,&$PA)  {
      // typo3FormFieldSet(theField, evallist, is_in, checkbox, checkboxValue)
      // typo3FormFieldGet(theField, evallist, is_in, checkbox, checkboxValue, checkbox_off)

      $config = $PA['fieldConf']['config'];
#     $specConf = $this->getSpecConfForField($table,$row,$field);
      $specConf = $this->getSpecConfFromString($PA['extra'], $PA['fieldConf']['defaultExtras']);
      $size = t3lib_div::intInRange($config['size']?$config['size']:30,5,$this->maxInputWidth);
      $evalList = t3lib_div::trimExplode(',',$config['eval'],1);

      if (in_array('required',$evalList)) {
         $this->requiredFields[$table.'_'.$row['uid'].'_'.$field]=$PA['itemFormElName'];
      }

      $paramsList = "'".$PA['itemFormElName']."','".implode(',',$evalList)."','".trim($config['is_in'])."',".(isset($config['checkbox'])?1:0).",'".$config['checkbox']."'";
      if (isset($config['checkbox']))  {
            // Setting default "click-checkbox" values for eval types "date" and "datetime":
         $nextMidNight = mktime(0,0,0)+1*3600*24;
         $checkSetValue = in_array('date',$evalList) ? $nextMidNight : '';
         $checkSetValue = in_array('datetime',$evalList) ? time() : $checkSetValue;

         $cOnClick = 'typo3FormFieldGet('.$paramsList.',1,\''.$checkSetValue.'\');'.implode('',$PA['fieldChangeFunc']);
         $item.='<input type="checkbox" name="'.$PA['itemFormElName'].'_cb" onclick="'.htmlspecialchars($cOnClick).'" />';
      }

      $PA['fieldChangeFunc'] = array_merge(array('typo3FormFieldGet'=>'typo3FormFieldGet('.$paramsList.');'), $PA['fieldChangeFunc']);
      $mLgd = ($config['max']?$config['max']:256);
      $iOnChange = implode('',$PA['fieldChangeFunc']);
      $item.='<input type="text" name="'.$PA['itemFormElName'].'_hr" value=""'.$this->formWidth($size).' maxlength="'.$mLgd.'" onchange="'.htmlspecialchars($iOnChange).'"'.$PA['onFocus'].' />';  // This is the EDITABLE form field.
      $item.='<input type="hidden" name="'.$PA['itemFormElName'].'" value="'.htmlspecialchars($PA['itemFormElValue']).'" />';       // This is the ACTUAL form field - values from the EDITABLE field must be transferred to this field which is the one that is written to the database.
      $this->extJSCODE.='typo3FormFieldSet('.$paramsList.');';

         // Creating an alternative item without the JavaScript handlers.
      $altItem = '<input type="hidden" name="'.$PA['itemFormElName'].'_hr" value="" />';
      $altItem.= '<input type="hidden" name="'.$PA['itemFormElName'].'" value="'.htmlspecialchars($PA['itemFormElValue']).'" />';

         // Wrap a wizard around the item?
      $item= $this->renderWizards(array($item,$altItem),$config['wizards'],$table,$row,$field,$PA,$PA['itemFormElName'].'_hr',$specConf);

      return $item;
   }

   function getSingleField_typeText($table,$field,$row,&$PA)   {

         // Init config:
      $config = $PA['fieldConf']['config'];

         // Setting columns number:
      $cols = t3lib_div::intInRange($config['cols'] ? $config['cols'] : 30, 5, $this->maxTextareaWidth);

         // Setting number of rows:
      $origRows = $rows = t3lib_div::intInRange($config['rows'] ? $config['rows'] : 5, 1, 20);
      if (strlen($PA['itemFormElValue']) > $this->charsPerRow*2)  {
         $cols = $this->maxTextareaWidth;
         $rows = t3lib_div::intInRange(round(strlen($PA['itemFormElValue'])/$this->charsPerRow), count(explode(chr(10),$PA['itemFormElValue'])), 20);
         if ($rows<$origRows) $rows = $origRows;
      }

         // Init RTE vars:
      $RTEwasLoaded = 0;            // Set true, if the RTE is loaded; If not a normal textarea is shown.
      $RTEwouldHaveBeenLoaded = 0;  // Set true, if the RTE would have been loaded if it wasn't for the disable-RTE flag in the bottom of the page...

         // "Extra" configuration; Returns configuration for the field based on settings found in the "types" fieldlist. Traditionally, this is where RTE configuration has been found.
      $specConf = $this->getSpecConfFromString($PA['extra'], $PA['fieldConf']['defaultExtras']);

         // Setting up the altItem form field, which is a hidden field containing the value
      $altItem = '<input type="hidden" name="'.htmlspecialchars($PA['itemFormElName']).'" value="'.htmlspecialchars($PA['itemFormElValue']).'" />';

         // If RTE is generally enabled (TYPO3_CONF_VARS and user settings)
      if ($this->RTEenabled) {
         $p = t3lib_BEfunc::getSpecConfParametersFromArray($specConf['rte_transform']['parameters']);
         if (isset($specConf['richtext']) && (!$p['flag'] || !$row[$p['flag']])) {  // If the field is configured for RTE and if any flag-field is not set to disable it.
            list($tscPID,$thePidValue) = $this->getTSCpid($table,$row['uid'],$row['pid']);

               // If the pid-value is not negative (that is, a pid could NOT be fetched)
            if ($thePidValue >= 0)  {
               $RTEsetup = $GLOBALS['BE_USER']->getTSConfig('RTE',t3lib_BEfunc::getPagesTSconfig($tscPID));
               $RTEtypeVal = t3lib_BEfunc::getTCAtypeValue($table,$row);
               $thisConfig = t3lib_BEfunc::RTEsetup($RTEsetup['properties'],$table,$field,$RTEtypeVal);

               if (!$thisConfig['disabled']) {
                  if (!$this->disableRTE) {
                     $this->RTEcounter++;

                        // Find alternative relative path for RTE images/links:
                     $eFile = t3lib_parsehtml_proc::evalWriteFile($specConf['static_write'], $row);
                     $RTErelPath = is_array($eFile) ? dirname($eFile['relEditFile']) : '';

                        // Get RTE object, draw form and set flag:
                     $RTEobj = &t3lib_BEfunc::RTEgetObj();
                     $item = $RTEobj->drawRTE($this,$table,$field,$row,$PA,$specConf,$thisConfig,$RTEtypeVal,$RTErelPath,$thePidValue);

                        // Wizard:
                     $item = $this->renderWizards(array($item,$altItem),$config['wizards'],$table,$row,$field,$PA,$PA['itemFormElName'],$specConf,1);

                     $RTEwasLoaded = 1;
                  } else {
                     $RTEwouldHaveBeenLoaded = 1;
                     $this->commentMessages[] = $PA['itemFormElName'].': RTE is disabled by the on-page RTE-flag (probably you can enable it by the check-box in the bottom of this page!)';
                  }
               } else $this->commentMessages[] = $PA['itemFormElName'].': RTE is disabled by the Page TSconfig, "RTE"-key (eg. by RTE.default.disabled=0 or such)';
            } else $this->commentMessages[] = $PA['itemFormElName'].': PID value could NOT be fetched. Rare error, normally with new records.';
         } else {
            if (!isset($specConf['richtext']))  $this->commentMessages[] = $PA['itemFormElName'].': RTE was not configured for this field in TCA-types';
            if (!(!$p['flag'] || !$row[$p['flag']]))   $this->commentMessages[] = $PA['itemFormElName'].': Field-flag ('.$PA['flag'].') has been set to disable RTE!';
         }
      }

         // Display ordinary field if RTE was not loaded.
      if (!$RTEwasLoaded) {
         if ($specConf['rte_only']) {  // Show message, if no RTE (field can only be edited with RTE!)
            $item = '<p><em>'.htmlspecialchars($this->getLL('l_noRTEfound')).'</em></p>';
         } else {
            if ($specConf['nowrap'])   {
               $wrap = 'off';
            } else {
               $wrap = ($config['wrap'] ? $config['wrap'] : 'virtual');
            }
            $iOnChange = implode('',$PA['fieldChangeFunc']);
            $item.= '
                     <textarea name="'.$PA['itemFormElName'].'"'.$this->formWidthText($cols,$wrap).' rows="'.$rows.'" wrap="'.$wrap.'" onchange="'.htmlspecialchars($iOnChange).'"'.$PA['onFocus'].'>'.
                     t3lib_div::formatForTextarea($PA['itemFormElValue']).
                     '</textarea>';
            $item = $this->renderWizards(array($item,$altItem),$config['wizards'],$table,$row,$field,$PA,$PA['itemFormElName'],$specConf,$RTEwouldHaveBeenLoaded);
         }
      }

         // Return field HTML:
      return $item;
   }

   function getSingleField_typeCheck($table,$field,$row,&$PA)  {
      $config = $PA['fieldConf']['config'];

         // Traversing the array of items:
      $selItems = $this->initItemArray($PA['fieldConf']);
      if ($config['itemsProcFunc']) $selItems = $this->procItems($selItems,$PA['fieldTSConfig']['itemsProcFunc.'],$config,$table,$row,$field);

      if (!count($selItems))  {
         $selItems[]=array('','');
      }
      $thisValue = intval($PA['itemFormElValue']);

      $cols = intval($config['cols']);
      if ($cols > 1) {
         $item.= '<table border="0" cellspacing="0" cellpadding="0" class="typo3-TCEforms-checkboxArray">';
         for ($c=0;$c<count($selItems);$c++) {
            $p = $selItems[$c];
            if(!($c%$cols))   { $item.='<tr>'; }
            $cBP = $this->checkBoxParams($PA['itemFormElName'],$thisValue,$c,count($selItems),implode('',$PA['fieldChangeFunc']));
            $cBName = $PA['itemFormElName'].'_'.$c;
            $item.= '<td nowrap="nowrap">'.
                  '<input type="checkbox"'.$this->insertDefStyle('check').' value="1" name="'.$cBName.'"'.$cBP.' />'.
                  $this->wrapLabels(htmlspecialchars($p[0]).'&nbsp;').
                  '</td>';
            if(($c%$cols)+1==$cols) {$item.='</tr>';}
         }
         if ($c%$cols)  {
            $rest=$cols-($c%$cols);
            for ($c=0;$c<$rest;$c++) {
               $item.= '<td></td>';
            }
            if ($c>0)   { $item.= '</tr>'; }
         }
         $item.= '</table>';
      } else {
         for ($c=0;$c<count($selItems);$c++) {
            $p = $selItems[$c];
            $cBP = $this->checkBoxParams($PA['itemFormElName'],$thisValue,$c,count($selItems),implode('',$PA['fieldChangeFunc']));
            $cBName = $PA['itemFormElName'].'_'.$c;
            $item.= ($c>0?'<br />':'').
                  '<input type="checkbox"'.$this->insertDefStyle('check').' value="1" name="'.$cBName.'"'.$cBP.$PA['onFocus'].' />'.
                  htmlspecialchars($p[0]);
         }
      }
      $item.= '<input type="hidden" name="'.$PA['itemFormElName'].'" value="'.htmlspecialchars($thisValue).'" />';

      return $item;
   }

   function getSingleField_typeRadio($table,$field,$row,&$PA)  {
      $config = $PA['fieldConf']['config'];

         // Get items for the array:
      $selItems = $this->initItemArray($PA['fieldConf']);
      if ($config['itemsProcFunc']) $selItems = $this->procItems($selItems,$PA['fieldTSConfig']['itemsProcFunc.'],$config,$table,$row,$field);

         // Traverse the items, making the form elements:
      for ($c=0;$c<count($selItems);$c++) {
         $p = $selItems[$c];
         $rOnClick = implode('',$PA['fieldChangeFunc']);
         $rChecked = (!strcmp($p[1],$PA['itemFormElValue'])?' checked="checked"':'');
         $item.= '<input type="radio"'.$this->insertDefStyle('radio').' name="'.$PA['itemFormElName'].'" value="'.htmlspecialchars($p[1]).'" onclick="'.htmlspecialchars($rOnClick).'"'.$rChecked.$PA['onFocus'].' />'.
               htmlspecialchars($p[0]).
               '<br />';
      }

      return $item;
   }

   function getSingleField_typeSelect($table,$field,$row,&$PA) {
      global $TCA;

         // Field configuration from TCA:
      $config = $PA['fieldConf']['config'];

         // Getting the selector box items from the system
      $selItems = $this->addSelectOptionsToItemArray($this->initItemArray($PA['fieldConf']),$PA['fieldConf'],$this->setTSconfig($table,$row),$field);
      $selItems = $this->addItems($selItems,$PA['fieldTSConfig']['addItems.']);
      if ($config['itemsProcFunc']) $selItems = $this->procItems($selItems,$PA['fieldTSConfig']['itemsProcFunc.'],$config,$table,$row,$field);

         // Possibly remove some items:
      $removeItems = t3lib_div::trimExplode(',',$PA['fieldTSConfig']['removeItems'],1);
      foreach($selItems as $tk => $p)  {

            // Checking languages and authMode:
         $languageDeny = $TCA[$table]['ctrl']['languageField'] && !strcmp($TCA[$table]['ctrl']['languageField'], $field) && !$GLOBALS['BE_USER']->checkLanguageAccess($p[1]);
         $authModeDeny = $config['type']=='select' && $config['authMode'] && !$GLOBALS['BE_USER']->checkAuthMode($table,$field,$p[1],$config['authMode']);

         if (in_array($p[1],$removeItems) || $languageDeny || $authModeDeny)  {
            unset($selItems[$tk]);
         } elseif (isset($PA['fieldTSConfig']['altLabels.'][$p[1]])) {
            $selItems[$tk][0]=$this->sL($PA['fieldTSConfig']['altLabels.'][$p[1]]);
         }

            // Removing doktypes with no access:
         if ($table.'.'.$field == 'pages.doktype') {
            if (!($GLOBALS['BE_USER']->isAdmin() || t3lib_div::inList($GLOBALS['BE_USER']->groupData['pagetypes_select'],$p[1])))   {
               unset($selItems[$tk]);
            }
         }
      }

         // Creating the label for the "No Matching Value" entry.
      $nMV_label = isset($PA['fieldTSConfig']['noMatchingValue_label']) ? $this->sL($PA['fieldTSConfig']['noMatchingValue_label']) : '[ '.$this->getLL('l_noMatchingValue').' ]';

         // Prepare some values:
      $maxitems = intval($config['maxitems']);

         // If a SINGLE selector box...
      if ($maxitems<=1) {
         $item = $this->getSingleField_typeSelect_single($table,$field,$row,$PA,$config,$selItems,$nMV_label);
      } elseif (!strcmp($config['renderMode'],'checkbox'))  {  // Checkbox renderMode
         $item = $this->getSingleField_typeSelect_checkbox($table,$field,$row,$PA,$config,$selItems,$nMV_label);
      } elseif (!strcmp($config['renderMode'],'singlebox')) {  // Single selector box renderMode
         $item = $this->getSingleField_typeSelect_singlebox($table,$field,$row,$PA,$config,$selItems,$nMV_label);
      } else { // Traditional multiple selector box:
         $item = $this->getSingleField_typeSelect_multiple($table,$field,$row,$PA,$config,$selItems,$nMV_label);
      }

         // Wizards:
      $altItem = '<input type="hidden" name="'.$PA['itemFormElName'].'" value="'.htmlspecialchars($PA['itemFormElValue']).'" />';
      $item = $this->renderWizards(array($item,$altItem),$config['wizards'],$table,$row,$field,$PA,$PA['itemFormElName'],$specConf);

      return $item;
   }

   function getSingleField_typeSelect_single($table,$field,$row,&$PA,$config,$selItems,$nMV_label) {

         // Initialization:
      $c = 0;
      $sI = 0;
      $noMatchingValue = 1;
      $opt = array();
      $selicons = array();
      $onlySelectedIconShown = 0;
      $size = intval($config['size']);

         // Icon configuration:
      if ($config['suppress_icons']=='IF_VALUE_FALSE')   {
         $suppressIcons = !$PA['itemFormElValue'] ? 1 : 0;
      } elseif ($config['suppress_icons']=='ONLY_SELECTED') {
         $suppressIcons=0;
         $onlySelectedIconShown=1;
      } elseif ($config['suppress_icons'])   {
         $suppressIcons = 1;
      } else $suppressIcons = 0;

         // Traverse the Array of selector box items:
      foreach($selItems as $p)   {
         $sM = (!strcmp($PA['itemFormElValue'],$p[1])?' selected="selected"':'');
         if ($sM) {
            $sI = $c;
            $noMatchingValue = 0;
         }

            // Getting style attribute value (for icons):
         if ($config['iconsInOptionTags'])   {
            $styleAttrValue = $this->optionTagStyle($p[2]);
         }

            // Compiling the <option> tag:
         $opt[]= '<option value="'.htmlspecialchars($p[1]).'"'.
                  $sM.
                  ($styleAttrValue ? ' style="'.htmlspecialchars($styleAttrValue).'"' : '').
                  (!strcmp($p[1],'--div--') ? ' class="c-divider"' : '').
                  '>'.t3lib_div::deHSCentities(htmlspecialchars($p[0])).'</option>';

            // If there is an icon for the selector box (rendered in table under)...:
         if ($p[2] && !$suppressIcons && (!$onlySelectedIconShown || $sM)) {
            list($selIconFile,$selIconInfo)=$this->getIcon($p[2]);
            $iOnClick = $this->elName($PA['itemFormElName']).'.selectedIndex='.$c.'; '.implode('',$PA['fieldChangeFunc']).$this->blur().'return false;';
            $selicons[]=array(
               (!$onlySelectedIconShown ? '<a href="#" onclick="'.htmlspecialchars($iOnClick).'">' : '').
               '<img src="'.$selIconFile.'" '.$selIconInfo[3].' vspace="2" border="0" title="'.htmlspecialchars($p[0]).'" alt="'.htmlspecialchars($p[0]).'" />'.
               (!$onlySelectedIconShown ? '</a>' : ''),
               $c,$sM);
         }
         $c++;
      }

         // No-matching-value:
      if ($PA['itemFormElValue'] && $noMatchingValue && !$PA['fieldTSConfig']['disableNoMatchingValueElement'] && !$config['disableNoMatchingValueElement'])   {
         $nMV_label = @sprintf($nMV_label, $PA['itemFormElValue']);
         $opt[]= '<option value="'.htmlspecialchars($PA['itemFormElValue']).'" selected="selected">'.htmlspecialchars($nMV_label).'</option>';
      }

         // Create item form fields:
      $sOnChange = 'if (this.options[this.selectedIndex].value==\'--div--\') {this.selectedIndex='.$sI.';} '.implode('',$PA['fieldChangeFunc']);
      $item.= '<input type="hidden" name="'.$PA['itemFormElName'].'_selIconVal" value="'.htmlspecialchars($sI).'" />';  // MUST be inserted before the selector - else is the value of the hiddenfield here mysteriously submitted...
      $item.= '<select name="'.$PA['itemFormElName'].'"'.
               $this->insertDefStyle('select').
               ($size?' size="'.$size.'"':'').
               ' onchange="'.htmlspecialchars($sOnChange).'"'.
               $PA['onFocus'].'>';
      $item.= implode('',$opt);
      $item.= '</select>';

         // Create icon table:
      if (count($selicons))   {
         $item.='<table border="0" cellpadding="0" cellspacing="0" class="typo3-TCEforms-selectIcons">';
         $selicon_cols = intval($config['selicon_cols']);
         if (!$selicon_cols)  $selicon_cols=count($selicons);
         $sR = ceil(count($selicons)/$selicon_cols);
         $selicons = array_pad($selicons,$sR*$selicon_cols,'');
         for($sa=0;$sa<$sR;$sa++)   {
            $item.='<tr>';
            for($sb=0;$sb<$selicon_cols;$sb++)  {
               $sk=($sa*$selicon_cols+$sb);
               $imgN = 'selIcon_'.$table.'_'.$row['uid'].'_'.$field.'_'.$selicons[$sk][1];
               $imgS = ($selicons[$sk][2]?$this->backPath.'gfx/content_selected.gif':'clear.gif');
               $item.='<td><img name="'.htmlspecialchars($imgN).'" src="'.$imgS.'" width="7" height="10" alt="" /></td>';
               $item.='<td>'.$selicons[$sk][0].'</td>';
            }
            $item.='</tr>';
         }
         $item.='</table>';
      }

      return $item;
   }

   function getSingleField_typeSelect_checkbox($table,$field,$row,&$PA,$config,$selItems,$nMV_label)  {

         // Get values in an array (and make unique, which is fine because there can be no duplicates anyway):
      $itemArray = array_flip($this->extractValuesOnlyFromValueLabelList($PA['itemFormElValue']));

         // Traverse the Array of selector box items:
      $tRows = array();
      $sOnChange = implode('',$PA['fieldChangeFunc']);
      $c=0;
      $setAll = array();   // Used to accumulate the JS needed to restore the original selection.
      foreach($selItems as $p)   {
            // Non-selectable element:
         if (!strcmp($p[1],'--div--')) {
            if (count($setAll))  {
                  $tRows[] = '
                     <tr>
                        <td colspan="2">'.
                        '<a href="#" onclick="'.htmlspecialchars(implode('',$setAll).' return false;').'">'.
                        htmlspecialchars($this->getLL('l_setAllCheckboxes')).
                        '</a></td>
                     </tr>';
                  $setAll = array();
            }

            $tRows[] = '
               <tr class="c-header">
                  <td colspan="2">'.htmlspecialchars($p[0]).'</td>
               </tr>';
         } else {
               // Selected or not by default:
            $sM = '';
            if (isset($itemArray[$p[1]])) {
               $sM = ' checked="checked"';
               unset($itemArray[$p[1]]);
            }

               // Icon:
            $selIconFile = '';
            if ($p[2])  {
               list($selIconFile,$selIconInfo) = $this->getIcon($p[2]);
            }

               // Compile row:
            $onClickCell = $this->elName($PA['itemFormElName'].'['.$c.']').'.checked=!'.$this->elName($PA['itemFormElName'].'['.$c.']').'.checked;';
            $onClick = 'this.attributes.getNamedItem("class").nodeValue = '.$this->elName($PA['itemFormElName'].'['.$c.']').'.checked ? "c-selectedItem" : "";';
            $setAll[] = $this->elName($PA['itemFormElName'].'['.$c.']').'.checked=1;';
            $tRows[] = '
               <tr class="'.($sM ? 'c-selectedItem' : '').'" onclick="'.htmlspecialchars($onClick).'" style="cursor: pointer;">
                  <td><input type="checkbox" name="'.htmlspecialchars($PA['itemFormElName'].'['.$c.']').'" value="'.htmlspecialchars($p[1]).'"'.$sM.' onclick="'.htmlspecialchars($sOnChange).'"'.$PA['onFocus'].' /></td>
                  <td class="c-labelCell" onclick="'.htmlspecialchars($onClickCell).'">'.
                     ($selIconFile ? '<img src="'.$selIconFile.'" '.$selIconInfo[3].' vspace="2" border="0" class="absmiddle" style="margin-right: 4px;" alt="" />' : '').
                     t3lib_div::deHSCentities(htmlspecialchars($p[0])).
                     (strcmp($p[3],'') ? '<br/><p class="c-descr">'.nl2br(trim(htmlspecialchars($p[3]))).'</p>' : '').
                     '</td>
               </tr>';
            $c++;
         }
      }

         // Remaining checkboxes will get their set-all link:
      if (count($setAll))  {
            $tRows[] = '
               <tr>
                  <td colspan="2">'.
                  '<a href="#" onclick="'.htmlspecialchars(implode('',$setAll).' return false;').'">'.
                  htmlspecialchars($this->getLL('l_setAllCheckboxes')).
                  '</a></td>
               </tr>';
      }

         // Remaining values (invalid):
      if (count($itemArray) && !$PA['fieldTSConfig']['disableNoMatchingValueElement'] && !$config['disableNoMatchingValueElement']) {
         foreach($itemArray as $theNoMatchValue => $temp)   {
               // Compile <checkboxes> tag:
            array_unshift($tRows,'
                  <tr class="c-invalidItem">
                     <td><input type="checkbox" name="'.htmlspecialchars($PA['itemFormElName'].'['.$c.']').'" value="'.htmlspecialchars($theNoMatchValue).'" checked="checked" onclick="'.htmlspecialchars($sOnChange).'"'.$PA['onFocus'].' /></td>
                     <td class="c-labelCell">'.
                        t3lib_div::deHSCentities(htmlspecialchars(@sprintf($nMV_label, $theNoMatchValue))).
                        '</td>
                  </tr>');
            $c++;
         }
      }

         // Add an empty hidden field which will send a blank value if all items are unselected.
      $item.='<input type="hidden" name="'.htmlspecialchars($PA['itemFormElName']).'" value="" />';

         // Implode rows in table:
      $item.= '
         <table border="0" cellpadding="0" cellspacing="0" class="typo3-TCEforms-select-checkbox">'.
            implode('',$tRows).'
         </table>
         ';

      return $item;
   }

   function getSingleField_typeSelect_singlebox($table,$field,$row,&$PA,$config,$selItems,$nMV_label) {

         // Get values in an array (and make unique, which is fine because there can be no duplicates anyway):
      $itemArray = array_flip($this->extractValuesOnlyFromValueLabelList($PA['itemFormElValue']));

         // Traverse the Array of selector box items:
      $opt = array();
      $restoreCmd = array();  // Used to accumulate the JS needed to restore the original selection.
      $c = 0;
      foreach($selItems as $p)   {
            // Selected or not by default:
         $sM = '';
         if (isset($itemArray[$p[1]])) {
            $sM = ' selected="selected"';
            $restoreCmd[] = $this->elName($PA['itemFormElName'].'[]').'.options['.$c.'].selected=1;';
            unset($itemArray[$p[1]]);
         }

            // Non-selectable element:
         $nonSel = '';
         if (!strcmp($p[1],'--div--')) {
            $nonSel = ' onclick="this.selected=0;" class="c-divider"';
         }

            // Icon style for option tag:
         if ($config['iconsInOptionTags']) {
            $styleAttrValue = $this->optionTagStyle($p[2]);
         }

            // Compile <option> tag:
         $opt[] = '<option value="'.htmlspecialchars($p[1]).'"'.
                  $sM.
                  $nonSel.
                  ($styleAttrValue ? ' style="'.htmlspecialchars($styleAttrValue).'"' : '').
                  '>'.t3lib_div::deHSCentities(htmlspecialchars($p[0])).'</option>';
         $c++;
      }

         // Remaining values:
      if (count($itemArray) && !$PA['fieldTSConfig']['disableNoMatchingValueElement'] && !$config['disableNoMatchingValueElement']) {
         foreach($itemArray as $theNoMatchValue => $temp)   {
               // Compile <option> tag:
            array_unshift($opt,'<option value="'.htmlspecialchars($theNoMatchValue).'" selected="selected">'.t3lib_div::deHSCentities(htmlspecialchars(@sprintf($nMV_label, $theNoMatchValue))).'</option>');
         }
      }

         // Compile selector box:
      $sOnChange = implode('',$PA['fieldChangeFunc']);
      $selector_itemListStyle = isset($config['itemListStyle']) ? ' style="'.htmlspecialchars($config['itemListStyle']).'"' : ' style="'.$this->defaultMultipleSelectorStyle.'"';
      $size = intval($config['size']);
      $size = $config['autoSizeMax'] ? t3lib_div::intInRange(count($selItems)+1,t3lib_div::intInRange($size,1),$config['autoSizeMax']) : $size;
      $selectBox = '<select name="'.$PA['itemFormElName'].'[]"'.
                  $this->insertDefStyle('select').
                  ($size ? ' size="'.$size.'"' : '').
                  ' multiple="multiple" onchange="'.htmlspecialchars($sOnChange).'"'.
                  $PA['onFocus'].
                  $selector_itemListStyle.'>
                  '.
               implode('
                  ',$opt).'
               </select>';

         // Add an empty hidden field which will send a blank value if all items are unselected.
      $item.='<input type="hidden" name="'.htmlspecialchars($PA['itemFormElName']).'" value="" />';

         // Put it all into a table:
      $item.= '
         <table border="0" cellspacing="0" cellpadding="0" width="1" class="typo3-TCEforms-select-singlebox">
            <tr>
               <td>
               '.$selectBox.'
               <br/>
               <em>'.
                  htmlspecialchars($this->getLL('l_holdDownCTRL')).
                  '</em>
               </td>
               <td valign="top">
               <a href="#" onclick="'.htmlspecialchars($this->elName($PA['itemFormElName'].'[]').'.selectedIndex=-1;'.implode('',$restoreCmd).' return false;').'">'.
                  '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/history.gif','width="13" height="12"').' title="'.htmlspecialchars($this->getLL('l_revertSelection')).'" alt="" />'.
                  '</a>
               </td>
            </tr>
         </table>
            ';

      return $item;
   }

   function getSingleField_typeSelect_multiple($table,$field,$row,&$PA,$config,$selItems,$nMV_label)  {

         // Setting this hidden field (as a flag that JavaScript can read out)
      $item.= '<input type="hidden" name="'.$PA['itemFormElName'].'_mul" value="'.($config['multiple']?1:0).'" />';

         // Set max and min items:
      $maxitems = t3lib_div::intInRange($config['maxitems'],0);
      if (!$maxitems)   $maxitems=100000;
      $minitems = t3lib_div::intInRange($config['minitems'],0);

         // Register the required number of elements:
      $this->requiredElements[$PA['itemFormElName']] = array($minitems,$maxitems,'imgName'=>$table.'_'.$row['uid'].'_'.$field);

         // Get "removeItems":
      $removeItems = t3lib_div::trimExplode(',',$PA['fieldTSConfig']['removeItems'],1);

         // Perform modification of the selected items array:
      $itemArray = t3lib_div::trimExplode(',',$PA['itemFormElValue'],1);
      foreach($itemArray as $tk => $tv) {
         $tvP = explode('|',$tv,2);
         $evalValue = rawurldecode($tvP[0]);
         $isRemoved = in_array($evalValue,$removeItems)  || ($config['type']=='select' && $config['authMode'] && !$GLOBALS['BE_USER']->checkAuthMode($table,$field,$evalValue,$config['authMode']));
         if ($isRemoved && !$PA['fieldTSConfig']['disableNoMatchingValueElement'] && !$config['disableNoMatchingValueElement'])  {
            $tvP[1] = rawurlencode(@sprintf($nMV_label, $evalValue));
         } elseif (isset($PA['fieldTSConfig']['altLabels.'][$evalValue])) {
            $tvP[1] = rawurlencode($this->sL($PA['fieldTSConfig']['altLabels.'][$evalValue]));
         } else {
            $tvP[1] = rawurlencode($this->sL(rawurldecode($tvP[1])));
         }
         $itemArray[$tk] = implode('|',$tvP);
      }

         // Create option tags:
      $opt = array();
      $styleAttrValue = '';
      foreach($selItems as $p)   {
         if ($config['iconsInOptionTags'])   {
            $styleAttrValue = $this->optionTagStyle($p[2]);
         }
         $opt[]= '<option value="'.htmlspecialchars($p[1]).'"'.
                     ($styleAttrValue ? ' style="'.htmlspecialchars($styleAttrValue).'"' : '').
                     '>'.htmlspecialchars($p[0]).'</option>';
      }

         // Put together the selector box:
      $selector_itemListStyle = isset($config['itemListStyle']) ? ' style="'.htmlspecialchars($config['itemListStyle']).'"' : ' style="'.$this->defaultMultipleSelectorStyle.'"';
      $size = intval($config['size']);
      $size = $config['autoSizeMax'] ? t3lib_div::intInRange(count($itemArray)+1,t3lib_div::intInRange($size,1),$config['autoSizeMax']) : $size;
      $sOnChange = 'setFormValueFromBrowseWin(\''.$PA['itemFormElName'].'\',this.options[this.selectedIndex].value,this.options[this.selectedIndex].text); '.implode('',$PA['fieldChangeFunc']);
      $itemsToSelect = '
         <select name="'.$PA['itemFormElName'].'_sel"'.
                  $this->insertDefStyle('select').
                  ($size ? ' size="'.$size.'"' : '').
                  ' onchange="'.htmlspecialchars($sOnChange).'"'.
                  $PA['onFocus'].
                  $selector_itemListStyle.'>
            '.implode('
            ',$opt).'
         </select>';

         // Pass to "dbFileIcons" function:
      $params = array(
         'size' => $size,
         'autoSizeMax' => t3lib_div::intInRange($config['autoSizeMax'],0),
         'style' => isset($config['selectedListStyle']) ? ' style="'.htmlspecialchars($config['selectedListStyle']).'"' : ' style="'.$this->defaultMultipleSelectorStyle.'"',
         'dontShowMoveIcons' => ($maxitems<=1),
         'maxitems' => $maxitems,
         'info' => '',
         'headers' => array(
            'selector' => $this->getLL('l_selected').':<br />',
            'items' => $this->getLL('l_items').':<br />'
         ),
         'noBrowser' => 1,
         'thumbnails' => $itemsToSelect
      );
      $item.= $this->dbFileIcons($PA['itemFormElName'],'','',$itemArray,'',$params,$PA['onFocus']);

      return $item;
   }

   function getSingleField_typeGroup($table,$field,$row,&$PA)  {
         // Init:
      $config = $PA['fieldConf']['config'];
      $internal_type = $config['internal_type'];
      $show_thumbs = $config['show_thumbs'];
      $size = intval($config['size']);
      $maxitems = t3lib_div::intInRange($config['maxitems'],0);
      if (!$maxitems)   $maxitems=100000;
      $minitems = t3lib_div::intInRange($config['minitems'],0);
      $allowed = $config['allowed'];
      $disallowed = $config['disallowed'];

      $item.= '<input type="hidden" name="'.$PA['itemFormElName'].'_mul" value="'.($config['multiple']?1:0).'" />';
      $this->requiredElements[$PA['itemFormElName']] = array($minitems,$maxitems,'imgName'=>$table.'_'.$row['uid'].'_'.$field);
      $info='';

         // Acting according to either "file" or "db" type:
      switch((string)$config['internal_type'])  {
         case 'file':   // If the element is of the internal type "file":

               // Creating string showing allowed types:
            $tempFT = t3lib_div::trimExplode(',',$allowed,1);
            if (!count($tempFT)) {$info.='*';}
            foreach($tempFT as $ext)   {
               if ($ext)   {
                  $info.=strtoupper($ext).' ';
               }
            }
               // Creating string, showing disallowed types:
            $tempFT_dis = t3lib_div::trimExplode(',',$disallowed,1);
            if (count($tempFT_dis)) {$info.='<br />';}
            foreach($tempFT_dis as $ext)  {
               if ($ext)   {
                  $info.='-'.strtoupper($ext).' ';
               }
            }

               // Making the array of file items:
            $itemArray = t3lib_div::trimExplode(',',$PA['itemFormElValue'],1);

               // Showing thumbnails:
            $thumbsnail = '';
            if ($show_thumbs) {
               $imgs = array();
               foreach($itemArray as $imgRead)  {
                  $imgP = explode('|',$imgRead);

                  $rowCopy = array();
                  $rowCopy[$field] = $imgP[0];

                     // Icon + clickmenu:
                  $absFilePath = t3lib_div::getFileAbsFileName($config['uploadfolder'].'/'.$imgP[0]);

                  $fI = pathinfo($imgP[0]);
                  $fileIcon = t3lib_BEfunc::getFileIcon(strtolower($fI['extension']));
                  $fileIcon = '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/fileicons/'.$fileIcon,'width="18" height="16"').' class="absmiddle" title="'.htmlspecialchars($fI['basename'].($absFilePath ? ' ('.t3lib_div::formatSize(filesize($absFilePath)).'bytes)' : ' - FILE NOT FOUND!')).'" alt="" />';

                  $imgs[] = '<span class="nobr">'.t3lib_BEfunc::thumbCode($rowCopy,$table,$field,$this->backPath,'thumbs.php',$config['uploadfolder'],0,' align="middle"').
                           ($absFilePath ? $this->getClickMenu($fileIcon, $absFilePath) : $fileIcon).
                           $imgP[0].
                           '</span>';
               }
               $thumbsnail = implode('<br />',$imgs);
            }

               // Creating the element:
            $params = array(
               'size' => $size,
               'dontShowMoveIcons' => ($maxitems<=1),
               'autoSizeMax' => t3lib_div::intInRange($config['autoSizeMax'],0),
               'maxitems' => $maxitems,
               'style' => isset($config['selectedListStyle']) ? ' style="'.htmlspecialchars($config['selectedListStyle']).'"' : ' style="'.$this->defaultMultipleSelectorStyle.'"',
               'info' => $info,
               'thumbnails' => $thumbsnail
            );
            $item.= $this->dbFileIcons($PA['itemFormElName'],'file',implode(',',$tempFT),$itemArray,'',$params,$PA['onFocus']);

               // Adding the upload field:
            if ($this->edit_docModuleUpload) $item.='<input type="file" name="'.$PA['itemFormElName_file'].'"'.$this->formWidth().' size="60" />';
         break;
         case 'db':  // If the element is of the internal type "db":

               // Creating string showing allowed types:
            $tempFT = t3lib_div::trimExplode(',',$allowed,1);
            if (!strcmp(trim($tempFT[0]),'*'))  {
               $info.='<span class="nobr">&nbsp;&nbsp;&nbsp;&nbsp;'.
                     htmlspecialchars($this->getLL('l_allTables')).
                     '</span><br />';
            } else {
               while(list(,$theT)=each($tempFT))   {
                  if ($theT)  {
                     $info.='<span class="nobr">&nbsp;&nbsp;&nbsp;&nbsp;'.
                           t3lib_iconWorks::getIconImage($theT,array(),$this->backPath,'align="top"').
                           htmlspecialchars($this->sL($GLOBALS['TCA'][$theT]['ctrl']['title'])).
                           '</span><br />';
                  }
               }
            }

            $perms_clause = $GLOBALS['BE_USER']->getPagePermsClause(1);
            $itemArray = array();
            $imgs = array();

               // Thumbnails:
            $temp_itemArray = t3lib_div::trimExplode(',',$PA['itemFormElValue'],1);
            foreach($temp_itemArray as $dbRead) {
               $recordParts = explode('|',$dbRead);
               list($this_table,$this_uid) = t3lib_BEfunc::splitTable_Uid($recordParts[0]);
               $itemArray[] = array('table'=>$this_table, 'id'=>$this_uid);
               if ($show_thumbs) {
                  $rr = t3lib_BEfunc::getRecord($this_table,$this_uid);
                  $imgs[] = '<span class="nobr">'.
                        $this->getClickMenu(t3lib_iconWorks::getIconImage($this_table,$rr,$this->backPath,'align="top" title="'.htmlspecialchars(t3lib_BEfunc::getRecordPath($rr['pid'],$perms_clause,15)).' [UID: '.$rr['uid'].']"'),$this_table, $this_uid).
                        '&nbsp;'.
                        $this->noTitle($rr[$GLOBALS['TCA'][$this_table]['ctrl']['label']],array('<em>','</em>')).
                        '</span>';
               }
            }
            $thumbsnail='';
            if ($show_thumbs) {
               $thumbsnail = implode('<br />',$imgs);
            }

               // Creating the element:
            $params = array(
               'size' => $size,
               'dontShowMoveIcons' => ($maxitems<=1),
               'autoSizeMax' => t3lib_div::intInRange($config['autoSizeMax'],0),
               'maxitems' => $maxitems,
               'style' => isset($config['selectedListStyle']) ? ' style="'.htmlspecialchars($config['selectedListStyle']).'"' : ' style="'.$this->defaultMultipleSelectorStyle.'"',
               'info' => $info,
               'thumbnails' => $thumbsnail
            );
            $item.= $this->dbFileIcons($PA['itemFormElName'],'db',implode(',',$tempFT),$itemArray,'',$params,$PA['onFocus']);
         break;
      }

         // Wizards:
      $altItem = '<input type="hidden" name="'.$PA['itemFormElName'].'" value="'.htmlspecialchars($PA['itemFormElValue']).'" />';
      $item = $this->renderWizards(array($item,$altItem),$config['wizards'],$table,$row,$field,$PA,$PA['itemFormElName'],$specConf);

      return $item;
   }

   function getSingleField_typeNone($table,$field,$row,&$PA)   {
         // Init:
      $config = $PA['fieldConf']['config'];
      $itemValue = $PA['itemFormElValue'];

      return $this->getSingleField_typeNone_render($config,$itemValue);
   }

   function getSingleField_typeNone_render($config,$itemValue) {

            // is colorScheme[0] the right value?
      $divStyle = 'border:solid 1px '.t3lib_div::modifyHTMLColorAll($this->colorScheme[0],-30).';'.$this->defStyle.$this->formElStyle('none').' background-color: '.$this->colorScheme[0].'; padding-left:1px;color:#555;';

      if ($config['rows']>1) {
         if(!$config['pass_content']) {
            $itemValue = nl2br(htmlspecialchars($itemValue));
         }
            // like textarea
         $cols = t3lib_div::intInRange($config['cols'] ? $config['cols'] : 30, 5, $this->maxTextareaWidth);
         if (!$config['fixedRows']) {
            $origRows = $rows = t3lib_div::intInRange($config['rows'] ? $config['rows'] : 5, 1, 20);
            if (strlen($itemValue)>$this->charsPerRow*2) {
               $cols = $this->maxTextareaWidth;
               $rows = t3lib_div::intInRange(round(strlen($itemValue)/$this->charsPerRow),count(explode(chr(10),$itemValue)),20);
               if ($rows<$origRows) $rows=$origRows;
            }
         } else {
            $rows = intval($config['rows']);
         }

         if ($this->docLarge) $cols = round($cols*$this->form_largeComp);
         $width = ceil($cols*$this->form_rowsToStylewidth);
            // hardcoded: 12 is the height of the font
         $height=$rows*12;

         $item='
            <div style="'.htmlspecialchars($divStyle.' overflow:auto; height:'.$height.'px; width:'.$width.'px;').'" class="'.htmlspecialchars($this->formElClass('none')).'">'.
            $itemValue.
            '</div>';
      } else {
         if(!$config['pass_content']) {
            $itemValue = htmlspecialchars($itemValue);
         }

         $cols = $config['cols']?$config['cols']:($config['size']?$config['size']:$this->maxInputWidth);
         if ($this->docLarge) $cols = round($cols*$this->form_largeComp);
         $width = ceil($cols*$this->form_rowsToStylewidth);

            // overflow:auto crashes mozilla here. Title tag is usefull when text is longer than the div box (overflow:hidden).
         $item = '
            <div style="'.htmlspecialchars($divStyle.' overflow:hidden; width:'.$width.'px;').'" class="'.htmlspecialchars($this->formElClass('none')).'" title="'.$itemValue.'">'.
            '<span class="nobr">'.(strcmp($itemValue,'')?$itemValue:'&nbsp;').'</span>'.
            '</div>';
      }

      return $item;
   }

   function getSingleField_typeFlex($table,$field,$row,&$PA)   {

         // Data Structure:
      $dataStructArray = t3lib_BEfunc::getFlexFormDS($PA['fieldConf']['config'],$row,$table);
#debug($dataStructArray);

         // Get data structure:
      if (is_array($dataStructArray))  {
#debug(array(str_replace(' ',chr(160),$PA['itemFormElValue'])));

            // Get data:
         $xmlData = $PA['itemFormElValue'];
         $xmlHeaderAttributes = t3lib_div::xmlGetHeaderAttribs($xmlData);
         $storeInCharset = strtolower($xmlHeaderAttributes['encoding']);
         if ($storeInCharset) {
            $currentCharset=$GLOBALS['LANG']->charSet;
            $xmlData = $GLOBALS['LANG']->csConvObj->conv($xmlData,$storeInCharset,$currentCharset,1);
         }
         $editData=t3lib_div::xml2array($xmlData);
         if (!is_array($editData))  {  // Must be XML parsing error...
#debug(array($editData,$xmlData));
            $editData=array();
         }

            // Find the data structure if sheets are found:
         $sheet = $editData['meta']['currentSheetId'] ? $editData['meta']['currentSheetId'] : 'sDEF'; // Sheet to display
#        $item.= '<input type="hidden" name="'.$PA['itemFormElName'].'[meta][currentSheetId]" value="'.$sheet.'">';

            // Create sheet menu:
         if (is_array($dataStructArray['sheets'])) {
            #$item.=$this->getSingleField_typeFlex_sheetMenu($dataStructArray['sheets'], $PA['itemFormElName'].'[meta][currentSheetId]', $sheet).'<br />';
         }
#debug($editData);

            // Create language menu:
         $langChildren = $dataStructArray['meta']['langChildren'] ? 1 : 0;
         $langDisabled = $dataStructArray['meta']['langDisable'] ? 1 : 0;

         $languages = $this->getAvailableLanguages();

         if (!is_array($editData['meta']['currentLangId']) || !count($editData['meta']['currentLangId']))   {
            $editData['meta']['currentLangId']=array('DEF');
         }
         $editData['meta']['currentLangId'] = array_unique($editData['meta']['currentLangId']);

         if (!$langDisabled && count($languages) > 1) {
            $item.=$this->getSingleField_typeFlex_langMenu($languages, $PA['itemFormElName'].'[meta][currentLangId]', $editData['meta']['currentLangId']).'<br />';
         }

         if ($langChildren || $langDisabled) {
            $rotateLang = array('DEF');
         } else {
            $rotateLang = $editData['meta']['currentLangId'];
         }

            // Tabs sheets
         if (is_array($dataStructArray['sheets'])) {
            $tabsToTraverse = array_keys($dataStructArray['sheets']);
         } else {
            $tabsToTraverse = array($sheet);
         }

         foreach($rotateLang as $lKey) {
            if (!$langChildren && !$langDisabled)  {
               $item.= '<b>'.$lKey.':</b>';
            }

            $tabParts = array();
            foreach($tabsToTraverse as $sheet)  {
               $sheetCfg = $dataStructArray['sheets'][$sheet];
               list ($dataStruct, $sheet) = t3lib_div::resolveSheetDefInDS($dataStructArray,$sheet);

                  // Render sheet:
               if (is_array($dataStruct['ROOT']) && is_array($dataStruct['ROOT']['el']))     {
                  $cmdData = t3lib_div::_GP('flexFormsCmdData');
                  $lang = 'l'.$lKey;   // Default language, other options are "lUK" or whatever country code (independant of system!!!)
                  $PA['_valLang'] = $langChildren && !$langDisabled ? $editData['meta']['currentLangId'] : 'DEF'; // Default language, other options are "lUK" or whatever country code (independant of system!!!)

                     // Render flexform:
                  $tRows = $this->getSingleField_typeFlex_draw(
                           $dataStruct['ROOT']['el'],
                           $editData['data'][$sheet][$lang],
                           $cmdData['data'][$sheet][$lang],
                           $table,
                           $field,
                           $row,
                           $PA,
                           '[data]['.$sheet.']['.$lang.']'
                        );
                  $sheetContent= '<table border="0" cellpadding="1" cellspacing="1" class="typo3-TCEforms-flexForm">'.implode('',$tRows).'</table>';

         #        $item = '<div style=" position:absolute;">'.$item.'</div>';
                  //visibility:hidden;
               } else $sheetContent='Data Structure ERROR: No ROOT element found for sheet "'.$sheet.'".';

                  // Add to tab:
               $tabParts[] = array(
                  'label' => ($sheetCfg['ROOT']['TCEforms']['sheetTitle'] ? $this->sL($sheetCfg['ROOT']['TCEforms']['sheetTitle']) : $sheet),
                  'description' => ($sheetCfg['ROOT']['TCEforms']['sheetDescription'] ? $this->sL($sheetCfg['ROOT']['TCEforms']['sheetDescription']) : ''),
                  'linkTitle' => ($sheetCfg['ROOT']['TCEforms']['sheetShortDescr'] ? $this->sL($sheetCfg['ROOT']['TCEforms']['sheetShortDescr']) : ''),
                  'content' => $sheetContent
               );
            }

            if (is_array($dataStructArray['sheets'])) {
               $item.= $this->getDynTabMenu($tabParts,'TCEFORMS:flexform:'.$PA['itemFormElName']);
            } else {
               $item.= $sheetContent;
            }
         }
      } else $item='Data Structure ERROR: '.$dataStructArray;

      return $item;
   }

   function getSingleField_typeFlex_langMenu($languages,$elName,$selectedLanguage,$multi=1)  {
      $opt=array();
      foreach($languages as $lArr)  {
         $opt[]='<option value="'.htmlspecialchars($lArr['ISOcode']).'"'.(in_array($lArr['ISOcode'],$selectedLanguage)?' selected="selected"':'').'>'.htmlspecialchars($lArr['title']).'</option>';
      }

      $output = '<select name="'.$elName.'[]"'.($multi ? ' multiple="multiple" size="'.count($languages).'"' : '').'>'.implode('',$opt).'</select>';

      return $output;
   }

   function getSingleField_typeFlex_sheetMenu($sArr,$elName,$sheetKey)  {

      $tCells =array();
      $pct = round(100/count($sArr));
      foreach($sArr as $sKey => $sheetCfg)   {
         $onClick = 'if (confirm('.$GLOBALS['LANG']->JScharCode($this->getLL('m_onChangeAlert')).') && TBE_EDITOR_checkSubmit(-1)){'.$this->elName($elName).".value='".$sKey."'; TBE_EDITOR_submitForm()};";

         $tCells[]='<td width="'.$pct.'%" style="'.($sKey==$sheetKey ? 'background-color: #9999cc; font-weight: bold;' : 'background-color: #aaaaaa;').' cursor: hand;" onclick="'.htmlspecialchars($onClick).'" align="center">'.
               ($sheetCfg['ROOT']['TCEforms']['sheetTitle'] ? $this->sL($sheetCfg['ROOT']['TCEforms']['sheetTitle']) : $sKey).
               '</td>';
      }

      return '<table border="0" cellpadding="0" cellspacing="2" class="typo3-TCEforms-flexForm-sheetMenu"><tr>'.implode('',$tCells).'</tr></table>';
   }

   function getSingleField_typeFlex_draw($dataStruct,$editData,$cmdData,$table,$field,$row,&$PA,$formPrefix='',$level=0,$tRows=array())   {

         // Data Structure array must be ... and array of course...
      if (is_array($dataStruct)) {
         foreach($dataStruct as $key => $value) {
            if (is_array($value))   {  // The value of each entry must be an array.

                  // ********************
                  // Making the row:
                  // ********************
               $rowCells=array();

                  // Icon:
               $rowCells['title'] = '<img src="clear.gif" width="'.($level*16).'" height="1" alt="" /><strong>'.htmlspecialchars(t3lib_div::fixed_lgd_cs($this->sL($value['tx_templavoila']['title']),30)).'</strong>';;

               $rowCells['formEl']='';
               if ($value['type']=='array')  {
                  if ($value['section'])  {
                     if (is_array($value['el']))   {
                        $opt=array();
                        $opt[]='<option value=""></option>';
                        foreach($value['el'] as $kk => $vv) {
                           $opt[]='<option value="'.$kk.'">'.htmlspecialchars('NEW "'.$value['el'][$kk]['tx_templavoila']['title'].'"').'</option>';
                        }
                        $rowCells['formEl']='<select name="flexFormsCmdData'.$formPrefix.'['.$key.'][value]">'.implode('',$opt).'</select>';
                     }

                        // Put row together
                     $tRows[]='<tr class="bgColor2">
                        <td nowrap="nowrap" valign="top">'.$rowCells['title'].'</td>
                        <td>'.$rowCells['formEl'].'</td>
                     </tr>';

                     $cc=0;
                     if (is_array($editData[$key]['el']))   {
                        foreach($editData[$key]['el'] as $k3 => $v3) {
                           $cc=$k3;
                           $theType = key($v3);
                           $theDat = $v3[$theType];
                           $newSectionEl = $value['el'][$theType];
                           if (is_array($newSectionEl))  {
                              $tRows = $this->getSingleField_typeFlex_draw(
                                 array($theType => $newSectionEl),
                                 array($theType => $theDat),
                                 $cmdData[$key]['el'][$cc],
                                 $table,
                                 $field,
                                 $row,
                                 $PA,
                                 $formPrefix.'['.$key.'][el]['.$cc.']',
                                 $level+1,
                                 $tRows
                              );
                           }
                        }
                     }



                        // New form?
                     if ($cmdData[$key]['value'])  {
                        $newSectionEl = $value['el'][$cmdData[$key]['value']];
                        if (is_array($newSectionEl))  {
                           $tRows = $this->getSingleField_typeFlex_draw(
                              array($cmdData[$key]['value'] => $newSectionEl),
                              array(),
                              array(),
                              $table,
                              $field,
                              $row,
                              $PA,
                              $formPrefix.'['.$key.'][el]['.($cc+1).']',
                              $level+1,
                              $tRows
                           );
                        }
                     }
                  } else {
                        // Put row together
                     $tRows[]='<tr class="bgColor2">
                        <td nowrap="nowrap" valign="top">'.
                        '<input name="_DELETE_FLEX_FORM'.$PA['itemFormElName'].$formPrefix.'" type="checkbox" value="1" /><img src="'.$this->backPath.'gfx/garbage.gif" border="0" alt="" />'.
                        $rowCells['title'].'</td>
                        <td>'.$rowCells['formEl'].'</td>
                     </tr>';

                     $tRows = $this->getSingleField_typeFlex_draw(
                        $value['el'],
                        $editData[$key]['el'],
                        $cmdData[$key]['el'],
                        $table,
                        $field,
                        $row,
                        $PA,
                        $formPrefix.'['.$key.'][el]',
                        $level+1,
                        $tRows
                     );
                  }

               } elseif (is_array($value['TCEforms']['config'])) {   // Rendering a single form element:

                  if (is_array($PA['_valLang']))   {
                     $rotateLang = $PA['_valLang'];
                  } else {
                     $rotateLang = array($PA['_valLang']);
                  }

                  foreach($rotateLang as $vDEFkey) {
                     $vDEFkey = 'v'.$vDEFkey;

                     $fakePA=array();
                     $fakePA['fieldConf']=array(
                        'label' => $this->sL($value['TCEforms']['label']),
                        'config' => $value['TCEforms']['config'],
                        'defaultExtras' => $value['TCEforms']['defaultExtras'],
                        'displayCond' => $value['TCEforms']['displayCond'],   // Haven't tested this...
                     );
                     $fakePA['fieldChangeFunc']=$PA['fieldChangeFunc'];
                     $fakePA['onFocus']=$PA['onFocus'];
                     $fakePA['label']==$PA['label'];

                     $fakePA['itemFormElName']=$PA['itemFormElName'].$formPrefix.'['.$key.']['.$vDEFkey.']';
                     $fakePA['itemFormElName_file']=$PA['itemFormElName_file'].$formPrefix.'['.$key.']['.$vDEFkey.']';
                     $fakePA['itemFormElValue']=$editData[$key][$vDEFkey];

                     $rowCells['formEl']= $this->getSingleField_SW($table,$field,$row,$fakePA);
                     $rowCells['title']= htmlspecialchars($fakePA['fieldConf']['label']);

                        // Put row together
                     $tRows[]='<tr>
                        <td nowrap="nowrap" valign="top" class="bgColor5">'.$rowCells['title'].($vDEFkey=='vDEF' ? '' : ' ('.$vDEFkey.')').'</td>
                        <td class="bgColor4">'.$rowCells['formEl'].'</td>
                     </tr>';
                  }
               }
            }
         }
      }

      return $tRows;
   }

   function getSingleField_typeUnknown($table,$field,$row,&$PA)   {
      $item='Unknown type: '.$PA['fieldConf']['config']['form_type'].'<br />';

      return $item;
   }

   function getSingleField_typeUser($table,$field,$row,&$PA)   {
      $PA['table']=$table;
      $PA['field']=$field;
      $PA['row']=$row;

      $PA['pObj']=&$this;

      return t3lib_div::callUserFunction($PA['fieldConf']['config']['userFunc'],$PA,$this);
   }












   /************************************************************
    *
    * "Configuration" fetching/processing functions
    *
    ************************************************************/

   function getRTypeNum($table,$row)   {
      global $TCA;
         // If there is a "type" field configured...
      if ($TCA[$table]['ctrl']['type'])   {
         $typeFieldName = $TCA[$table]['ctrl']['type'];
         $typeNum=$row[$typeFieldName];   // Get value of the row from the record which contains the type value.
         if (!strcmp($typeNum,''))  $typeNum=0;       // If that value is an empty string, set it to "0" (zero)
      } else {
         $typeNum = 0;  // If no "type" field, then set to "0" (zero)
      }

      $typeNum = (string)$typeNum;     // Force to string. Necessary for eg '-1' to be recognized as a type value.
      if (!$TCA[$table]['types'][$typeNum])  {  // However, if the type "0" is not found in the "types" array, then default to "1" (for historical reasons)
         $typeNum = 1;
      }

      return $typeNum;
   }

   function rearrange($fields)   {
      $fO = array_flip(t3lib_div::trimExplode(',',$this->fieldOrder,1));
      reset($fields);
      $newFields=array();
      while(list($cc,$content)=each($fields))   {
         $cP = t3lib_div::trimExplode(';',$content);
         if (isset($fO[$cP[0]])) {
            $newFields[$fO[$cP[0]]] = $content;
            unset($fields[$cc]);
         }
      }
      ksort($newFields);
      $fields=array_merge($newFields,$fields);     // Candidate for t3lib_div::array_merge() if integer-keys will some day make trouble...
      return $fields;
   }

   function getExcludeElements($table,$row,$typeNum)  {
      global $TCA;

         // Init:
      $excludeElements=array();

         // If a subtype field is defined for the type
      if ($TCA[$table]['types'][$typeNum]['subtype_value_field']) {
         $sTfield = $TCA[$table]['types'][$typeNum]['subtype_value_field'];
         if (trim($TCA[$table]['types'][$typeNum]['subtypes_excludelist'][$row[$sTfield]]))  {
            $excludeElements=t3lib_div::trimExplode(',',$TCA[$table]['types'][$typeNum]['subtypes_excludelist'][$row[$sTfield]],1);
         }
      }

         // If a bitmask-value field has been configured, then find possible fields to exclude based on that:
      if ($TCA[$table]['types'][$typeNum]['bitmask_value_field']) {
         $sTfield = $TCA[$table]['types'][$typeNum]['bitmask_value_field'];
         $sTValue = t3lib_div::intInRange($row[$sTfield],0);
         if (is_array($TCA[$table]['types'][$typeNum]['bitmask_excludelist_bits'])) {
            reset($TCA[$table]['types'][$typeNum]['bitmask_excludelist_bits']);
            while(list($bitKey,$eList)=each($TCA[$table]['types'][$typeNum]['bitmask_excludelist_bits']))   {
               $bit=substr($bitKey,1);
               if (t3lib_div::testInt($bit)) {
                  $bit = t3lib_div::intInRange($bit,0,30);
                  if (
                        (substr($bitKey,0,1)=='-' && !($sTValue&pow(2,$bit))) ||
                        (substr($bitKey,0,1)=='+' && ($sTValue&pow(2,$bit)))
                     )  {
                     $excludeElements = array_merge($excludeElements,t3lib_div::trimExplode(',',$eList,1));
                  }
               }
            }
         }
      }

         // Return the array of elements:
      return $excludeElements;
   }

   function getFieldsToAdd($table,$row,$typeNum)   {
      global $TCA;

         // Init:
      $addElements=array();

         // If a subtype field is defined for the type
      if ($TCA[$table]['types'][$typeNum]['subtype_value_field']) {
         $sTfield = $TCA[$table]['types'][$typeNum]['subtype_value_field'];
         if (trim($TCA[$table]['types'][$typeNum]['subtypes_addlist'][$row[$sTfield]]))   {
            $addElements=t3lib_div::trimExplode(',',$TCA[$table]['types'][$typeNum]['subtypes_addlist'][$row[$sTfield]],1);
         }
      }
         // Return the return
      return array($addElements,$sTfield);
   }

   function mergeFieldsWithAddedFields($fields,$fieldsToAdd)   {
      if (count($fieldsToAdd[0]))   {
         reset($fields);
         $c=0;
         while(list(,$fieldInfo)=each($fields)) {
            $parts = explode(';',$fieldInfo);
            if (!strcmp(trim($parts[0]),$fieldsToAdd[1]))   {
               array_splice(
                  $fields,
                  $c+1,
                  0,
                  $fieldsToAdd[0]
               );
               break;
            }
            $c++;
         }
      }
      return $fields;
   }


   function setTSconfig($table,$row,$field='')  {
      $mainKey = $table.':'.$row['uid'];
      if (!isset($this->cachedTSconfig[$mainKey])) {
         $this->cachedTSconfig[$mainKey]=t3lib_BEfunc::getTCEFORM_TSconfig($table,$row);
      }
      if ($field) {
         return $this->cachedTSconfig[$mainKey][$field];
      } else {
         return $this->cachedTSconfig[$mainKey];
      }
   }

   function getSpecConfForField($table,$row,$field)   {
         // Finds the current "types" configuration for the table/row:
      $types_fieldConfig = t3lib_BEfunc::getTCAtypes($table,$row);

         // If this is an array, then traverse it:
      if (is_array($types_fieldConfig))   {
         foreach($types_fieldConfig as $vconf)  {
               // If the input field name matches one found in the 'types' list, then return the 'special' configuration.
            if ($vconf['field']==$field)  return $vconf['spec'];
         }
      }
   }

   function getSpecConfFromString($extraString, $defaultExtras)    {
      return t3lib_BEfunc::getSpecConfParts($extraString, $defaultExtras);
   }










   /************************************************************
    *
    * Display of localized content etc.
    *
    ************************************************************/

   function registerDefaultLanguageData($table,$rec)  {
      global $TCA;

         // Add default language:
      if ($TCA[$table]['ctrl']['languageField']
            && $rec[$TCA[$table]['ctrl']['languageField']] > 0
            && $TCA[$table]['ctrl']['transOrigPointerField']
            && intval($rec[$TCA[$table]['ctrl']['transOrigPointerField']]) > 0)  {

         $lookUpTable = $TCA[$table]['ctrl']['transOrigPointerTable'] ? $TCA[$table]['ctrl']['transOrigPointerTable'] : $table;

            // Get data formatted:
         $this->defaultLanguageData[$table.':'.$rec['uid']] = t3lib_BEfunc::getRecord($lookUpTable, intval($rec[$TCA[$table]['ctrl']['transOrigPointerField']]));

            // Get data for diff:
         if ($TCA[$table]['ctrl']['transOrigDiffSourceField']) {
            $this->defaultLanguageData_diff[$table.':'.$rec['uid']] = unserialize($rec[$TCA[$table]['ctrl']['transOrigDiffSourceField']]);
         }
      }
   }

   function renderDefaultLanguageContent($table,$field,$row,$item)   {
      if (is_array($this->defaultLanguageData[$table.':'.$row['uid']])) {
         $dLVal = t3lib_BEfunc::getProcessedValue($table,$field,$this->defaultLanguageData[$table.':'.$row['uid']][$field],0,1);

         if (strcmp($dLVal,''))  {
            $item.='<div class="typo3-TCEforms-originalLanguageValue">'.nl2br(htmlspecialchars($dLVal)).'&nbsp;</div>';
         }
      }

      return $item;
   }

   function renderDefaultLanguageDiff($table,$field,$row,$item)   {
      if (is_array($this->defaultLanguageData_diff[$table.':'.$row['uid']]))  {

            // Initialize:
         $dLVal = array(
            'old' => $this->defaultLanguageData_diff[$table.':'.$row['uid']],
            'new' => $this->defaultLanguageData[$table.':'.$row['uid']],
         );

         if (isset($dLVal['old'][$field]))   {  // There must be diff-data:
            if (strcmp($dLVal['old'][$field],$dLVal['new'][$field])) {

                  // Create diff-result:
               $t3lib_diff_Obj = t3lib_div::makeInstance('t3lib_diff');
               $diffres = $t3lib_diff_Obj->makeDiffDisplay(
                  t3lib_BEfunc::getProcessedValue($table,$field,$dLVal['old'][$field],0,1),
                  t3lib_BEfunc::getProcessedValue($table,$field,$dLVal['new'][$field],0,1)
               );

               $item.='<div class="typo3-TCEforms-diffBox">'.
                  '<div class="typo3-TCEforms-diffBox-header">'.htmlspecialchars($this->getLL('l_changeInOrig')).':</div>'.
                  $diffres.
               '</div>';
            }
         }
      }

      return $item;
   }









   /************************************************************
    *
    * Form element helper functions
    *
    ************************************************************/

   function dbFileIcons($fName,$mode,$allowed,$itemArray,$selector='',$params=array(),$onFocus='') {

         // Sets a flag which means some JavaScript is included on the page to support this element.
      $this->printNeededJS['dbFileIcons']=1;

         // INIT
      $uidList=array();
      $opt=array();
      $itemArrayC=0;

         // Creating <option> elements:
      if (is_array($itemArray))  {
         $itemArrayC=count($itemArray);
         reset($itemArray);
         switch($mode)  {
            case 'db':
               while(list(,$pp)=each($itemArray))  {
                  $pRec = t3lib_BEfunc::getRecord($pp['table'],$pp['id']);
                  if (is_array($pRec)) {
                     $pTitle = t3lib_div::fixed_lgd_cs($this->noTitle($pRec[$GLOBALS['TCA'][$pp['table']]['ctrl']['label']]),$this->titleLen);
                     $pUid = $pp['table'].'_'.$pp['id'];
                     $uidList[]=$pUid;
                     $opt[]='<option value="'.htmlspecialchars($pUid).'">'.htmlspecialchars($pTitle).'</option>';
                  }
               }
            break;
            case 'file':
               while(list(,$pp)=each($itemArray))  {
                  $pParts = explode('|',$pp);
                  $uidList[]=$pUid=$pTitle = $pParts[0];
                  $opt[]='<option value="'.htmlspecialchars(rawurldecode($pParts[0])).'">'.htmlspecialchars(rawurldecode($pParts[0])).'</option>';
               }
            break;
            default:
               while(list(,$pp)=each($itemArray))  {
                  $pParts = explode('|',$pp);
                  $uidList[]=$pUid=$pParts[0];
                  $pTitle = $pParts[1];
                  $opt[]='<option value="'.htmlspecialchars(rawurldecode($pUid)).'">'.htmlspecialchars(rawurldecode($pTitle)).'</option>';
               }
            break;
         }
      }

         // Create selector box of the options
      if (!$selector)   {
         $sSize = $params['autoSizeMax'] ? t3lib_div::intInRange($itemArrayC+1,t3lib_div::intInRange($params['size'],1),$params['autoSizeMax']) : $params['size'];
         $selector = '<select size="'.$sSize.'"'.$this->insertDefStyle('group').' multiple="multiple" name="'.$fName.'_list" '.$onFocus.$params['style'].'>'.implode('',$opt).'</select>';
      }


      $icons = array(
         'L' => array(),
         'R' => array(),
      );
      if (!$params['noBrowser']) {
         $aOnClick='setFormValueOpenBrowser(\''.$mode.'\',\''.($fName.'|||'.$allowed.'|').'\'); return false;';
         $icons['R'][]='<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
               '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/insert3.gif','width="14" height="14"').' border="0" '.t3lib_BEfunc::titleAltAttrib($this->getLL('l_browse_'.($mode=='file'?'file':'db'))).' />'.
               '</a>';
      }
      if (!$params['dontShowMoveIcons'])  {
         $icons['L'][]='<a href="#" onclick="setFormValueManipulate(\''.$fName.'\',\'Up\'); return false;">'.
               '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/group_totop.gif','width="14" height="14"').' border="0" '.t3lib_BEfunc::titleAltAttrib($this->getLL('l_move_to_top')).' />'.
               '</a>';
      }

      $clipElements = $this->getClipboardElements($allowed,$mode);
      if (count($clipElements))  {
         $aOnClick = '';
#        $counter = 0;
         foreach($clipElements as $elValue)  {
            if ($mode=='file')   {
               $itemTitle = 'unescape(\''.rawurlencode(basename($elValue)).'\')';
            } else { // 'db' mode assumed
               list($itemTable,$itemUid) = explode('|', $elValue);
               $itemTitle = $GLOBALS['LANG']->JScharCode(t3lib_BEfunc::getRecordTitle($itemTable, t3lib_BEfunc::getRecord($itemTable,$itemUid)));
               $elValue = $itemTable.'_'.$itemUid;
            }
            $aOnClick.= 'setFormValueFromBrowseWin(\''.$fName.'\',unescape(\''.rawurlencode(str_replace('%20',' ',$elValue)).'\'),'.$itemTitle.');';

#           $counter++;
#           if ($params['maxitems'] && $counter >= $params['maxitems']) {  break;   }  // Makes sure that no more than the max items are inserted... for convenience.
         }
         $aOnClick.= 'return false;';
         $icons['R'][]='<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
               '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/insert5.png','width="14" height="14"').' border="0" '.t3lib_BEfunc::titleAltAttrib(sprintf($this->getLL('l_clipInsert_'.($mode=='file'?'file':'db')),count($clipElements))).' />'.
               '</a>';
      }

      $icons['L'][]='<a href="#" onclick="setFormValueManipulate(\''.$fName.'\',\'Remove\'); return false;">'.
            '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/group_clear.gif','width="14" height="14"').' border="0" '.t3lib_BEfunc::titleAltAttrib($this->getLL('l_remove_selected')).' />'.
            '</a>';

      $str='<table border="0" cellpadding="0" cellspacing="0" width="1">
         '.($params['headers']?'
            <tr>
               <td>'.$this->wrapLabels($params['headers']['selector']).'</td>
               <td></td>
               <td></td>
               <td></td>
               <td>'.$this->wrapLabels($params['headers']['items']).'</td>
            </tr>':'').
         '
         <tr>
            <td valign="top">'.
               $selector.'<br />'.
               $this->wrapLabels($params['info']).
            '</td>
            <td valign="top">'.
               implode('<br />',$icons['L']).'</td>
            <td valign="top">'.
               implode('<br />',$icons['R']).'</td>
            <td><img src="clear.gif" width="5" height="1" alt="" /></td>
            <td valign="top">'.
               $this->wrapLabels($params['thumbnails']).
            '</td>
         </tr>
      </table>';

         // Creating the hidden field which contains the actual value as a comma list.
      $str.='<input type="hidden" name="'.$fName.'" value="'.htmlspecialchars(implode(',',$uidList)).'" />';

      return $str;
   }

   function getClipboardElements($allowed,$mode)   {

      $output = array();

      if (is_object($this->clipObj))   {
         switch($mode)  {
            case 'file':
               $elFromTable = $this->clipObj->elFromTable('_FILE');
               $allowedExts = t3lib_div::trimExplode(',', $allowed, 1);

               if ($allowedExts) {  // If there are a set of allowed extensions, filter the content:
                  foreach($elFromTable as $elValue)   {
                     $pI = pathinfo($elValue);
                     $ext = strtolower($pI['extension']);
                     if (in_array($ext, $allowedExts))   {
                        $output[] = $elValue;
                     }
                  }
               } else { // If all is allowed, insert all: (This does NOT respect any disallowed extensions, but those will be filtered away by the backend TCEmain)
                  $output = $elFromTable;
               }
            break;
            case 'db':
               $allowedTables = t3lib_div::trimExplode(',', $allowed, 1);
               if (!strcmp(trim($allowedTables[0]),'*')) {  // All tables allowed for relation:
                  $output = $this->clipObj->elFromTable('');
               } else { // Only some tables, filter them:
                  foreach($allowedTables as $tablename)  {
                     $elFromTable = $this->clipObj->elFromTable($tablename);
                     $output = array_merge($output,$elFromTable);
                  }
               }
               $output = array_keys($output);
            break;
         }
      }

      return $output;
   }

   function getClickMenu($str,$table,$uid='')   {
      if ($this->enableClickMenu)   {
         $onClick = $GLOBALS['SOBE']->doc->wrapClickMenuOnIcon($str,$table,$uid,1,'','+copy,info,edit,view', TRUE);
         return '<a href="#" onclick="'.htmlspecialchars($onClick).'">'.$str.'</a>';
      }
   }

   function renderWizards($itemKinds,$wizConf,$table,$row,$field,&$PA,$itemName,$specConf,$RTE=0)  {

         // Init:
      $fieldChangeFunc = $PA['fieldChangeFunc'];
      $item = $itemKinds[0];
      $outArr = array();
      $colorBoxLinks = array();
      $fName = '['.$table.']['.$row['uid'].']['.$field.']';
      $md5ID = 'ID'.t3lib_div::shortmd5($itemName);
      $listFlag = '_list';

         // Manipulate the field name (to be the true form field name) and remove a suffix-value if the item is a selector box with renderMode "singlebox":
      if ($PA['fieldConf']['config']['type']=='select')  {
         if ($PA['fieldConf']['config']['maxitems']<=1)  {  // Single select situation:
            $listFlag = '';
         } elseif ($PA['fieldConf']['config']['renderMode']=='singlebox')  {
            $itemName.='[]';
            $listFlag = '';
         }
      }

         // traverse wizards:
      if (is_array($wizConf) && !$this->disableWizards)  {
         foreach($wizConf as $wid => $wConf) {
            if (substr($wid,0,1)!='_'
                  && (!$wConf['enableByTypeConfig'] || @in_array($wid,$specConf['wizards']['parameters']))
                  && ($RTE || !$wConf['RTEonly'])
               )  {

                  // Title / icon:
               $iTitle = htmlspecialchars($this->sL($wConf['title']));
               if ($wConf['icon'])  {
                  $iDat = $this->getIcon($wConf['icon']);
                  $icon = '<img src="'.$iDat[0].'" '.$iDat[1][3].' border="0"'.t3lib_BEfunc::titleAltAttrib($iTitle).' />';
               } else {
                  $icon = $iTitle;
               }

                  //
               switch((string)$wConf['type'])   {
                  case 'userFunc':
                  case 'script':
                  case 'popup':
                  case 'colorbox':
                     if (!$wConf['notNewRecords'] || t3lib_div::testInt($row['uid']))  {

                           // Setting &P array contents:
                        $params = array();
                        $params['params'] = $wConf['params'];
                        $params['exampleImg'] = $wConf['exampleImg'];
                        $params['table'] = $table;
                        $params['uid'] = $row['uid'];
                        $params['pid'] = $row['pid'];
                        $params['field'] = $field;
                        $params['md5ID'] = $md5ID;
                        $params['returnUrl'] = $this->thisReturnUrl();

                           // Resolving script filename and setting URL.
                        if (!strcmp(substr($wConf['script'],0,4), 'EXT:')) {
                           $wScript = t3lib_div::getFileAbsFileName($wConf['script']);
                           if ($wScript)  {
                              $wScript = '../'.substr($wScript,strlen(PATH_site));
                           } else break;
                        } else {
                           $wScript = $wConf['script'];
                        }
                        $url = $this->backPath.$wScript.(strstr($wScript,'?') ? '' : '?');

                           // If there is no script and the type is "colorbox", break right away:
                        if ((string)$wConf['type']=='colorbox' && !$wConf['script'])   { break; }

                           // If "script" type, create the links around the icon:
                        if ((string)$wConf['type']=='script')  {
                           $aUrl = $url.t3lib_div::implodeArrayForUrl('',array('P'=>$params));
                           $outArr[]='<a href="'.htmlspecialchars($aUrl).'" onclick="'.$this->blur().'return !TBE_EDITOR_isFormChanged();">'.
                              $icon.
                              '</a>';
                        } else {

                              // ... else types "popup", "colorbox" and "userFunc" will need additional parameters:
                           $params['formName'] = $this->formName;
                           $params['itemName'] = $itemName;
                           $params['fieldChangeFunc'] = $fieldChangeFunc;

                           switch((string)$wConf['type'])   {
                              case 'popup':
                              case 'colorbox':
                                    // Current form value is passed as P[currentValue]!
                                 $addJS = $wConf['popup_onlyOpenIfSelected']?'if (!TBE_EDITOR_curSelected(\''.$itemName.$listFlag.'\')){alert('.$GLOBALS['LANG']->JScharCode($this->getLL('m_noSelItemForEdit')).'); return false;}':'';
                                 $curSelectedValues='+\'&P[currentSelectedValues]=\'+TBE_EDITOR_curSelected(\''.$itemName.$listFlag.'\')';
                                 $aOnClick=  $this->blur().
                                          $addJS.
                                          'vHWin=window.open(\''.$url.t3lib_div::implodeArrayForUrl('',array('P'=>$params)).'\'+\'&P[currentValue]=\'+TBE_EDITOR_rawurlencode('.$this->elName($itemName).'.value,200)'.$curSelectedValues.',\'popUp'.$md5ID.'\',\''.$wConf['JSopenParams'].'\');'.
                                          'vHWin.focus();return false;';
                                    // Setting "colorBoxLinks" - user LATER to wrap around the color box as well:
                                 $colorBoxLinks = Array('<a href="#" onclick="'.htmlspecialchars($aOnClick).'">','</a>');
                                 if ((string)$wConf['type']=='popup')   {
                                    $outArr[] = $colorBoxLinks[0].$icon.$colorBoxLinks[1];
                                 }
                              break;
                              case 'userFunc':
                                 $params['item'] = &$item;  // Reference set!
                                 $params['icon'] = $icon;
                                 $params['iTitle'] = $iTitle;
                                 $params['wConf'] = $wConf;
                                 $params['row'] = $row;
                                 $outArr[] = t3lib_div::callUserFunction($wConf['userFunc'],$params,$this);
                              break;
                           }
                        }

                           // Hide the real form element?
                        if (is_array($wConf['hideParent']) || $wConf['hideParent']) {
                           $item = $itemKinds[1];  // Setting the item to a hidden-field.
                           if (is_array($wConf['hideParent'])) {
                              $item.= $this->getSingleField_typeNone_render($wConf['hideParent'], $PA['itemFormElValue']);
                           }
                        }
                     }
                  break;
                  case 'select':
                     $fieldValue = array('config' => $wConf);
                     $TSconfig = $this->setTSconfig($table, $row);
                     $TSconfig[$field] = $TSconfig[$field]['wizards.'][$wid.'.'];
                     $selItems = $this->addSelectOptionsToItemArray($this->initItemArray($fieldValue), $fieldValue, $TSconfig, $field);

                     $opt = array();
                     $opt[] = '<option>'.$iTitle.'</option>';
                     foreach($selItems as $p)   {
                        $opt[] = '<option value="'.htmlspecialchars($p[1]).'">'.htmlspecialchars($p[0]).'</option>';
                     }
                     if ($wConf['mode']=='append') {
                        $assignValue = $this->elName($itemName).'.value=\'\'+this.options[this.selectedIndex].value+'.$this->elName($itemName).'.value';
                     } elseif ($wConf['mode']=='prepend')   {
                        $assignValue = $this->elName($itemName).'.value+=\'\'+this.options[this.selectedIndex].value';
                     } else {
                        $assignValue = $this->elName($itemName).'.value=this.options[this.selectedIndex].value';
                     }
                     $sOnChange = $assignValue.';this.selectedIndex=0;'.implode('',$fieldChangeFunc);
                     $outArr[] = '<select name="_WIZARD'.$fName.'" onchange="'.htmlspecialchars($sOnChange).'">'.implode('',$opt).'</select>';
                  break;
               }

                  // Color wizard colorbox:
               if ((string)$wConf['type']=='colorbox')   {
                  $dim = t3lib_div::intExplode('x',$wConf['dim']);
                  $dX = t3lib_div::intInRange($dim[0],1,200,20);
                  $dY = t3lib_div::intInRange($dim[1],1,200,20);
                  $color = $row[$field] ? ' bgcolor="'.htmlspecialchars($row[$field]).'"' : '';
                  $outArr[] = '<table border="0" cellpadding="0" cellspacing="0" id="'.$md5ID.'"'.$color.' style="'.htmlspecialchars($wConf['tableStyle']).'">
                           <tr>
                              <td>'.
                                 $colorBoxLinks[0].
                                 '<img src="clear.gif" width="'.$dX.'" height="'.$dY.'"'.t3lib_BEfunc::titleAltAttrib(trim($iTitle.' '.$row[$field])).' border="0" />'.
                                 $colorBoxLinks[1].
                                 '</td>
                           </tr>
                        </table>';
               }
            }
         }

            // For each rendered wizard, put them together around the item.
         if (count($outArr))  {
            if ($wizConf['_HIDDENFIELD']) $item = $itemKinds[1];

            $outStr = '';
            $vAlign = $wizConf['_VALIGN'] ? ' valign="'.$wizConf['_VALIGN'].'"' : '';
            if (count($outArr)>1 || $wizConf['_PADDING'])   {
               $dist = intval($wizConf['_DISTANCE']);
               if ($wizConf['_VERTICAL']) {
                  $dist = $dist ? '<tr><td><img src="clear.gif" width="1" height="'.$dist.'" alt="" /></td></tr>' : '';
                  $outStr = '<tr><td>'.implode('</td></tr>'.$dist.'<tr><td>',$outArr).'</td></tr>';
               } else {
                  $dist = $dist ? '<td><img src="clear.gif" height="1" width="'.$dist.'" alt="" /></td>' : '';
                  $outStr = '<tr><td'.$vAlign.'>'.implode('</td>'.$dist.'<td'.$vAlign.'>',$outArr).'</td></tr>';
               }
               $outStr = '<table border="0" cellpadding="'.intval($wizConf['_PADDING']).'" cellspacing="0">'.$outStr.'</table>';
            } else {
               $outStr = implode('',$outArr);
            }

            if (!strcmp($wizConf['_POSITION'],'left'))   {
               $outStr = '<tr><td'.$vAlign.'>'.$outStr.'</td><td'.$vAlign.'>'.$item.'</td></tr>';
            } elseif (!strcmp($wizConf['_POSITION'],'top')) {
               $outStr = '<tr><td>'.$outStr.'</td></tr><tr><td>'.$item.'</td></tr>';
            } elseif (!strcmp($wizConf['_POSITION'],'bottom')) {
               $outStr = '<tr><td>'.$item.'</td></tr><tr><td>'.$outStr.'</td></tr>';
            } else {
               $outStr = '<tr><td'.$vAlign.'>'.$item.'</td><td'.$vAlign.'>'.$outStr.'</td></tr>';
            }

            $item = '<table border="0" cellpadding="0" cellspacing="0">'.$outStr.'</table>';
         }
      }
      return $item;
   }

   function getIcon($icon) {
      if (substr($icon,0,4)=='EXT:')   {
         $file = t3lib_div::getFileAbsFileName($icon);
         if ($file)  {
            $file = substr($file,strlen(PATH_site));
            $selIconFile = $this->backPath.'../'.$file;
            $selIconInfo = @getimagesize(PATH_site.$file);
         }
      } elseif (substr($icon,0,3)=='../') {
         $selIconFile = $this->backPath.t3lib_div::resolveBackPath($icon);
         $selIconInfo = @getimagesize(PATH_site.t3lib_div::resolveBackPath(substr($icon,3)));
      } elseif (substr($icon,0,4)=='ext/' || substr($icon,0,7)=='sysext/') {
         $selIconFile = $this->backPath.$icon;
         $selIconInfo = @getimagesize(PATH_typo3.$icon);
      } else {
         $selIconFile = $this->backPath.'t3lib/gfx/'.$icon;
         $selIconInfo = @getimagesize(PATH_t3lib.'gfx/'.$icon);
      }
      return array($selIconFile,$selIconInfo);
   }

   function optionTagStyle($iconString)   {
      if ($iconString)  {
         list($selIconFile,$selIconInfo) = $this->getIcon($iconString);
         $padTop = t3lib_div::intInRange(($selIconInfo[1]-12)/2,0);
         $styleAttr = 'background-image: url('.$selIconFile.'); background-repeat: no-repeat; height: '.t3lib_div::intInRange(($selIconInfo[1]+2)-$padTop,0).'px; padding-top: '.$padTop.'px; padding-left: '.($selIconInfo[0]+4).'px;';
         return $styleAttr;
      }
   }

   function extractValuesOnlyFromValueLabelList($itemFormElValue) {
         // Get values of selected items:
      $itemArray = t3lib_div::trimExplode(',',$itemFormElValue,1);
      foreach($itemArray as $tk => $tv) {
         $tvP = explode('|',$tv,2);
         $tvP[0] = rawurldecode($tvP[0]);

         $itemArray[$tk] = $tvP[0];
      }
      return $itemArray;
   }

   function wrapOpenPalette($header,$table,$row,$palette,$retFunc=0) {
      $fieldL=array();
      if (!is_array($this->palFieldArr[$palette])) {$this->palFieldArr[$palette]=array();}
      $palFieldN = is_array($this->palFieldArr[$palette]) ? count($this->palFieldArr[$palette]) : 0;
      $palJSFunc = 'TBE_EDITOR_palUrl(\''.($table.':'.$row['uid'].':'.$palette).'\',\''.implode(',',$this->palFieldArr[$palette]).'\','.$palFieldN.',\''.$table.'\',\''.$row['uid'].'\',1);';

      $aOnClick = $this->blur().substr($palJSFunc,0,-3).'0);return false;';

      $iconCode = '<a href="#" onclick="'.htmlspecialchars($aOnClick).'" title="'.htmlspecialchars($table).'">'.
               $header.
               '</a>';
      return $retFunc ? array($iconCode,$palJSFunc) : $iconCode;
   }

   function checkBoxParams($itemName,$thisValue,$c,$iCount,$addFunc='') {
      $onClick = $this->elName($itemName).'.value=this.checked?('.$this->elName($itemName).'.value|'.pow(2,$c).'):('.$this->elName($itemName).'.value&'.(pow(2,$iCount)-1-pow(2,$c)).');'.
               $addFunc;
      $str = ' onclick="'.htmlspecialchars($onClick).'"'.
            (($thisValue&pow(2,$c))?' checked="checked"':'');
      return $str;
   }

   function elName($itemName) {
      return 'document.'.$this->formName."['".$itemName."']";
   }

   function noTitle($str,$wrapParts=array()) {
      return strcmp($str,'') ? $str : $wrapParts[0].'['.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.no_title').']'.$wrapParts[1];
   }

   function blur()   {
      return $GLOBALS['CLIENT']['FORMSTYLE'] ? 'this.blur();':'';
   }

   function thisReturnUrl()   {
      return $this->returnUrl ? $this->returnUrl : t3lib_div::linkThisScript();
   }

   function getSingleHiddenField($table,$field,$row)  {
      global $TCA;
      $out='';
      t3lib_div::loadTCA($table);
      if ($TCA[$table]['columns'][$field])   {

         $uid=$row['uid'];
         $itemName=$this->prependFormFieldNames.'['.$table.']['.$uid.']['.$field.']';
         $itemValue=$row[$field];
         $item.='<input type="hidden" name="'.$itemName.'" value="'.htmlspecialchars($itemValue).'" />';
         $out = $item;
      }
      return $out;
   }

   function formWidth($size=48,$textarea=0) {
         // Input or text-field attribute (size or cols)
      if ($this->docLarge) $size = round($size*$this->form_largeComp);
      $wAttrib = $textarea?'cols':'size';
      if (!$GLOBALS['CLIENT']['FORMSTYLE'])  {  // If not setting the width by style-attribute
         $retVal = ' '.$wAttrib.'="'.$size.'"';
      } else { // Setting width by style-attribute. 'cols' MUST be avoided with NN6+
         $pixels = ceil($size*$this->form_rowsToStylewidth);
         $theStyle = 'width:'.$pixels.'px;'.$this->defStyle.$this->formElStyle($textarea?'text':'input');
         $retVal = ' style="'.htmlspecialchars($theStyle).'"';

         $class = $this->formElClass($textarea?'text':'input');
         if ($class) {
            $retVal.= ' class="'.htmlspecialchars($class).'"';
         }
      }
      return $retVal;
   }

   function formWidthText($size=48,$wrap='') {
      $wTags = $this->formWidth($size,1);
         // Netscape 6+ seems to have this ODD problem where there WILL ALWAYS be wrapping with the cols-attribute set and NEVER without the col-attribute...
      if (strtolower(trim($wrap))!='off' && $GLOBALS['CLIENT']['BROWSER']=='net' && $GLOBALS['CLIENT']['VERSION']>=5)   {
         $wTags.=' cols="'.$size.'"';
      }
      return $wTags;
   }

   function formElStyle($type)   {
      return $this->formElStyleClassValue($type);
   }

   function formElClass($type)   {
      return $this->formElStyleClassValue($type, TRUE);
   }

   function formElStyleClassValue($type, $class=FALSE)   {
         // Get value according to field:
      if (isset($this->fieldStyle[$type]))   {
         $style = trim($this->fieldStyle[$type]);
      } else {
         $style = trim($this->fieldStyle['all']);
      }

         // Check class prefixed:
      if (substr($style,0,6)=='CLASS:')   {
         return $class ? trim(substr($style,6)) : '';
      } else {
         return !$class ? $style : '';
      }
   }

   function insertDefStyle($type)   {
      $out = '';

      $style = trim($this->defStyle.$this->formElStyle($type));
      $out.= $style?' style="'.htmlspecialchars($style).'"':'';

      $class = $this->formElClass($type);
      $out.= $class?' class="'.htmlspecialchars($class).'"':'';

      return $out;
   }

   function getDynTabMenu($parts, $idString) {
      if (is_object($GLOBALS['TBE_TEMPLATE']))  {
         return $GLOBALS['TBE_TEMPLATE']->getDynTabMenu($parts, $idString);
      } else {
         $output = '';
         foreach($parts as $singlePad) {
            $output.='
            <h3>'.htmlspecialchars($singlePad['label']).'</h3>
            '.($singlePad['description'] ? '<p class="c-descr">'.nl2br(htmlspecialchars($singlePad['description'])).'</p>' : '').'
            '.$singlePad['content'];
         }

         return '<div class="typo3-dyntabmenu-divs">'.$output.'</div>';
      }
   }











   /************************************************************
    *
    * Item-array manipulation functions (check/select/radio)
    *
    ************************************************************/

   function initItemArray($fieldValue) {
      $items = array();
      if (is_array($fieldValue['config']['items']))   {
         reset ($fieldValue['config']['items']);
         while (list($itemName,$itemValue) = each($fieldValue['config']['items']))  {
            $items[] = array($this->sL($itemValue[0]), $itemValue[1], $itemValue[2]);
         }
      }
      return $items;
   }

   function addItems($items,$iArray)   {
      global $TCA;
      if (is_array($iArray))  {
         reset($iArray);
         while(list($value,$label)=each($iArray))  {
            $items[]=array($this->sl($label),$value);
         }
      }
      return $items;
   }

   function procItems($items,$iArray,$config,$table,$row,$field)  {
      global $TCA;

      $params=array();
      $params['items'] = &$items;
      $params['config'] = $config;
      $params['TSconfig'] = $iArray;
      $params['table'] = $table;
      $params['row'] = $row;
      $params['field'] = $field;

      t3lib_div::callUserFunction($config['itemsProcFunc'],$params,$this);
      return $items;
   }

   function addSelectOptionsToItemArray($items,$fieldValue,$TSconfig,$field)  {
      global $TCA;

         // Values from foreign tables:
      if ($fieldValue['config']['foreign_table'])  {
         $items = $this->foreignTable($items,$fieldValue,$TSconfig,$field);
         if ($fieldValue['config']['neg_foreign_table']) {
            $items = $this->foreignTable($items,$fieldValue,$TSconfig,$field,1);
         }
      }

         // Values from a file folder:
      if ($fieldValue['config']['fileFolder'])  {
         $fileFolder = t3lib_div::getFileAbsFileName($fieldValue['config']['fileFolder']);
         if (@is_dir($fileFolder))  {

               // Configurations:
            $extList = $fieldValue['config']['fileFolder_extList'];
            $recursivityLevels = isset($fieldValue['config']['fileFolder_recursions']) ? t3lib_div::intInRange($fieldValue['config']['fileFolder_recursions'],0,99) : 99;

               // Get files:
            $fileFolder = ereg_replace('\/$','',$fileFolder).'/';
            $fileArr = t3lib_div::getAllFilesAndFoldersInPath(array(),$fileFolder,$extList,0,$recursivityLevels);
            $fileArr = t3lib_div::removePrefixPathFromList($fileArr, $fileFolder);

            foreach($fileArr as $fileRef) {
               $fI = pathinfo($fileRef);
               $icon = t3lib_div::inList('gif,png,jpeg,jpg', strtolower($fI['extension'])) ? '../'.substr($fileFolder,strlen(PATH_site)).$fileRef : '';
               $items[] = array(
                  $fileRef,
                  $fileRef,
                  $icon
               );
            }
         }
      }

         // If 'special' is configured:
      if ($fieldValue['config']['special'])  {
         switch ($fieldValue['config']['special']) {
            case 'tables':
               $temp_tc = array_keys($TCA);
               $descr = '';

               foreach($temp_tc as $theTableNames) {
                  if (!$TCA[$theTableNames]['ctrl']['adminOnly']) {

                        // Icon:
                     $icon = '../typo3/'.t3lib_iconWorks::skinImg($this->backPath,t3lib_iconWorks::getIcon($theTableNames, array()),'',1);

                        // Add description texts:
                     if ($this->edit_showFieldHelp)   {
                        $GLOBALS['LANG']->loadSingleTableDescription($theTableNames);
                        $fDat = $GLOBALS['TCA_DESCR'][$theTableNames]['columns'][''];
                        $descr = $fDat['description'];
                     }

                        // Item configuration:
                     $items[] = array(
                        $this->sL($TCA[$theTableNames]['ctrl']['title']),
                        $theTableNames,
                        $icon,
                        $descr
                     );
                  }
               }
            break;
            case 'pagetypes':
               $theTypes = $TCA['pages']['columns']['doktype']['config']['items'];

               foreach($theTypes as $theTypeArrays)   {
                     // Icon:
                  $icon = $theTypeArrays[1]!='--div--' ? '../typo3/'.t3lib_iconWorks::skinImg($this->backPath,t3lib_iconWorks::getIcon('pages', array('doktype' => $theTypeArrays[1])),'',1) : '';

                     // Item configuration:
                  $items[] = array(
                     $this->sL($theTypeArrays[0]),
                     $theTypeArrays[1],
                     $icon
                  );
               }
            break;
            case 'exclude':
               $theTypes = t3lib_BEfunc::getExcludeFields();
               $descr = '';

               foreach($theTypes as $theTypeArrays)   {
                  list($theTable, $theField) = explode(':', $theTypeArrays[1]);

                     // Add description texts:
                  if ($this->edit_showFieldHelp)   {
                     $GLOBALS['LANG']->loadSingleTableDescription($theTable);
                     $fDat = $GLOBALS['TCA_DESCR'][$theTable]['columns'][$theField];
                     $descr = $fDat['description'];
                  }

                     // Item configuration:
                  $items[] = array(
                     ereg_replace(':$','',$theTypeArrays[0]),
                     $theTypeArrays[1],
                     '',
                     $descr
                  );
               }
            break;
            case 'explicitValues':
               $theTypes = t3lib_BEfunc::getExplicitAuthFieldValues();

                     // Icons:
               $icons = array(
                  'ALLOW' => '../typo3/'.t3lib_iconWorks::skinImg($this->backPath,'gfx/icon_ok2.gif','',1),
                  'DENY' => '../typo3/'.t3lib_iconWorks::skinImg($this->backPath,'gfx/icon_fatalerror.gif','',1),
               );

                  // Traverse types:
               foreach($theTypes as $tableFieldKey => $theTypeArrays)   {

                  if (is_array($theTypeArrays['items'])) {
                        // Add header:
                     $items[] = array(
                        $theTypeArrays['tableFieldLabel'],
                        '--div--',
                     );

                        // Traverse options for this field:
                     foreach($theTypeArrays['items'] as $itemValue => $itemContent) {
                           // Add item to be selected:
                        $items[] = array(
                           '['.$itemContent[2].'] '.$itemContent[1],
                           $tableFieldKey.':'.ereg_replace('[:|,]','',$itemValue).':'.$itemContent[0],
                           $icons[$itemContent[0]]
                        );
                     }
                  }
               }
            break;
            case 'languages':
               $items = array_merge($items,t3lib_BEfunc::getSystemLanguages());
            break;
            case 'custom':
                  // Initialize:
               $customOptions = $GLOBALS['TYPO3_CONF_VARS']['BE']['customPermOptions'];
               if (is_array($customOptions)) {
                  foreach($customOptions as $coKey => $coValue) {
                     if (is_array($coValue['items'])) {
                           // Add header:
                        $items[] = array(
                           $GLOBALS['LANG']->sl($coValue['header']),
                           '--div--',
                        );

                           // Traverse items:
                        foreach($coValue['items'] as $itemKey => $itemCfg) {
                              // Icon:
                           if ($itemCfg[1])  {
                              list($icon) = $this->getIcon($itemCfg[1]);
                              if ($icon)  $icon = '../typo3/'.$icon;
                           } else $icon = '';

                              // Add item to be selected:
                           $items[] = array(
                              $GLOBALS['LANG']->sl($itemCfg[0]),
                              $coKey.':'.ereg_replace('[:|,]','',$itemKey),
                              $icon,
                              $GLOBALS['LANG']->sl($itemCfg[2]),
                           );
                        }
                     }
                  }
               }
            break;
            case 'modListGroup':
            case 'modListUser':
               if (!is_object($loadModules)) {
                  $loadModules = t3lib_div::makeInstance('t3lib_loadModules');
                  $loadModules->load($GLOBALS['TBE_MODULES']);
               }

               $modList = $fieldValue['config']['special']=='modListUser' ? $loadModules->modListUser : $loadModules->modListGroup;
               if (is_array($modList)) {
                  $descr = '';

                  foreach($modList as $theMod)  {

                        // Icon:
                     $icon = $GLOBALS['LANG']->moduleLabels['tabs_images'][$theMod.'_tab'];
                     if ($icon)  {
                        $icon = '../'.substr($icon,strlen(PATH_site));
                     }

                        // Description texts:
                     if ($this->edit_showFieldHelp)   {
                        $descr = $GLOBALS['LANG']->moduleLabels['labels'][$theMod.'_tablabel'].
                                 chr(10).
                                 $GLOBALS['LANG']->moduleLabels['labels'][$theMod.'_tabdescr'];
                     }

                        // Item configuration:
                     $items[] = array(
                        $this->addSelectOptionsToItemArray_makeModuleData($theMod),
                        $theMod,
                        $icon,
                        $descr
                     );
                  }
               }
            break;
         }
      }

         // Return the items:
      return $items;
   }

   function addSelectOptionsToItemArray_makeModuleData($value) {
      $label = '';
         // Add label for main module:
      $pp = explode('_',$value);
      if (count($pp)>1) $label.=$GLOBALS['LANG']->moduleLabels['tabs'][$pp[0].'_tab'].'>';
         // Add modules own label now:
      $label.= $GLOBALS['LANG']->moduleLabels['tabs'][$value.'_tab'];

      return $label;
   }

   function foreignTable($items,$fieldValue,$TSconfig,$field,$pFFlag=0) {
      global $TCA;

         // Init:
      $pF=$pFFlag?'neg_':'';
      $f_table = $fieldValue['config'][$pF.'foreign_table'];
      $uidPre = $pFFlag?'-':'';

         // Get query:
      $res = t3lib_BEfunc::exec_foreign_table_where_query($fieldValue,$field,$TSconfig,$pF);

         // Perform lookup
      if ($GLOBALS['TYPO3_DB']->sql_error()) {
         echo($GLOBALS['TYPO3_DB']->sql_error()."\n\nThis may indicate a table defined in tables.php is not existing in the database!");
         return array();
      }

         // Get label prefix.
      $lPrefix = $this->sL($fieldValue['config'][$pF.'foreign_table_prefix']);

         // Get icon field + path if any:
      $iField = $TCA[$f_table]['ctrl']['selicon_field'];
      $iPath = trim($TCA[$f_table]['ctrl']['selicon_field_path']);

         // Traverse the selected rows to add them:
      while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))  {
            // Prepare the icon if available:
         if ($iField && $iPath && $row[$iField])   {
            $iParts = t3lib_div::trimExplode(',',$row[$iField],1);
            $icon = '../'.$iPath.'/'.trim($iParts[0]);
         } elseif (t3lib_div::inList('singlebox,checkbox',$fieldValue['config']['renderMode'])) {
            $icon = '../typo3/'.t3lib_iconWorks::skinImg($this->backPath,t3lib_iconWorks::getIcon($f_table, $row),'',1);
         } else $icon = '';

            // Add the item:
         $items[] = array(
            t3lib_div::fixed_lgd_cs($lPrefix.strip_tags(t3lib_BEfunc::getRecordTitle($f_table,$row)),$this->titleLen),
            $uidPre.$row['uid'],
            $icon
         );
      }
      return $items;
   }

























   /********************************************
    *
    * Template functions
    *
    ********************************************/

   function setNewBEDesign()  {

         // Wrapping all table rows for a particular record being edited:
      $this->totalWrap='
      <table border="0" cellspacing="0" cellpadding="0" width="'.($this->docLarge ? 440+150 : 440).'" class="typo3-TCEforms">'.
         '<tr class="bgColor2">
            <td>&nbsp;</td>
            <td>###RECORD_ICON### <span class="typo3-TCEforms-recHeader">###TABLE_TITLE###</span> ###ID_NEW_INDICATOR### - ###RECORD_LABEL###</td>
         </tr>'.
         '|'.
         '<tr>
            <td>&nbsp;</td>
            <td><img src="clear.gif" width="'.($this->docLarge ? 440+150 : 440).'" height="1" alt="" /></td>
         </tr>
      </table>';

         // Wrapping a single field:
      $this->fieldTemplate='
         <tr ###BGCOLOR_HEAD######CLASSATTR_2###>
            <td>###FIELD_HELP_ICON###</td>
            <td width="99%"><span style="color:###FONTCOLOR_HEAD###;"###CLASSATTR_4###><b>###FIELD_NAME###</b></span>###FIELD_HELP_TEXT###</td>
         </tr>
         <tr ###BGCOLOR######CLASSATTR_1###>
            <td nowrap="nowrap"><img name="req_###FIELD_TABLE###_###FIELD_ID###_###FIELD_FIELD###" src="clear.gif" width="10" height="10" alt="" /><img name="cm_###FIELD_TABLE###_###FIELD_ID###_###FIELD_FIELD###" src="clear.gif" width="7" height="10" alt="" /></td>
            <td valign="top">###FIELD_ITEM######FIELD_PAL_LINK_ICON###</td>
         </tr>';

      $this->palFieldTemplate='
         <tr ###BGCOLOR######CLASSATTR_1###>
            <td>&nbsp;</td>
            <td nowrap="nowrap" valign="top">###FIELD_PALETTE###</td>
         </tr>';
      $this->palFieldTemplateHeader='
         <tr ###BGCOLOR_HEAD######CLASSATTR_2###>
            <td>&nbsp;</td>
            <td nowrap="nowrap" valign="top"><strong>###FIELD_HEADER###</strong></td>
         </tr>';

      $this->sectionWrap='
         <tr>
            <td colspan="2"><img src="clear.gif" width="1" height="###SPACE_BEFORE###" alt="" /></td>
         </tr>
         <tr>
            <td colspan="2"><table ###TABLE_ATTRIBS###>###CONTENT###</table></td>
         </tr>
         ';
   }

   function intoTemplate($inArr,$altTemplate='')   {
            // Put into template_
      $fieldTemplateParts = explode('###FIELD_',$this->rplColorScheme($altTemplate?$altTemplate:$this->fieldTemplate));
      reset($fieldTemplateParts);
      $out=current($fieldTemplateParts);
      while(list(,$part)=each($fieldTemplateParts))   {
         list($key,$val)=explode('###',$part,2);
         $out.=$inArr[$key];
         $out.=$val;
      }
      return $out;
   }

   function addUserTemplateMarkers($marker,$table,$field,$row,&$PA)  {
      return $marker;
   }

   function wrapLabels($str)  {
      return $str;
   }

   function wrapTotal($c,$rec,$table)  {
      $parts = $this->replaceTableWrap(explode('|',$this->totalWrap,2),$rec,$table);
      return $parts[0].$c.$parts[1].implode('',$this->hiddenFieldAccum);
   }

   function replaceTableWrap($arr,$rec,$table)  {
      global $TCA;
      reset($arr);
      while(list($k,$v)=each($arr)) {

            // Make "new"-label
         if (strstr($rec['uid'],'NEW'))   {
            $newLabel = ' <span class="typo3-TCEforms-newToken">'.
                     $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.new',1).
                     '</span>';

            $truePid = t3lib_BEfunc::getTSconfig_pidValue($table,$rec['uid'],$rec['pid']);
            $prec = t3lib_BEfunc::getRecord('pages',$truePid,'title');
            $rLabel = '<em>[PID: '.$truePid.'] '.htmlspecialchars(trim(t3lib_div::fixed_lgd_cs(t3lib_BEfunc::getRecordTitle('pages',$prec),40))).'</em>';
         } else {
            $newLabel = ' <span class="typo3-TCEforms-recUid">['.$rec['uid'].']</span>';
            $rLabel  = htmlspecialchars(trim(t3lib_div::fixed_lgd_cs(t3lib_BEfunc::getRecordTitle($table,$rec),40)));
         }

            // Make substitutions:
         $arr[$k] = str_replace('###ID_NEW_INDICATOR###', $newLabel, $arr[$k]);
         $arr[$k] = str_replace('###RECORD_LABEL###',$rLabel,$arr[$k]);
         $arr[$k] = str_replace('###TABLE_TITLE###',htmlspecialchars($this->sL($TCA[$table]['ctrl']['title'])),$arr[$k]);

         $titleA=t3lib_BEfunc::titleAltAttrib($this->getRecordPath($table,$rec));
         $arr[$k]=str_replace('###RECORD_ICON###',t3lib_iconWorks::getIconImage($table,$rec,$this->backPath,'class="absmiddle"'.$titleA),$arr[$k]);
      }
      return $arr;
   }

   function wrapBorder(&$out_array,&$out_pointer)  {
      if ($this->sectionWrap && $out_array[$out_pointer])   {
         $tableAttribs='';
         $tableAttribs.= $this->borderStyle[0] ? ' style="'.htmlspecialchars($this->borderStyle[0]).'"':'';
         $tableAttribs.= $this->borderStyle[2] ? ' background="'.htmlspecialchars($this->backPath.$this->borderStyle[2]).'"':'';
         $tableAttribs.= $this->borderStyle[3] ? ' class="'.htmlspecialchars($this->borderStyle[3]).'"':'';
         if ($tableAttribs)   {
            $tableAttribs='border="0" cellspacing="0" cellpadding="0" width="100%"'.$tableAttribs;
            $out_array[$out_pointer] = str_replace('###CONTENT###',$out_array[$out_pointer],
               str_replace('###TABLE_ATTRIBS###',$tableAttribs,
                  str_replace('###SPACE_BEFORE###',intval($this->borderStyle[1]),$this->sectionWrap)));
         }
         $out_pointer++;
      }
   }

   function rplColorScheme($inTemplate)   {
         // Colors:
      $inTemplate = str_replace('###BGCOLOR###',$this->colorScheme[0]?' bgcolor="'.$this->colorScheme[0].'"':'',$inTemplate);
      $inTemplate = str_replace('###BGCOLOR_HEAD###',$this->colorScheme[1]?' bgcolor="'.$this->colorScheme[1].'"':'',$inTemplate);
      $inTemplate = str_replace('###FONTCOLOR_HEAD###',$this->colorScheme[3],$inTemplate);

         // Classes:
      $inTemplate = str_replace('###CLASSATTR_1###',$this->classScheme[0]?' class="'.$this->classScheme[0].'"':'',$inTemplate);
      $inTemplate = str_replace('###CLASSATTR_2###',$this->classScheme[1]?' class="'.$this->classScheme[1].'"':'',$inTemplate);
      $inTemplate = str_replace('###CLASSATTR_4###',$this->classScheme[3]?' class="'.$this->classScheme[3].'"':'',$inTemplate);

      return $inTemplate;
   }

   function getDivider()   {
      //return "<hr />";
   }

   function printPalette($palArr)   {

         // Init color/class attributes:
      $ccAttr2 = $this->colorScheme[2] ? ' bgcolor="'.$this->colorScheme[2].'"' : '';
      $ccAttr2.= $this->classScheme[2] ? ' class="'.$this->classScheme[2].'"' : '';
      $ccAttr4 = $this->colorScheme[4] ? ' style="color:'.$this->colorScheme[4].'"' : '';
      $ccAttr4.= $this->classScheme[4] ? ' class="'.$this->classScheme[4].'"' : '';

         // Traverse palette fields and render them into table rows:
      foreach($palArr as $content)  {
         $hRow[]='<td'.$ccAttr2.'>&nbsp;</td>
               <td nowrap="nowrap"'.$ccAttr2.'>'.
                  '<span'.$ccAttr4.'>'.
                     $content['NAME'].
                  '</span>'.
               '</td>';
         $iRow[]='<td valign="top">'.
                  '<img name="req_'.$content['TABLE'].'_'.$content['ID'].'_'.$content['FIELD'].'" src="clear.gif" width="10" height="10" vspace="4" alt="" />'.
                  '<img name="cm_'.$content['TABLE'].'_'.$content['ID'].'_'.$content['FIELD'].'" src="clear.gif" width="7" height="10" vspace="4" alt="" />'.
               '</td>
               <td nowrap="nowrap" valign="top">'.
                  $content['ITEM'].
                  $content['HELP_ICON'].
               '</td>';
      }

         // Final wrapping into the table:
      $out='<table border="0" cellpadding="0" cellspacing="0" class="typo3-TCEforms-palette">
         <tr>
            <td><img src="clear.gif" width="'.intval($this->paletteMargin).'" height="1" alt="" /></td>'.
               implode('
            ',$hRow).'
         </tr>
         <tr>
            <td></td>'.
               implode('
            ',$iRow).'
         </tr>
      </table>';

      return $out;
   }

   function helpTextIcon($table,$field,$force=0)   {
      if ($this->globalShowHelp && $GLOBALS['TCA_DESCR'][$table]['columns'][$field] && (($this->edit_showFieldHelp=='icon'&&!$this->doLoadTableDescr($table)) || $force))  {
         $aOnClick = 'vHWin=window.open(\''.$this->backPath.'view_help.php?tfID='.($table.'.'.$field).'\',\'viewFieldHelp\',\'height=400,width=600,status=0,menubar=0,scrollbars=1\');vHWin.focus();return false;';
         return '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
               '<img'.t3lib_iconWorks::skinImg($this->backPath,'gfx/helpbubble.gif','width="14" height="14"').' hspace="2" border="0" class="absmiddle"'.($GLOBALS['CLIENT']['FORMSTYLE']?' style="cursor:help;"':'').' alt="" />'.
               '</a>';
      } else {
            // Detects fields with no CSH and outputs dummy line to insert into CSH locallang file:
         #debug(array("'".$field.".description' => '[FILL IN] ".$table."->".$field."',"),$table);
         return '&nbsp;';
      }
   }

   function helpText($table,$field) {
      if ($this->globalShowHelp && $GLOBALS['TCA_DESCR'][$table]['columns'][$field] && ($this->edit_showFieldHelp=='text' || $this->doLoadTableDescr($table))) {
         $fDat = $GLOBALS['TCA_DESCR'][$table]['columns'][$field];
         return '<table border="0" cellpadding="2" cellspacing="0" width="90%"><tr><td valign="top" width="14">'.
               $this->helpTextIcon(
                  $table,
                  $field,
                  $fDat['details']||$fDat['syntax']||$fDat['image_descr']||$fDat['image']||$fDat['seeAlso']
               ).
               '</td><td valign="top"><span class="typo3-TCEforms-helpText">'.
               $GLOBALS['LANG']->hscAndCharConv($fDat['description'],1).
               '</span></td></tr></table>';
      }
   }

   function setColorScheme($scheme) {
      $this->colorScheme = $this->defColorScheme;
      $this->classScheme = $this->defClassScheme;

      $parts = t3lib_div::trimExplode(',',$scheme);
      foreach($parts as $key => $col)  {
            // Split for color|class:
         list($color,$class) = t3lib_div::trimExplode('|',$col);

            // Handle color values:
         if ($color) $this->colorScheme[$key] = $color;
         if ($color=='-')  $this->colorScheme[$key] = '';

            // Handle class values:
         if ($class) $this->classScheme[$key] = $class;
         if ($class=='-')  $this->classScheme[$key] = '';
      }
   }

   function resetSchemes() {
      $this->setColorScheme($GLOBALS['TBE_STYLES']['colorschemes'][0]);
      $this->fieldStyle = $GLOBALS['TBE_STYLES']['styleschemes'][0];
      $this->borderStyle = $GLOBALS['TBE_STYLES']['borderschemes'][0];
   }

   function storeSchemes() {
      $this->savedSchemes['classScheme'] = $this->classScheme;
      $this->savedSchemes['colorScheme'] = $this->colorScheme;
      $this->savedSchemes['fieldStyle'] = $this->fieldStyle;
      $this->savedSchemes['borderStyle'] = $this->borderStyle;
   }

   function restoreSchemes()  {
      $this->classScheme = $this->savedSchemes['classScheme'];
      $this->colorScheme = $this->savedSchemes['colorScheme'];
      $this->fieldStyle = $this->savedSchemes['fieldStyle'];
      $this->borderStyle = $this->savedSchemes['borderStyle'];
   }













   /********************************************
    *
    * JavaScript related functions
    *
    ********************************************/

   function JStop()  {

      $out = '';

         // Additional top HTML:
      if (count($this->additionalCode_pre))  {
         $out.= implode('

            <!-- NEXT: -->
         ',$this->additionalCode_pre);
      }

         // Additional top JavaScript
      if (count($this->additionalJS_pre)) {
         $out.='


      <!--
         JavaScript in top of page (before form):
      -->

      <script type="text/javascript">
         /*<![CDATA[*/

         '.implode('

            // NEXT:
         ',$this->additionalJS_pre).'

         /*]]>*/
      </script>
         ';
      }

         // Return result:
      return $out;
   }

   function JSbottom($formname='forms[0]')   {

            // required
         $reqLines=array();
         $reqLinesCheck=array();
         $reqLinesSet=array();
         reset($this->requiredFields);
         while(list($itemImgName,$itemName)=each($this->requiredFields))   {
            $reqLines[]="              TBE_REQUIRED['".$itemName."']=1;";
            $reqLinesCheck[]="               if (!document.".$formname."['".$itemName."'].value)   {OK=0;}";
            $reqLinesSet[]="              if (!document.".$formname."['".$itemName."'].value)   {TBE_EDITOR_setImage('req_".$itemImgName."','TBE_EDITOR_req');}";
         }

         $reqRange=array();
         $reqRangeCheck=array();
         $reqRangeSet=array();
         reset($this->requiredElements);
         while(list($itemName,$range)=each($this->requiredElements)) {
            $reqRange[]="              TBE_RANGE['".$itemName."']=1;";
            $reqRange[]="              TBE_RANGE_lower['".$itemName."']=".$range[0].";";
            $reqRange[]="              TBE_RANGE_upper['".$itemName."']=".$range[1].";";
            $reqRangeCheck[]="               if (!TBE_EDITOR_checkRange(document.".$formname."['".$itemName."_list'],".$range[0].",".$range[1].")) {OK=0;}";
            $reqRangeSet[]="              if (!TBE_EDITOR_checkRange(document.".$formname."['".$itemName."_list'],".$range[0].",".$range[1].")) {TBE_EDITOR_setImage('req_".$range['imgName']."','TBE_EDITOR_req');}";
         }

         $this->TBE_EDITOR_fieldChanged_func='TBE_EDITOR_fieldChanged_fName(fName,formObj[fName+"_list"]);';

         if ($this->loadMD5_JS)  {
         $out.='
         <script type="text/javascript" src="'.$this->backPath.'md5.js"></script>';
         }
         $out.='
         <script type="text/javascript" src="'.$this->backPath.'t3lib/jsfunc.evalfield.js"></script>
         <script type="text/javascript">
            /*<![CDATA[*/

            var TBE_EDITOR_req=new Image();  TBE_EDITOR_req.src = "'.t3lib_iconWorks::skinImg($this->backPath,'gfx/required_h.gif','',1).'";
            var TBE_EDITOR_cm=new Image();      TBE_EDITOR_cm.src = "'.t3lib_iconWorks::skinImg($this->backPath,'gfx/content_client.gif','',1).'";
            var TBE_EDITOR_sel=new Image();  TBE_EDITOR_sel.src = "'.t3lib_iconWorks::skinImg($this->backPath,'gfx/content_selected.gif','',1).'";
            var TBE_EDITOR_clear=new Image();   TBE_EDITOR_clear.src = "'.$this->backPath.'clear.gif";
            var TBE_REQUIRED=new Array();
'.implode(chr(10),$reqLines).'

            var TBE_RANGE=new Array();
            var TBE_RANGE_lower=new Array();
            var TBE_RANGE_upper=new Array();
'.implode(chr(10),$reqRange).'

            // $this->additionalJS_post:
'.implode(chr(10),$this->additionalJS_post).'

            var TBE_EDITOR_loadTime = 0;
            var TBE_EDITOR_isChanged = 0;

            function TBE_EDITOR_loginRefreshed()   {  //
               var date = new Date();
               TBE_EDITOR_loadTime = Math.floor(date.getTime()/1000);
               if (top.busy && top.busy.loginRefreshed)  {top.busy.loginRefreshed();}
            }
            function TBE_EDITOR_checkLoginTimeout()   {  //
               var date = new Date();
               var theTime = Math.floor(date.getTime()/1000);
               if (theTime > TBE_EDITOR_loadTime+'.intval($GLOBALS['BE_USER']->auth_timeout_field).'-10) {
                  return true;
               }
            }
            function TBE_EDITOR_setHiddenContent(RTEcontent,theField)   {  //
               document.'.$formname.'[theField].value = RTEcontent;
               alert(document.'.$formname.'[theField].value);
            }
            function TBE_EDITOR_fieldChanged_fName(fName,el)   {  //
               var idx='.(2+substr_count($this->prependFormFieldNames,'[')).';
               var table = TBE_EDITOR_split(fName, "[", idx);
               var uid = TBE_EDITOR_split(fName, "[", idx+1);
               var field = TBE_EDITOR_split(fName, "[", idx+2);

               table = table.substr(0,table.length-1);
               uid = uid.substr(0,uid.length-1);
               field = field.substr(0,field.length-1);
               TBE_EDITOR_fieldChanged(table,uid,field,el);
            }
            function TBE_EDITOR_fieldChanged(table,uid,field,el)  {  //
               var theField = "'.$this->prependFormFieldNames.'["+table+"]["+uid+"]["+field+"]";
               TBE_EDITOR_isChanged = 1;

                  // Set change image:
               var imgObjName = "cm_"+table+"_"+uid+"_"+field;
               TBE_EDITOR_setImage(imgObjName,"TBE_EDITOR_cm");

                  // Set change image
               if (document.'.$formname.'[theField] && document.'.$formname.'[theField].type=="select-one" && document.'.$formname.'[theField+"_selIconVal"])  {
                  var imgObjName = "selIcon_"+table+"_"+uid+"_"+field+"_";
                  TBE_EDITOR_setImage(imgObjName+document.'.$formname.'[theField+"_selIconVal"].value,"TBE_EDITOR_clear");
                  document.'.$formname.'[theField+"_selIconVal"].value = document.'.$formname.'[theField].selectedIndex;
                  TBE_EDITOR_setImage(imgObjName+document.'.$formname.'[theField+"_selIconVal"].value,"TBE_EDITOR_sel");
               }

                  // Set required flag:
               var imgReqObjName = "req_"+table+"_"+uid+"_"+field;
               if (TBE_REQUIRED[theField] && document.'.$formname.'[theField])   {
                  if (document.'.$formname.'[theField].value)  {
                     TBE_EDITOR_setImage(imgReqObjName,"TBE_EDITOR_clear");
                  } else {
                     TBE_EDITOR_setImage(imgReqObjName,"TBE_EDITOR_req");
                  }
               }
               if (TBE_RANGE[theField] && document.'.$formname.'[theField])   {
                  if (TBE_EDITOR_checkRange(document.'.$formname.'[theField+"_list"],TBE_RANGE_lower[theField],TBE_RANGE_upper[theField]))   {
                     TBE_EDITOR_setImage(imgReqObjName,"TBE_EDITOR_clear");
                  } else {
                     TBE_EDITOR_setImage(imgReqObjName,"TBE_EDITOR_req");
                  }
               }
               '.(!$this->isPalettedoc?'':'
               TBE_EDITOR_setOriginalFormFieldValue(theField);
               ').'
            }
            '.($this->isPalettedoc?'
            function TBE_EDITOR_setOriginalFormFieldValue(theField)  {  //
               if ('.$this->isPalettedoc.' && '.$this->isPalettedoc.'.document.'.$formname.' && '.$this->isPalettedoc.'.document.'.$formname.'[theField]) {
                  '.$this->isPalettedoc.'.document.'.$formname.'[theField].value = document.'.$formname.'[theField].value;
               }
            }
            ':'').'
            function TBE_EDITOR_isFormChanged(noAlert)   {  //
               if (TBE_EDITOR_isChanged && !noAlert && confirm('.$GLOBALS['LANG']->JScharCode($GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.fieldsChanged')).'))  {
                  return 0;
               }
               return TBE_EDITOR_isChanged;
            }
            function TBE_EDITOR_checkAndDoSubmit(sendAlert) {  //
               if (TBE_EDITOR_checkSubmit(sendAlert)) {
                  TBE_EDITOR_submitForm();
               }
            }

            function TBE_EDITOR_checkSubmit(sendAlert)   {  //
               if (TBE_EDITOR_checkLoginTimeout() && confirm('.$GLOBALS['LANG']->JScharCode($this->getLL('m_refresh_login')).')) {
                  vHWin=window.open(\''.$this->backPath.'login_frameset.php?\',\'relogin\',\'height=300,width=400,status=0,menubar=0\');
                  vHWin.focus();
                  return false;
               }
               var OK=1;

               // $this->additionalJS_post:
'.implode(chr(10),$this->additionalJS_submit).'

               if(!OK)  {
                  if (!confirm(unescape("SYSTEM ERROR: One or more Rich Text Editors on the page could not be contacted. This IS an error, although it should not be regular.\nYou can save the form now by pressing OK, but you will loose the Rich Text Editor content if you do.\n\nPlease report the error to your administrator if it persists."))) {
                     return false;
                  } else {
                     OK = 1;
                  }
               }

'.implode(chr(10),$reqLinesCheck).'
'.implode(chr(10),$reqRangeCheck).'

               if (OK || sendAlert==-1)   {
                  return true;
               } else {
                  if(sendAlert)  alert('.$GLOBALS['LANG']->JScharCode($GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.fieldsMissing')).');
                  return false;
               }
            }
            function TBE_EDITOR_checkRange(el,lower,upper)  {  //
               if (el && el.length>=lower && el.length<=upper) {
                  return true;
               } else {
                  return false;
               }
            }
            function TBE_EDITOR_initRequired()  {  //
'.implode(chr(10),$reqLinesSet).'
'.implode(chr(10),$reqRangeSet).'
            }
            function TBE_EDITOR_setImage(name,imgName)   {  //
               if (document[name]) {document[name].src = eval(imgName+".src");}
            }
            function TBE_EDITOR_submitForm() {  //
               '.($this->doSaveFieldName?'document.'.$this->formName."['".$this->doSaveFieldName."'].value=1;":'').'
               document.'.$this->formName.'.submit();
            }
            function typoSetup   () {  //
               this.passwordDummy = "********";
               this.decimalSign = ".";
            }
            var TS = new typoSetup();
            var evalFunc = new evalFunc();

            function typo3FormFieldSet(theField, evallist, is_in, checkbox, checkboxValue)   {  //
               if (document.'.$formname.'[theField])  {
                  var theFObj = new evalFunc_dummy (evallist,is_in, checkbox, checkboxValue);
                  var theValue = document.'.$formname.'[theField].value;
                  if (checkbox && theValue==checkboxValue)  {
                     document.'.$formname.'[theField+"_hr"].value="";
                     if (document.'.$formname.'[theField+"_cb"])  document.'.$formname.'[theField+"_cb"].checked = "";
                  } else {
                     document.'.$formname.'[theField+"_hr"].value = evalFunc.outputObjValue(theFObj, theValue);
                     if (document.'.$formname.'[theField+"_cb"])  document.'.$formname.'[theField+"_cb"].checked = "on";
                  }
               }
            }
            function typo3FormFieldGet(theField, evallist, is_in, checkbox, checkboxValue, checkbox_off, checkSetValue) {  //
               if (document.'.$formname.'[theField])  {
                  var theFObj = new evalFunc_dummy (evallist,is_in, checkbox, checkboxValue);
                  if (checkbox_off) {
                     if (document.'.$formname.'[theField+"_cb"].checked)   {
                        document.'.$formname.'[theField].value=checkSetValue;
                     } else {
                        document.'.$formname.'[theField].value=checkboxValue;
                     }
                  }else{
                     document.'.$formname.'[theField].value = evalFunc.evalObjValue(theFObj, document.'.$formname.'[theField+"_hr"].value);
                  }
                  typo3FormFieldSet(theField, evallist, is_in, checkbox, checkboxValue);
               }
            }
            function TBE_EDITOR_split(theStr1, delim, index) {    //
               var theStr = ""+theStr1;
               var lengthOfDelim = delim.length;
               sPos = -lengthOfDelim;
               if (index<1) {index=1;}
               for (var a=1; a<index; a++)   {
                  sPos = theStr.indexOf(delim, sPos+lengthOfDelim);
                  if (sPos==-1)  {return null;}
               }
               ePos = theStr.indexOf(delim, sPos+lengthOfDelim);
               if(ePos == -1) {ePos = theStr.length;}
               return (theStr.substring(sPos+lengthOfDelim,ePos));
            }
            function TBE_EDITOR_palUrl(inData,fieldList,fieldNum,table,uid,isOnFocus) {      //
               var url = "'.$this->backPath.'alt_palette.php?inData="+inData+"&formName='.rawurlencode($this->formName).'"+"&prependFormFieldNames='.rawurlencode($this->prependFormFieldNames).'";
               var field = "";
               var theField="";
               for (var a=0; a<fieldNum;a++) {
                  field = TBE_EDITOR_split(fieldList, ",", a+1);
                  theField = "'.$this->prependFormFieldNames.'["+table+"]["+uid+"]["+field+"]";
                  if (document.'.$formname.'[theField])     url+="&rec["+field+"]="+TBE_EDITOR_rawurlencode(document.'.$formname.'[theField].value);
               }
               if (top.topmenuFrame)   {
                  top.topmenuFrame.document.location = url+"&backRef="+(top.content.list_frame ? (top.content.list_frame.view_frame ? "top.content.list_frame.view_frame" : "top.content.list_frame") : "top.content");
               } else if (!isOnFocus) {
                  var vHWin=window.open(url,"palette","height=300,width=200,status=0,menubar=0,scrollbars=1");
                  vHWin.focus();
               }
            }
            function TBE_EDITOR_curSelected(theField) {  //
               var fObjSel = document.'.$formname.'[theField];
               var retVal="";
               if (fObjSel)   {
                  if (fObjSel.type=="select-multiple" || fObjSel.type=="select-one")   {
                     var l=fObjSel.length;
                     for (a=0;a<l;a++) {
                        if (fObjSel.options[a].selected==1) {
                           retVal+=fObjSel.options[a].value+",";
                        }
                     }
                  }
               }
               return retVal;
            }
            function TBE_EDITOR_rawurlencode(str,maxlen) {  //
               var output = str;
               if (maxlen) output = output.substr(0,200);
               output = escape(output);
               output = TBE_EDITOR_str_replace("*","%2A", output);
               output = TBE_EDITOR_str_replace("+","%2B", output);
               output = TBE_EDITOR_str_replace("/","%2F", output);
               output = TBE_EDITOR_str_replace("@","%40", output);
               return output;
            }
            function TBE_EDITOR_str_replace(match,replace,string) {  //
               var input = ""+string;
               var matchStr = ""+match;
               if (!matchStr) {return string;}
               var output = "";
               var pointer=0;
               var pos = input.indexOf(matchStr);
               while (pos!=-1)   {
                  output+=""+input.substr(pointer, pos-pointer)+replace;
                  pointer=pos+matchStr.length;
                  pos = input.indexOf(match,pos+1);
               }
               output+=""+input.substr(pointer);
               return output;
            }
            /*]]>*/
         </script>
         <script type="text/javascript">
            /*<![CDATA[*/

            '.$this->extJSCODE.'

            TBE_EDITOR_initRequired();
            TBE_EDITOR_loginRefreshed();
            /*]]>*/
         </script>';
         return $out;
   }

   function dbFileCon($formObj='document.forms[0]')   {
      $str='

         // ***************
         // Used to connect the db/file browser with this document and the formfields on it!
         // ***************

         var browserWin="";

         function setFormValueOpenBrowser(mode,params) { //
            var url = "'.$this->backPath.'browser.php?mode="+mode+"&bparams="+params;

            browserWin = window.open(url,"Typo3WinBrowser","height=350,width="+(mode=="db"?650:600)+",status=0,menubar=0,resizable=1,scrollbars=1");
            browserWin.focus();
         }
         function setFormValueFromBrowseWin(fName,value,label) {  //
            var formObj = setFormValue_getFObj(fName)
            if (formObj && value!="--div--") {
               fObj = formObj[fName+"_list"];
                  // Inserting element
               var l=fObj.length;
               var setOK=1;
               if (!formObj[fName+"_mul"] || formObj[fName+"_mul"].value==0)  {
                  for (a=0;a<l;a++) {
                     if (fObj.options[a].value==value)   {
                        setOK=0;
                     }
                  }
               }
               if (setOK)  {
                  fObj.length++;
                  fObj.options[l].value=value;
                  fObj.options[l].text=unescape(label);

                     // Traversing list and set the hidden-field
                  setHiddenFromList(fObj,formObj[fName]);
                  '.$this->TBE_EDITOR_fieldChanged_func.'
               }
            }
         }
         function setHiddenFromList(fObjSel,fObjHid)  {  //
            l=fObjSel.length;
            fObjHid.value="";
            for (a=0;a<l;a++) {
               fObjHid.value+=fObjSel.options[a].value+",";
            }
         }
         function setFormValueManipulate(fName,type)  {  //
            var formObj = setFormValue_getFObj(fName)
            if (formObj)   {
               var localArray_V = new Array();
               var localArray_L = new Array();
               var fObjSel = formObj[fName+"_list"];
               var l=fObjSel.length;
               var c=0;
               var cS=0;
               if (type=="Remove" || type=="Up")   {
                  if (type=="Up")   {
                     for (a=0;a<l;a++) {
                        if (fObjSel.options[a].selected==1) {
                           localArray_V[c]=fObjSel.options[a].value;
                           localArray_L[c]=fObjSel.options[a].text;
                           c++;
                           cS++;
                        }
                     }
                  }
                  for (a=0;a<l;a++) {
                     if (fObjSel.options[a].selected!=1) {
                        localArray_V[c]=fObjSel.options[a].value;
                        localArray_L[c]=fObjSel.options[a].text;
                        c++;
                     }
                  }
               }
               fObjSel.length = c;
               for (a=0;a<c;a++) {
                  fObjSel.options[a].value = localArray_V[a];
                  fObjSel.options[a].text = localArray_L[a];
                  fObjSel.options[a].selected=(a<cS)?1:0;
               }
               setHiddenFromList(fObjSel,formObj[fName]);

               '.$this->TBE_EDITOR_fieldChanged_func.'
            }
         }
         function setFormValue_getFObj(fName)   {  //
            var formObj = '.$formObj.';
            if (formObj)   {
               if (formObj[fName] && formObj[fName+"_list"] && formObj[fName+"_list"].type=="select-multiple") {
                  return formObj;
               } else {
                  alert("Formfields missing:\n fName: "+formObj[fName]+"\n fName_list:"+formObj[fName+"_list"]+"\n type:"+formObj[fName+"_list"].type+"\n fName:"+fName);
               }
            }
            return "";
         }

         // END: dbFileCon parts.
      ';
      return $str;
   }

   function printNeededJSFunctions()   {
         // JS evaluation:
      $out = $this->JSbottom($this->formName);
         //
      if ($this->printNeededJS['dbFileIcons'])  {
         $out.= '



         <!--
            JavaScript after the form has been drawn:
         -->

         <script type="text/javascript">
            /*<![CDATA[*/
         '.$this->dbFileCon('document.'.$this->formName).'
            /*]]>*/
         </script>';
      }
      return $out;
   }

   function printNeededJSFunctions_top()  {
         // JS evaluation:
      $out = $this->JStop($this->formName);
      return $out;
   }





























   /********************************************
    *
    * Various helper functions
    *
    ********************************************/


   function getDefaultRecord($table,$pid=0)  {
      global $TCA;
      if ($TCA[$table]) {
         t3lib_div::loadTCA($table);
         $row = array();

         if ($pid<0 && $TCA[$table]['ctrl']['useColumnsForDefaultValues']) {
               // Fetches the previous record:
            $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('*', $table, 'uid='.abs($pid).t3lib_BEfunc::deleteClause($table));
            if ($drow = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {
                  // Gets the list of fields to copy from the previous record.
               $fArr = explode(',',$TCA[$table]['ctrl']['useColumnsForDefaultValues']);
               foreach($fArr as $theF) {
                  if ($TCA[$table]['columns'][$theF]) {
                     $row[$theF] = $drow[$theF];
                  }
               }
            }
            $GLOBALS['TYPO3_DB']->sql_free_result($res);
         }

         foreach($TCA[$table]['columns'] as $field => $info)   {
            if (isset($info['config']['default'])) {
               $row[$field] = $info['config']['default'];
            }
         }

         return $row;
      }
   }

   function getRecordPath($table,$rec) {
      t3lib_BEfunc::fixVersioningPid($table,$rec);
      list($tscPID,$thePidValue)=$this->getTSCpid($table,$rec['uid'],$rec['pid']);
      if ($thePidValue>=0) {
         return t3lib_BEfunc::getRecordPath($tscPID,$this->readPerms(),15);
      }
   }

   function readPerms() {
      if (!$this->perms_clause_set) {
         $this->perms_clause = $GLOBALS['BE_USER']->getPagePermsClause(1);
         $this->perms_clause_set=1;
      }
      return $this->perms_clause;
   }

   function sL($str) {
      return $GLOBALS['LANG']->sL($str);
   }

   function getLL($str) {
      switch(substr($str,0,2))   {
         case 'l_':
            return $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.'.substr($str,2));
         break;
         case 'm_':
            return $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:mess.'.substr($str,2));
         break;
      }
   }

   function isPalettesCollapsed($table,$palette)   {
      global $TCA;

      if ($TCA[$table]['ctrl']['canNotCollapse']) return 0;
      if (is_array($TCA[$table]['palettes'][$palette]) && $TCA[$table]['palettes'][$palette]['canNotCollapse'])   return 0;
      return $this->palettesCollapsed;
   }

   function isDisplayCondition($displayCond,$row)  {
      $output = FALSE;

      $parts = explode(':',$displayCond);
      switch((string)$parts[0])  {  // Type of condition:
         case 'FIELD':
            switch((string)$parts[2])  {
               case 'REQ':
                  if (strtolower($parts[3])=='true')  {
                     $output = $row[$parts[1]] ? TRUE : FALSE;
                  } elseif (strtolower($parts[3])=='false') {
                     $output = !$row[$parts[1]] ? TRUE : FALSE;
                  }
               break;
               case '>':
                  $output = $row[$parts[1]] > $parts[3];
               break;
               case '<':
                  $output = $row[$parts[1]] < $parts[3];
               break;
               case '>=':
                  $output = $row[$parts[1]] >= $parts[3];
               break;
               case '<=':
                  $output = $row[$parts[1]] <= $parts[3];
               break;
               case '-':
               case '!-':
                  $cmpParts = explode('-',$parts[3]);
                  $output = $row[$parts[1]] >= $cmpParts[0] && $row[$parts[1]] <= $cmpParts[1];
                  if ($parts[2]{0}=='!')  $output = !$output;
               break;
               case 'IN':
               case '!IN':
                  $output = t3lib_div::inList($parts[3],$row[$parts[1]]);
                  if ($parts[2]{0}=='!')  $output = !$output;
               break;
               case '=':
               case '!=':
                  $output = t3lib_div::inList($parts[3],$row[$parts[1]]);
                  if ($parts[2]{0}=='!')  $output = !$output;
               break;
            }
         break;
         case 'EXT':
            switch((string)$parts[2])  {
               case 'LOADED':
                  if (strtolower($parts[3])=='true')  {
                     $output = t3lib_extMgm::isLoaded($parts[1]) ? TRUE : FALSE;
                  } elseif (strtolower($parts[3])=='false') {
                     $output = !t3lib_extMgm::isLoaded($parts[1]) ? TRUE : FALSE;
                  }
               break;
            }
         break;
         case 'REC':
            switch((string)$parts[1])  {
               case 'NEW':
                  if (strtolower($parts[2])=='true')  {
                     $output = !(intval($row['uid']) > 0) ? TRUE : FALSE;
                  } elseif (strtolower($parts[2])=='false') {
                     $output = (intval($row['uid']) > 0) ? TRUE : FALSE;
                  }
               break;
            }
         break;
      }

      return $output;
   }

   function getTSCpid($table,$uid,$pid)   {
      $key = $table.':'.$uid.':'.$pid;
      if (!isset($this->cache_getTSCpid[$key])) {
         $this->cache_getTSCpid[$key] = t3lib_BEfunc::getTSCpid($table,$uid,$pid);
      }
      return $this->cache_getTSCpid[$key];
   }

   function doLoadTableDescr($table)   {
      global $TCA;
      return $TCA[$table]['interface']['always_description'];
   }

   function getAvailableLanguages($onlyIsoCoded=1,$setDefault=1)  {
      $isL = t3lib_extMgm::isLoaded('static_info_tables');

         // Find all language records in the system:
      $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('static_lang_isocode,title,uid', 'sys_language', 'pid=0 AND NOT hidden'.t3lib_BEfunc::deleteClause('sys_language'), '', 'title');

         // Traverse them:
      $output=array();
      if ($setDefault)  {
         $output[0]=array(
            'uid' => 0,
            'title' => 'Default language',
            'ISOcode' => 'DEF'
         );
      }
      while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
         $output[$row['uid']]=$row;

         if ($isL && $row['static_lang_isocode'])  {
            $rr = t3lib_BEfunc::getRecord('static_languages',$row['static_lang_isocode'],'lg_iso_2');
            if ($rr['lg_iso_2']) $output[$row['uid']]['ISOcode']=$rr['lg_iso_2'];
         }

         if ($onlyIsoCoded && !$output[$row['uid']]['ISOcode'])   unset($output[$row['uid']]);
      }
      return $output;
   }
}









class t3lib_TCEforms_FE extends t3lib_TCEforms {

   function wrapLabels($str)  {
      return '<font face="verdana" size="1" color="black">'.$str.'</font>';
   }

   function printPalette($palArr)   {
      $out='';
      reset($palArr);
      $bgColor=' bgcolor="#D6DAD0"';
      while(list(,$content)=each($palArr))   {
         $hRow[]='<td'.$bgColor.'><font face="verdana" size="1">&nbsp;</font></td><td nowrap="nowrap"'.$bgColor.'><font color="#666666" face="verdana" size="1">'.$content['NAME'].'</font></td>';
         $iRow[]='<td valign="top">'.
                  '<img name="req_'.$content['TABLE'].'_'.$content['ID'].'_'.$content['FIELD'].'" src="clear.gif" width="10" height="10" alt="" />'.
                  '<img name="cm_'.$content['TABLE'].'_'.$content['ID'].'_'.$content['FIELD'].'" src="clear.gif" width="7" height="10" alt="" />'.
                  '</td><td nowrap="nowrap" valign="top">'.$content['ITEM'].$content['HELP_ICON'].'</td>';
      }
      $out='<table border="0" cellpadding="0" cellspacing="0">
         <tr><td><img src="clear.gif" width="'.intval($this->paletteMargin).'" height="1" alt="" /></td>'.implode('',$hRow).'</tr>
         <tr><td></td>'.implode('',$iRow).'</tr>
      </table>';

      return $out;
   }

   function setFancyDesign()  {
      $this->fieldTemplate='
   <tr>
      <td nowrap="nowrap" bgcolor="#F6F2E6">###FIELD_HELP_ICON###<font face="verdana" size="1" color="black"><b>###FIELD_NAME###</b></font>###FIELD_HELP_TEXT###</td>
   </tr>
   <tr>
      <td nowrap="nowrap" bgcolor="#ABBBB4"><img name="req_###FIELD_TABLE###_###FIELD_ID###_###FIELD_FIELD###" src="clear.gif" width="10" height="10" alt="" /><img name="cm_###FIELD_TABLE###_###FIELD_ID###_###FIELD_FIELD###" src="clear.gif" width="7" height="10" alt="" /><font face="verdana" size="1" color="black">###FIELD_ITEM###</font>###FIELD_PAL_LINK_ICON###</td>
   </tr> ';

      $this->totalWrap='<table border="0" cellpadding="1" cellspacing="0" bgcolor="black"><tr><td><table border="0" cellpadding="2" cellspacing="0">|</table></td></tr></table>';

      $this->palFieldTemplate='
   <tr>
      <td nowrap="nowrap" bgcolor="#ABBBB4"><font face="verdana" size="1" color="black">###FIELD_PALETTE###</font></td>
   </tr> ';
      $this->palFieldTemplateHeader='
   <tr>
      <td nowrap="nowrap" bgcolor="#F6F2E6"><font face="verdana" size="1" color="black"><b>###FIELD_HEADER###</b></font></td>
   </tr> ';
   }
}

if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_tceforms.php'])   {
   include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['t3lib/class.t3lib_tceforms.php']);
}
?>

---