Documentation TYPO3 par Ameos

Disponible dans d'autres versions de TYPO3 -> 3.7.0  3.8.1  4.0.0  4.0.1  4.1.0   <- Available in other TYPO3 versions

class.t3lib_tceforms.php

<?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']);
}
?>

---