/src/typo3_src-4.2.0alpha1/typo3/alt_doc.php

<?php
/***************************************************************
*  Copyright notice
*
*  (c) 1999-2005 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('init.php');
require('template.php');
$LANG->includeLLFile('EXT:lang/locallang_alt_doc.xml');
require_once (PATH_t3lib.'class.t3lib_tceforms.php');
require_once (PATH_t3lib.'class.t3lib_clipboard.php');

require_once (PATH_t3lib.'class.t3lib_tcemain.php');
require_once (PATH_t3lib.'class.t3lib_loaddbgroup.php');
require_once (PATH_t3lib.'class.t3lib_transferdata.php');


t3lib_BEfunc::lockRecords();




class SC_alt_doc {

                // Internal, static: GPvars:
        var $editconf;                  // GPvar "edit": Is an array looking approx like [tablename][list-of-ids]=command, eg. "&edit[pages][123]=edit". See t3lib_BEfunc::editOnClick(). Value can be seen modified internally (converting NEW keyword to id, workspace/versioning etc).
        var $columnsOnly;               // Commalist of fieldnames to edit. The point is IF you specify this list, only those fields will be rendered in the form. Otherwise all (available) fields in the record is shown according to the types configuration in $TCA
        var $defVals;                   // Default values for fields (array with tablenames, fields etc. as keys). Can be seen modified internally.
        var $overrideVals;              // Array of values to force being set (as hidden fields). Will be set as $this->defVals IF defVals does not exist.
        var $returnUrl;                 // If set, this value will be set in $this->retUrl (which is used quite many places as the return URL). If not set, "dummy.php" will be set in $this->retUrl
        var $closeDoc;                  // Close-document command. Not really sure of all options...
        var $doSave;                    // Quite simply, if this variable is set, then the processing of incoming data will be performed - as if a save-button is pressed. Used in the forms as a hidden field which can be set through JavaScript if the form is somehow submitted by JavaScript).

        var $data;                              // GPvar (for processing only) : The data array from which the data comes...
        var $mirror;                    // GPvar (for processing only) : ?
        var $cacheCmd;                  // GPvar (for processing only) : Clear-cache cmd.
        var $redirect;                  // GPvar (for processing only) : Redirect (not used???)
        var $disableRTE;                // GPvar (for processing only) : If set, the rich text editor is disabled in the forms.
        var $returnNewPageId;   // GPvar (for processing only) : Boolean: If set, then the GET var "&id=" will be added to the retUrl string so that the NEW id of something is returned to the script calling the form.
        var $vC;                                // GPvar (for processing only) : Verification code, internal stuff.
        var $uc;                                // GPvar : update BE_USER->uc
        
        var $popViewId;                 // GPvar (module) : ID for displaying the page in the frontend (used for SAVE/VIEW operations)
        var $popViewId_addParams;       // GPvar (module) : Additional GET vars for the link, eg. "&L=xxx"
        var $viewUrl;                   // GPvar (module) : Alternative URL for viewing the frontend pages.
        var $editRegularContentFromId;          // If this is pointing to a page id it will automatically load all content elements (NORMAL column/default language) from that page into the form!
        var $recTitle;                          // Alternative title for the document handler.
        var $disHelp;                           // Disable help... ?
        var $noView;                            // If set, then no SAVE/VIEW button is printed
        var $returnEditConf;            // If set, the $this->editconf array is returned to the calling script (used by wizard_add.php for instance)
        var $localizationMode;          // GP var, localization mode for TCEforms (eg. "text")


                // Internal, static:
        var $doc;
        var $content;                   // Content accumulation

        var $retUrl;                    // Return URL script, processed. This contains the script (if any) that we should RETURN TO from the alt_doc.php script IF we press the close button. Thus this variable is normally passed along from the calling script so we can properly return if needed.
        var $R_URL_parts;               // Contains the parts of the REQUEST_URI (current url). By parts we mean the result of resolving REQUEST_URI (current url) by the parse_url() function. The result is an array where eg. "path" is the script path and "query" is the parameters...
        var $R_URL_getvars;             // Contains the current GET vars array; More specifically this array is the foundation for creating the R_URI internal var (which becomes the "url of this script" to which we submit the forms etc.)
        var $R_URI;                             // Set to the URL of this script including variables which is needed to re-display the form. See main()

        var $storeTitle;                // Is loaded with the "title" of the currently "open document" - this is used in the Document Selector box. (see makeDocSel())
        var $storeArray;                // Contains an array with key/value pairs of GET parameters needed to reach the current document displayed - used in the Document Selector box. (see compileStoreDat())
        var $storeUrl;                  // Contains storeArray, but imploded into a GET parameter string (see compileStoreDat())
        var $storeUrlMd5;               // Hashed value of storeURL (see compileStoreDat())

        var $docDat;                    // Module session data
        var $docHandler;                // An array of the "open documents" - keys are md5 hashes (see $storeUrlMd5) identifying the various documents on the GET parameter list needed to open it. The values are arrays with 0,1,2 keys with information about the document (see compileStoreDat()). The docHandler variable is stored in the $docDat session data, key "0".


                // Internal: Related to the form rendering:
        var $elementsData;              // Array of the elements to create edit forms for.
        var $firstEl;                   // Pointer to the first element in $elementsData
        var $errorC;                    // Counter, used to count the number of errors (when users do not have edit permissions)
        var $newC;                              // Counter, used to count the number of new record forms displayed
        var $viewId;                    // Is set to the pid value of the last shown record - thus indicating which page to show when clicking the SAVE/VIEW button
        var $viewId_addParams;  // Is set to additional parameters (like "&L=xxx") if the record supports it.
        var $modTSconfig;               // Module TSconfig, loaded from main() based on the page id value of viewId

        var $tceforms;
        var $generalPathOfForm; // Contains the root-line path of the currently edited record(s) - for display.


                // Internal, dynamic:
        var $dontStoreDocumentRef;      // Used internally to disable the storage of the document reference (eg. new records)







        function preInit()      {
                global $BE_USER;

                if (t3lib_div::_GP('justLocalized'))    {
                        $this->localizationRedirect(t3lib_div::_GP('justLocalized'));
                }

                        // Setting GPvars:
                $this->editconf = t3lib_div::_GP('edit');
                $this->defVals = t3lib_div::_GP('defVals');
                $this->overrideVals = t3lib_div::_GP('overrideVals');
                $this->columnsOnly = t3lib_div::_GP('columnsOnly');
                $this->returnUrl = t3lib_div::_GP('returnUrl');
                $this->closeDoc = t3lib_div::_GP('closeDoc');
                $this->doSave = t3lib_div::_GP('doSave');
                $this->returnEditConf = t3lib_div::_GP('returnEditConf');
                $this->localizationMode = t3lib_div::_GP('localizationMode');
                $this->uc = t3lib_div::_GP('uc');


                        // Setting override values as default if defVals does not exist.
                if (!is_array($this->defVals) && is_array($this->overrideVals)) {
                        $this->defVals = $this->overrideVals;
                }

                        // Setting return URL
                $this->retUrl = $this->returnUrl ? $this->returnUrl : 'dummy.php';

                        // Fix $this->editconf if versioning applies to any of the records
                $this->fixWSversioningInEditConf();

                        // Make R_URL (request url) based on input GETvars:
                $this->R_URL_parts = parse_url(t3lib_div::getIndpEnv('REQUEST_URI'));
                $this->R_URL_getvars = t3lib_div::_GET();
                $this->R_URL_getvars['edit'] = $this->editconf;

                        // MAKE url for storing
                $this->compileStoreDat();

                        // Initialize more variables.
                $this->dontStoreDocumentRef=0;
                $this->storeTitle='';

                        // Get session data for the module:
                $this->docDat = $BE_USER->getModuleData('alt_doc.php','ses');
                $this->docHandler = $this->docDat[0];

                        // If a request for closing the document has been sent, act accordingly:
                if ($this->closeDoc>0)  {
                        $this->closeDocument($this->closeDoc);
                }

                        // If NO vars are sent to the script, try to read first document:
                if (is_array($this->R_URL_getvars) && count($this->R_URL_getvars)<2 && !is_array($this->editconf))      {       // Added !is_array($this->editconf) because editConf must not be set either. Anyways I can't figure out when this situation here will apply...
                        $this->setDocument($this->docDat[1]);
                }
        }

        function doProcessData()        {
                $out = $this->doSave || isset($_POST['_savedok_x']) || isset($_POST['_saveandclosedok_x']) || isset($_POST['_savedokview_x']) || isset($_POST['_savedoknew_x']);
                return $out;
        }

        function processData()  {
                global $BE_USER,$TYPO3_CONF_VARS;

                        // GPvars specifically for processing:
                $this->data = t3lib_div::_GP('data');
                $this->cmd = t3lib_div::_GP('cmd');
                $this->mirror = t3lib_div::_GP('mirror');
                $this->cacheCmd = t3lib_div::_GP('cacheCmd');
                $this->redirect = t3lib_div::_GP('redirect');
                $this->disableRTE = t3lib_div::_GP('_disableRTE');
                $this->returnNewPageId = t3lib_div::_GP('returnNewPageId');
                $this->vC = t3lib_div::_GP('vC');

                        // See tce_db.php for relevate options here:
                        // Only options related to $this->data submission are included here.
                $tce = t3lib_div::makeInstance('t3lib_TCEmain');
                $tce->stripslashes_values=0;

                        // Setting default values specific for the user:
                $TCAdefaultOverride = $BE_USER->getTSConfigProp('TCAdefaults');
                if (is_array($TCAdefaultOverride))      {
                        $tce->setDefaultsFromUserTS($TCAdefaultOverride);
                }

                        // Setting internal vars:
                if ($BE_USER->uc['neverHideAtCopy'])    {       $tce->neverHideAtCopy = 1;      }
                $tce->debug=0;
                $tce->disableRTE = $this->disableRTE;

                        // Loading TCEmain with data:
                $tce->start($this->data,$this->cmd);
                if (is_array($this->mirror))    {       $tce->setMirror($this->mirror); }

                        // If pages are being edited, we set an instruction about updating the page tree after this operation.
                if (isset($this->data['pages']))        {
                        t3lib_BEfunc::getSetUpdateSignal('updatePageTree');
                }


                        // Checking referer / executing
                $refInfo=parse_url(t3lib_div::getIndpEnv('HTTP_REFERER'));
                $httpHost = t3lib_div::getIndpEnv('TYPO3_HOST_ONLY');
                if ($httpHost!=$refInfo['host'] && $this->vC!=$BE_USER->veriCode() && !$TYPO3_CONF_VARS['SYS']['doNotCheckReferer'])    {
                        $tce->log('',0,0,0,1,"Referer host '%s' and server host '%s' did not match and veriCode was not valid either!",1,array($refInfo['host'],$httpHost));
                        debug('Error: Referer host did not match with server host.');
                } else {

                                // Perform the saving operation with TCEmain:
                        $tce->process_uploads($_FILES);
                        $tce->process_datamap();
                        $tce->process_cmdmap();

                                // If there was saved any new items, load them:
                        if (count($tce->substNEWwithIDs_table)) {
                                        // save the expanded/collapsed states for new inline records, if any
                                t3lib_TCEforms_inline::updateInlineView($this->uc, $tce);

                                $newEditConf = array();

                                foreach($this->editconf as $tableName => $tableCmds) {
                                        $keys = array_keys($tce->substNEWwithIDs_table, $tableName);
                                        if(count($keys) > 0) {
                                                foreach($keys as $key) {
                                                        $editId = $tce->substNEWwithIDs[$key];
                                                                // check if the $editId isn't a child record of an IRRE action
                                                        if (!(is_array($tce->newRelatedIDs[$tableName]) && in_array($editId, $tce->newRelatedIDs[$tableName]))) {
                                                                        // translate new id to the workspace version:
                                                                if ($versionRec = t3lib_BEfunc::getWorkspaceVersionOfRecord($GLOBALS['BE_USER']->workspace, $tableName, $editId,'uid')) {
                                                                        $editId = $versionRec['uid'];
                                                                }
                                                                $newEditConf[$tableName][$editId] = 'edit';
                                                        }
        
                                                                // Traverse all new records and forge the content of ->editconf so we can continue to EDIT these records!
                                                        if ($tableName=='pages' && $this->retUrl!='dummy.php' && $this->returnNewPageId)        {
                                                                $this->retUrl.='&id='.$tce->substNEWwithIDs[$key];
                                                        }
                                                }
                                        } else {
                                                $newEditConf[$tableName] = $tableCmds;
                                        }
                                }

                                        // Resetting editconf if newEditConf has values:
                                if (count($newEditConf)) {
                                        $this->editconf = $newEditConf;
                                }
                                
                                        // Finally, set the editconf array in the "getvars" so they will be passed along in URLs as needed.
                                $this->R_URL_getvars['edit']=$this->editconf;

                                        // Unsetting default values since we don't need them anymore.
                                unset($this->R_URL_getvars['defVals']);

                                        // Re-compile the store* values since editconf changed...
                                $this->compileStoreDat();
                        }

                                // See if any records was auto-created as new versions?
                        if (count($tce->autoVersionIdMap))      {
                                $this->fixWSversioningInEditConf($tce->autoVersionIdMap);
                        }

                                // If a document is saved and a new one is created right after.
                        if (isset($_POST['_savedoknew_x']) && is_array($this->editconf))        {

                                        // Finding the current table:
                                reset($this->editconf);
                                $nTable=key($this->editconf);

                                        // Finding the first id, getting the records pid+uid
                                reset($this->editconf[$nTable]);
                                $nUid=key($this->editconf[$nTable]);
                                $nRec = t3lib_BEfunc::getRecord($nTable,$nUid,'pid,uid');

                                        // Setting a blank editconf array for a new record:
                                $this->editconf=array();
                                if ($this->getNewIconMode($nTable)=='top')      {
                                        $this->editconf[$nTable][$nRec['pid']]='new';
                                } else {
                                        $this->editconf[$nTable][-$nRec['uid']]='new';
                                }

                                        // Finally, set the editconf array in the "getvars" so they will be passed along in URLs as needed.
                                $this->R_URL_getvars['edit']=$this->editconf;

                                        // Re-compile the store* values since editconf changed...
                                $this->compileStoreDat();
                        }

                        $tce->printLogErrorMessages(
                                isset($_POST['_saveandclosedok_x']) ?
                                $this->retUrl :
                                $this->R_URL_parts['path'].'?'.t3lib_div::implodeArrayForUrl('',$this->R_URL_getvars)   // popView will not be invoked here, because the information from the submit button for save/view will be lost .... But does it matter if there is an error anyways?
                        );
                }
                if (isset($_POST['_saveandclosedok_x']) || $this->closeDoc<0)   {       //  || count($tce->substNEWwithIDs)... If any new items has been save, the document is CLOSED because if not, we just get that element re-listed as new. And we don't want that!
                        $this->closeDocument(abs($this->closeDoc));
                }
        }

        function init() {
                global $BE_USER,$LANG,$BACK_PATH;

                        // Setting more GPvars:
                $this->popViewId = t3lib_div::_GP('popViewId');
                $this->popViewId_addParams = t3lib_div::_GP('popViewId_addParams');
                $this->viewUrl = t3lib_div::_GP('viewUrl');
                $this->editRegularContentFromId = t3lib_div::_GP('editRegularContentFromId');
                $this->recTitle = t3lib_div::_GP('recTitle');
                $this->disHelp = t3lib_div::_GP('disHelp');
                $this->noView = t3lib_div::_GP('noView');

                        // Set other internal variables:
                $this->R_URL_getvars['returnUrl']=$this->retUrl;
                $this->R_URI = $this->R_URL_parts['path'].'?'.t3lib_div::implodeArrayForUrl('',$this->R_URL_getvars);

                        // MENU-ITEMS:
                        // If array, then it's a selector box menu
                        // If empty string it's just a variable, that'll be saved.
                        // Values NOT in this array will not be saved in the settings-array for the module.
                $this->MOD_MENU = array(
                        'showPalettes' => '',
                        'showDescriptions' => '',
                        'disableRTE' => ''
                );

                        // Setting virtual document name
                $this->MCONF['name']='xMOD_alt_doc.php';

                        // CLEANSE SETTINGS
                $this->MOD_SETTINGS = t3lib_BEfunc::getModuleData($this->MOD_MENU, t3lib_div::_GP('SET'), $this->MCONF['name']);

                        // Create an instance of the document template object
                $this->doc = t3lib_div::makeInstance('mediumDoc');
                $this->doc->bodyTagMargins['x']=5;
                $this->doc->bodyTagMargins['y']=5;
                $this->doc->backPath = $BACK_PATH;
                $this->doc->docType = 'xhtml_trans';

                $this->doc->form='<form action="'.htmlspecialchars($this->R_URI).'" method="post" enctype="'.$GLOBALS['TYPO3_CONF_VARS']['SYS']['form_enctype'].'" name="editform" onsubmit="return TBE_EDITOR.checkSubmit(1);">';

                $this->doc->JScode = $this->doc->wrapScriptTags('
                        function jumpToUrl(URL,formEl)  {       //
                                if (!TBE_EDITOR.isFormChanged())        {
                                        window.location.href = URL;
                                } else if (formEl && formEl.type=="checkbox") {
                                        formEl.checked = formEl.checked ? 0 : 1;
                                }
                        }

                                // Object: TS:
                        function typoSetup      ()      {       //
                                this.uniqueID = "";
                        }
                        var TS = new typoSetup();

                                // Info view:
                        function launchView(table,uid,bP)       {       //
                                var backPath= bP ? bP : "";
                                var thePreviewWindow="";
                                thePreviewWindow = window.open(backPath+"show_item.php?table="+encodeURIComponent(table)+"&uid="+encodeURIComponent(uid),"ShowItem"+TS.uniqueID,"height=300,width=410,status=0,menubar=0,resizable=0,location=0,directories=0,scrollbars=1,toolbar=0");
                                if (thePreviewWindow && thePreviewWindow.focus) {
                                        thePreviewWindow.focus();
                                }
                        }
                        function deleteRecord(table,id,url)     {       //
                                if (
                                        '.($GLOBALS['BE_USER']->jsConfirmation(4)?'confirm('.$LANG->JScharCode($LANG->getLL('deleteWarning')).')':'1==1').'
                                )       {
                                        window.location.href = "tce_db.php?cmd["+table+"]["+id+"][delete]=1&redirect="+escape(url)+"&vC='.$BE_USER->veriCode().'&prErr=1&uPT=1";
                                }
                                return false;
                        }
                '.(isset($_POST['_savedokview_x']) && $this->popViewId ?
                        'if (window.opener) { '.
                                t3lib_BEfunc::viewOnClick($this->popViewId,'',t3lib_BEfunc::BEgetRootLine($this->popViewId),'',$this->viewUrl,$this->popViewId_addParams,FALSE).
                                ' } else { '.
                                t3lib_BEfunc::viewOnClick($this->popViewId,'',t3lib_BEfunc::BEgetRootLine($this->popViewId),'',$this->viewUrl,$this->popViewId_addParams).
                                ' } '
                        : '')
                ).$this->doc->getDynTabMenuJScode();

                        // Setting up the context sensitive menu:
                $CMparts = $this->doc->getContextMenuCode();
                $this->doc->JScode.= $CMparts[0];
                $this->doc->bodyTagAdditions = $CMparts[1];
                $this->doc->postCode.= $CMparts[2];
        }

        function main() {
                global $BE_USER,$LANG;

                        // Starting content accumulation:
                $this->content='';
                $this->content.=$this->doc->startPage('TYPO3 Edit Document');

                        // Begin edit:
                if (is_array($this->editconf))  {
                        
                                // Initialize TCEforms (rendering the forms)
                        $this->tceforms = t3lib_div::makeInstance('t3lib_TCEforms');
                        $this->tceforms->initDefaultBEMode();
                        $this->tceforms->doSaveFieldName = 'doSave';
                        $this->tceforms->localizationMode = t3lib_div::inList('text,media',$this->localizationMode) ? $this->localizationMode : '';     // text,media is keywords defined in TYPO3 Core API..., see "l10n_cat"
                        $this->tceforms->returnUrl = $this->R_URI;
                        $this->tceforms->palettesCollapsed = !$this->MOD_SETTINGS['showPalettes'];
                        $this->tceforms->disableRTE = $this->MOD_SETTINGS['disableRTE'];
                        $this->tceforms->enableClickMenu = TRUE;
                        $this->tceforms->enableTabMenu = TRUE;

                                // Clipboard is initialized:
                        $this->tceforms->clipObj = t3lib_div::makeInstance('t3lib_clipboard');          // Start clipboard
                        $this->tceforms->clipObj->initializeClipboard();        // Initialize - reads the clipboard content from the user session

                                // Setting external variables:
                        if ($BE_USER->uc['edit_showFieldHelp']!='text' && $this->MOD_SETTINGS['showDescriptions'])      $this->tceforms->edit_showFieldHelp='text';

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

                                // Creating the editing form, wrap it with buttons, document selector etc.
                        $editForm = $this->makeEditForm();

                        if ($editForm)  {
                                reset($this->elementsData);
                                $this->firstEl = current($this->elementsData);

                                        // language switch/selector for editing
                                        // show only when a single record is edited - multiple records are too confusing
                                if (count($this->elementsData)==1) {
                                        $languageSwitch = $this->languageSwitch($this->firstEl['table'], $this->firstEl['uid'], $this->firstEl['pid']);
                                }


                                if ($this->viewId)      {
                                                // Module configuration:
                                        $this->modTSconfig = t3lib_BEfunc::getModTSconfig($this->viewId,'mod.xMOD_alt_doc');
                                } else $this->modTSconfig=array();

                                $panel = $this->makeButtonPanel();
                                $docSel = $this->makeDocSel();
                                $cMenu = $this->makeCmenu();

                                $formContent = $this->compileForm($panel,$docSel,$cMenu,$editForm,$languageSwitch);

                                $this->content.= $this->tceforms->printNeededJSFunctions_top().
                                                                        $formContent.
                                                                        $this->tceforms->printNeededJSFunctions();
                                $this->content.= $this->functionMenus();

                                        // Add CSH:
                                $this->content.= t3lib_BEfunc::cshItem('xMOD_csh_corebe', 'TCEforms', $GLOBALS['BACK_PATH'],'<br/>|',FALSE,'margin-top: 20px;');

                                $this->content.= $this->shortCutLink();

                                $this->tceformMessages();
                        }
                }
        }


        function printContent() {
                $this->content.= $this->doc->endPage();
                $this->content = $this->doc->insertStylesAndJS($this->content);
                echo $this->content;
        }




















        /***************************
         *
         * Sub-content functions, rendering specific parts of the module content.
         *
         ***************************/

        function makeEditForm() {
                global $BE_USER,$LANG,$TCA;

                        // Initialize variables:
                $this->elementsData=array();
                $this->errorC=0;
                $this->newC=0;
                $thePrevUid='';
                $editForm='';

                        // Traverse the GPvar edit array
                foreach($this->editconf as $table => $conf)     {       // Tables:
                        if (is_array($conf) && $TCA[$table] && $BE_USER->check('tables_modify',$table)) {

                                        // Traverse the keys/comments of each table (keys can be a commalist of uids)
                                foreach($conf as $cKey => $cmd) {
                                        if ($cmd=='edit' || $cmd=='new')        {

                                                        // Get the ids:
                                                $ids = t3lib_div::trimExplode(',',$cKey,1);

                                                        // Traverse the ids:
                                                foreach($ids as $theUid)        {

                                                                // Checking if the user has permissions? (Only working as a precaution, because the final permission check is always down in TCE. But it's good to notify the user on beforehand...)
                                                                // First, resetting flags.
                                                        $hasAccess = 1;
                                                        $deniedAccessReason = '';
                                                        $deleteAccess = 0;
                                                        $this->viewId = 0;

                                                                // If the command is to create a NEW record...:
                                                        if ($cmd=='new')        {
                                                                if (intval($theUid))    {               // NOTICE: the id values in this case points to the page uid onto which the record should be create OR (if the id is negativ) to a record from the same table AFTER which to create the record.

                                                                                // Find parent page on which the new record reside
                                                                        if ($theUid<0)  {       // Less than zero - find parent page
                                                                                $calcPRec=t3lib_BEfunc::getRecord($table,abs($theUid));
                                                                                $calcPRec=t3lib_BEfunc::getRecord('pages',$calcPRec['pid']);
                                                                        } else {        // always a page
                                                                                $calcPRec=t3lib_BEfunc::getRecord('pages',abs($theUid));
                                                                        }

                                                                                // Now, calculate whether the user has access to creating new records on this position:
                                                                        if (is_array($calcPRec))        {
                                                                                $CALC_PERMS = $BE_USER->calcPerms($calcPRec);   // Permissions for the parent page
                                                                                if ($table=='pages')    {       // If pages:
                                                                                        $hasAccess = $CALC_PERMS&8 ? 1 : 0;
                                                                                        $this->viewId = $calcPRec['pid'];
                                                                                } else {
                                                                                        $hasAccess = $CALC_PERMS&16 ? 1 : 0;
                                                                                        $this->viewId = $calcPRec['uid'];
                                                                                }
                                                                        }
                                                                }
                                                                $this->dontStoreDocumentRef=1;          // Don't save this document title in the document selector if the document is new.
                                                        } else {        // Edit:
                                                                $calcPRec = t3lib_BEfunc::getRecord($table,$theUid);
                                                                t3lib_BEfunc::fixVersioningPid($table,$calcPRec);
                                                                if (is_array($calcPRec))        {
                                                                        if ($table=='pages')    {       // If pages:
                                                                                $CALC_PERMS = $BE_USER->calcPerms($calcPRec);
                                                                                $hasAccess = $CALC_PERMS&2 ? 1 : 0;
                                                                                $deleteAccess = $CALC_PERMS&4 ? 1 : 0;
                                                                                $this->viewId = $calcPRec['uid'];
                                                                        } else {
                                                                                $CALC_PERMS = $BE_USER->calcPerms(t3lib_BEfunc::getRecord('pages',$calcPRec['pid']));   // Fetching pid-record first.
                                                                                $hasAccess = $CALC_PERMS&16 ? 1 : 0;
                                                                                $deleteAccess = $CALC_PERMS&16 ? 1 : 0;
                                                                                $this->viewId = $calcPRec['pid'];

                                                                                        // Adding "&L=xx" if the record being edited has a languageField with a value larger than zero!
                                                                                if ($TCA[$table]['ctrl']['languageField'] && $calcPRec[$TCA[$table]['ctrl']['languageField']]>0)        {
                                                                                        $this->viewId_addParams = '&L='.$calcPRec[$TCA[$table]['ctrl']['languageField']];
                                                                                }
                                                                        }

                                                                                // Check internals regarding access:
                                                                        if ($hasAccess) {
                                                                                $hasAccess = $BE_USER->recordEditAccessInternals($table, $calcPRec);
                                                                                $deniedAccessReason = $BE_USER->errorMsg;
                                                                        }
                                                                } else $hasAccess = 0;
                                                        }

                                                        // AT THIS POINT we have checked the access status of the editing/creation of records and we can now proceed with creating the form elements:

                                                        if ($hasAccess) {
                                                                $prevPageID = is_object($trData)?$trData->prevPageID:'';
                                                                $trData = t3lib_div::makeInstance('t3lib_transferData');
                                                                $trData->addRawData = TRUE;
                                                                $trData->defVals = $this->defVals;
                                                                $trData->lockRecords=1;
                                                                $trData->disableRTE = $this->MOD_SETTINGS['disableRTE'];
                                                                $trData->prevPageID = $prevPageID;
                                                                $trData->fetchRecord($table,$theUid,$cmd=='new'?'new':'');      // 'new'
                                                                reset($trData->regTableItems_data);
                                                                $rec = current($trData->regTableItems_data);
                                                                $rec['uid'] = $cmd=='new' ? uniqid('NEW') : $theUid;
                                                                if ($cmd=='new')        {
                                                                        $rec['pid'] = $theUid=='prev'?$thePrevUid:$theUid;
                                                                }
                                                                $this->elementsData[]=array(
                                                                        'table' => $table,
                                                                        'uid' => $rec['uid'],
                                                                        'pid' => $rec['pid'],
                                                                        'cmd' => $cmd,
                                                                        'deleteAccess' => $deleteAccess
                                                                );

                                                                        // Now, render the form:
                                                                if (is_array($rec))     {

                                                                                // Setting visual path / title of form:
                                                                        $this->generalPathOfForm = $this->tceforms->getRecordPath($table,$rec);
                                                                        if (!$this->storeTitle) {
                                                                                $this->storeTitle = $this->recTitle ? htmlspecialchars($this->recTitle) : t3lib_BEfunc::getRecordTitle($table,$rec,TRUE);
                                                                        }

                                                                                // Setting variables in TCEforms object:
                                                                        $this->tceforms->hiddenFieldList = '';
                                                                        $this->tceforms->globalShowHelp = $this->disHelp ? 0 : 1;
                                                                        if (is_array($this->overrideVals[$table]))      {
                                                                                $this->tceforms->hiddenFieldListArr = array_keys($this->overrideVals[$table]);
                                                                        }

                                                                                // Register default language labels, if any:
                                                                        $this->tceforms->registerDefaultLanguageData($table,$rec);

                                                                                // Create form for the record (either specific list of fields or the whole record):
                                                                        $panel = '';
                                                                        if ($this->columnsOnly) {
                                                                                if(is_array($this->columnsOnly)){
                                                                                        $panel.= $this->tceforms->getListedFields($table,$rec,$this->columnsOnly[$table]);
                                                                                } else {
                                                                                        $panel.= $this->tceforms->getListedFields($table,$rec,$this->columnsOnly);
                                                                                }
                                                                        } else {
                                                                                $panel.= $this->tceforms->getMainFields($table,$rec);
                                                                        }
                                                                        $panel = $this->tceforms->wrapTotal($panel,$rec,$table);

                                                                                // Setting the pid value for new records:
                                                                        if ($cmd=='new')        {
                                                                                $panel.= '<input type="hidden" name="data['.$table.']['.$rec['uid'].'][pid]" value="'.$rec['pid'].'" />';
                                                                                $this->newC++;
                                                                        }

                                                                                // Display "is-locked" message:
                                                                        if ($lockInfo = t3lib_BEfunc::isRecordLocked($table,$rec['uid']))       {
                                                                                $lockIcon = '

                                                                                        <!--
                                                                                                Warning box:
                                                                                        -->
                                                                                        <table border="0" cellpadding="0" cellspacing="0" class="warningbox">
                                                                                                <tr>
                                                                                                        <td><img'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/recordlock_warning3.gif','width="17" height="12"').' alt="" /></td>
                                                                                                        <td>'.htmlspecialchars($lockInfo['msg']).'</td>
                                                                                                </tr>
                                                                                        </table>
                                                                                ';
                                                                        } else $lockIcon = '';

                                                                                // Combine it all:
                                                                        $editForm.= $lockIcon.$panel;
                                                                }

                                                                $thePrevUid = $rec['uid'];
                                                        } else {
                                                                $this->errorC++;
                                                                $editForm.=$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.noEditPermission',1).'<br /><br />'.
                                                                                        ($deniedAccessReason ? 'Reason: '.htmlspecialchars($deniedAccessReason).'<br/><br/>' : '');
                                                        }
                                                }
                                        }
                                }
                        }
                }

                return $editForm;
        }

        function makeButtonPanel()      {
                global $TCA,$LANG;

                $panel='';

                        // Render SAVE type buttons:
                        // The action of each button is decided by its name attribute. (See doProcessData())
                if (!$this->errorC && !$TCA[$this->firstEl['table']]['ctrl']['readOnly'])       {

                                // SAVE button:
                        $panel.= '<input type="image" class="c-inputButton" name="_savedok"'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/savedok.gif','').' title="'.$LANG->sL('LLL:EXT:lang/locallang_core.php:rm.saveDoc',1).'" />';

                                // SAVE / VIEW button:
                        if ($this->viewId && !$this->noView && t3lib_extMgm::isLoaded('cms')) {
                                $panel.= '<input type="image" class="c-inputButton" name="_savedokview"'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/savedokshow.gif','').' title="'.$LANG->sL('LLL:EXT:lang/locallang_core.php:rm.saveDocShow',1).'" />';
                        }

                                // SAVE / NEW button:
                        if (count($this->elementsData)==1 && $this->getNewIconMode($this->firstEl['table'])) {
                                $panel.= '<input type="image" class="c-inputButton" name="_savedoknew"'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/savedoknew.gif','').' title="'.$LANG->sL('LLL:EXT:lang/locallang_core.php:rm.saveNewDoc',1).'" />';
                        }

                                // SAVE / CLOSE
                        $panel.= '<input type="image" class="c-inputButton" name="_saveandclosedok"'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/saveandclosedok.gif','').' title="'.$LANG->sL('LLL:EXT:lang/locallang_core.php:rm.saveCloseDoc',1).'" />';
                }

                        // CLOSE button:
                $panel.= '<a href="#" onclick="document.editform.closeDoc.value=1; document.editform.submit(); return false;">'.
                                '<img'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/closedok.gif','width="21" height="16"').' class="c-inputButton" title="'.$LANG->sL('LLL:EXT:lang/locallang_core.php:rm.closeDoc',1).'" alt="" />'.
                                '</a>';

                        // DELETE + UNDO buttons:
                if (!$this->errorC && !$TCA[$this->firstEl['table']]['ctrl']['readOnly'] && count($this->elementsData)==1)      {
                        if ($this->firstEl['cmd']!='new' && t3lib_div::testInt($this->firstEl['uid']))  {

                                        // Delete:
                                if ($this->firstEl['deleteAccess'] && !$TCA[$this->firstEl['table']]['ctrl']['readOnly'] && !$this->getNewIconMode($this->firstEl['table'],'disableDelete')) {
                                        $aOnClick = 'return deleteRecord(\''.$this->firstEl['table'].'\',\''.$this->firstEl['uid'].'\',unescape(\''.rawurlencode($this->retUrl).'\'));';
                                        $panel.= '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
                                                        '<img'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/deletedok.gif','width="21" height="16"').' class="c-inputButton" title="'.$LANG->getLL('deleteItem',1).'" alt="" />'.
                                                        '</a>';
                                }

                                        // Undo:
                                $undoButton = 0;
                                $undoRes = $GLOBALS['TYPO3_DB']->exec_SELECTquery('tstamp', 'sys_history', 'tablename='.$GLOBALS['TYPO3_DB']->fullQuoteStr($this->firstEl['table'], 'sys_history').' AND recuid='.intval($this->firstEl['uid']), '', 'tstamp DESC', '1');
                                if ($undoButtonR = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($undoRes))     {
                                        $undoButton = 1;
                                }
                                if ($undoButton) {
                                        $aOnClick = 'window.location.href=\'show_rechis.php?element='.rawurlencode($this->firstEl['table'].':'.$this->firstEl['uid']).'&revert=ALL_FIELDS&sumUp=-1&returnUrl='.rawurlencode($this->R_URI).'\'; return false;';
                                        $panel.= '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
                                                        '<img'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/undo.gif','width="21" height="16"').' class="c-inputButton" title="'.htmlspecialchars(sprintf($LANG->getLL('undoLastChange'),t3lib_BEfunc::calcAge(time()-$undoButtonR['tstamp'],$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.minutesHoursDaysYears')))).'" alt="" />'.
                                                        '</a>';
                                }
                                if ($this->getNewIconMode($this->firstEl['table'],'showHistory'))       {
                                        $aOnClick = 'window.location.href=\'show_rechis.php?element='.rawurlencode($this->firstEl['table'].':'.$this->firstEl['uid']).'&returnUrl='.rawurlencode($this->R_URI).'\'; return false;';
                                        $panel.= '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
                                                        '<img'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/history2.gif','width="13" height="12"').' class="c-inputButton" alt="" />'.
                                                        '</a>';
                                }

                                        // If only SOME fields are shown in the form, this will link the user to the FULL form:
                                if ($this->columnsOnly) {
                                        $panel.= '<a href="'.htmlspecialchars($this->R_URI.'&columnsOnly=').'">'.
                                                        '<img'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/edit2.gif','width="11" height="12"').' class="c-inputButton" title="'.$LANG->getLL('editWholeRecord',1).'" alt="" />'.
                                                        '</a>';
                                }
                        }
                }
                return $panel;
        }

        function makeDocSel()   {
                global $BE_USER,$LANG;

                        // Render the selector ONLY if it has not been disabled:
                if (!$this->modTSconfig['properties']['disableDocSelector'])    {

                                // Checking if the currently open document is stored in the list of "open documents" - if not, then add it:
                        if ((strcmp($this->docDat[1],$this->storeUrlMd5)||!isset($this->docHandler[$this->storeUrlMd5])) && !$this->dontStoreDocumentRef)       {
                                $this->docHandler[$this->storeUrlMd5]=array($this->storeTitle,$this->storeArray,$this->storeUrl);
                                $BE_USER->pushModuleData('alt_doc.php',array($this->docHandler,$this->storeUrlMd5));
                        }

                                // Now, create the document selector box:
                        $docSel='';
                        if (is_array($this->docHandler))        {
                                $opt = array();
                                $opt[] = '<option>[ '.$LANG->getLL('openDocs',1).': ]</option>';

                                        // Traverse the list of open documents:
                                foreach($this->docHandler as $md5k => $setupArr)        {
                                        $theValue = 'alt_doc.php?'.$setupArr[2].'&returnUrl='.rawurlencode($this->retUrl);
                                        $opt[]='<option value="'.htmlspecialchars($theValue).'"'.(!strcmp($md5k,$this->storeUrlMd5)?' selected="selected"':'').'>'.htmlspecialchars(strip_tags(t3lib_div::htmlspecialchars_decode($setupArr[0]))).'</option>';
                                }

                                        // Compile the selector box finally:
                                $onChange = 'if(this.options[this.selectedIndex].value && !TBE_EDITOR.isFormChanged()){window.location.href=(this.options[this.selectedIndex].value);}';
                                $docSel='<select name="_docSelector" onchange="'.htmlspecialchars($onChange).'">'.implode('',$opt).'</select>';

                                        // Add CSH:
                                $docSel.=t3lib_BEfunc::cshItem('xMOD_csh_corebe', 'TCEforms_docSelector', $GLOBALS['BACK_PATH'],'', TRUE);
                        }
                } else $docSel='';
                return $docSel;
        }

        function makeCmenu()    {

                        // Generate the menu if NOT disabled:
                if (!$this->modTSconfig['properties']['disableCacheSelector'])  {
                        $cMenu = $this->doc->clearCacheMenu(intval($this->viewId),!$this->modTSconfig['properties']['disableDocSelector']);

                                // Add CSH:
                        $cMenu.=t3lib_BEfunc::cshItem('xMOD_csh_corebe', 'TCEforms_cacheSelector', $GLOBALS['BACK_PATH'],'', TRUE);
                } else $cMenu ='';
                return $cMenu;
        }

        function compileForm($panel,$docSel,$cMenu,$editForm, $langSelector='') {
                global $LANG;


                $formContent='';
                $formContent.='

                        <!--
                                Header of the editing page.
                                Contains the buttons for saving/closing, the document selector and menu selector.
                                Shows the path of the editing operation as well.
                        -->
                        <table border="0" cellpadding="0" cellspacing="1" width="470" id="typo3-altdoc-header">
                                <tr>
                                        <td nowrap="nowrap" valign="top">'.$panel.'</td>
                                        <td nowrap="nowrap" valign="top" align="right">'.$docSel.$cMenu.'</td>
                                </tr>';

                if ($langSelector) {
                        $langSelector ='<div id="typo3-altdoc-lang-selector">'.$langSelector.'</div>';
                }

                if (is_array($this->tceforms->extraFormHeaders))        {
                        $formContent .= implode(chr(10), $this->tceforms->extraFormHeaders);
                }

                $pagePath = '<div id="typo3-altdoc-page-path">'.$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.path',1).': '.htmlspecialchars($this->generalPathOfForm).'</div>';

                $formContent.='
                                <tr>
                                        <td colspan="2"><div id="typo3-altdoc-header-info-options">'.$pagePath.$langSelector.'</div></td>
                                </tr>
                        </table>




                        <!--
                                EDITING FORM:
                        -->

                        '.$editForm.'



                        <!--
                                Saving buttons (same as in top)
                        -->

                        '.$panel.
                        '<input type="hidden" name="returnUrl" value="'.htmlspecialchars($this->retUrl).'" />
                        <input type="hidden" name="viewUrl" value="'.htmlspecialchars($this->viewUrl).'" />';

                if ($this->returnNewPageId)     {
                        $formContent.='<input type="hidden" name="returnNewPageId" value="1" />';
                }
                $formContent.='<input type="hidden" name="popViewId" value="'.htmlspecialchars($this->viewId).'" />';
                if ($this->viewId_addParams) {
                        $formContent.='<input type="hidden" name="popViewId_addParams" value="'.htmlspecialchars($this->viewId_addParams).'" />';
                }
                $formContent.='<input type="hidden" name="closeDoc" value="0" />';
                $formContent.='<input type="hidden" name="doSave" value="0" />';
                $formContent.='<input type="hidden" name="_serialNumber" value="'.md5(microtime()).'" />';
                $formContent.='<input type="hidden" name="_disableRTE" value="'.$this->tceforms->disableRTE.'" />';

                return $formContent;
        }

        function functionMenus()        {
                global $BE_USER,$LANG;

                $funcMenus = '';

                        // Show palettes:
                $funcMenus.= '<br /><br />'.t3lib_BEfunc::getFuncCheck('','SET[showPalettes]',$this->MOD_SETTINGS['showPalettes'],'alt_doc.php',t3lib_div::implodeArrayForUrl('',array_merge($this->R_URL_getvars,array('SET'=>''))),'id="checkShowPalettes"').'<label for="checkShowPalettes">'.$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.showPalettes',1).'</label>';

                        // Show descriptions/help texts:
                if ($BE_USER->uc['edit_showFieldHelp']!='text') {
                        $funcMenus.= '<br />'.t3lib_BEfunc::getFuncCheck('','SET[showDescriptions]',$this->MOD_SETTINGS['showDescriptions'],'alt_doc.php',t3lib_div::implodeArrayForUrl('',array_merge($this->R_URL_getvars,array('SET'=>''))),'id="checkShowDescriptions"').'<label for="checkShowDescriptions">'.$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.showDescriptions',1).'</label>';
                }

                        // Show disable RTE checkbox:
                if ($BE_USER->isRTE())  {
                        $funcMenus.= '<br />'.t3lib_BEfunc::getFuncCheck('','SET[disableRTE]',$this->MOD_SETTINGS['disableRTE'],'alt_doc.php',t3lib_div::implodeArrayForUrl('',array_merge($this->R_URL_getvars,array('SET'=>''))),'id="checkDisableRTE"').'<label for="checkDisableRTE">'.$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.disableRTE',1).'</label>';
                }

                return '

                                <!--
                                        Function menus (checkboxes for selecting options):
                                -->
                                '.$funcMenus;
        }

        function shortCutLink() {
                global $BE_USER,$LANG;

                        // ShortCut
                if ($this->returnUrl!='close.html')     {
                        $content.='<br /><br />';

                                // Shortcut:
                        if ($BE_USER->mayMakeShortcut())        {
                                $content.=$this->doc->makeShortcutIcon('returnUrl,edit,defVals,overrideVals,columnsOnly,returnNewPageId,editRegularContentFromId,disHelp,noView',implode(',',array_keys($this->MOD_MENU)),$this->MCONF['name'],1);
                        }

                                // Open in new window:
                        $aOnClick = 'vHWin=window.open(\''.t3lib_div::linkThisScript(array('returnUrl'=>'close.html')).'\',\''.md5($this->R_URI).'\',\''.($BE_USER->uc['edit_wideDocument']?'width=670,height=500':'width=600,height=400').',status=0,menubar=0,scrollbars=1,resizable=1\');vHWin.focus();return false;';
                        $content.='<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
                                        '<img'.t3lib_iconWorks::skinImg($this->doc->backPath,'gfx/open_in_new_window.gif','width="19" height="14"').' title="'.$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.openInNewWindow',1).'" alt="" />'.
                                        '</a>';
                }
                return '

                                <!--
                                        Shortcut link:
                                -->
                                '.$content;
        }

        function tceformMessages()      {
                if (count($this->tceforms->commentMessages))    {
                        $this->content.='

<!-- TCEFORM messages
'.htmlspecialchars(implode(chr(10),$this->tceforms->commentMessages)).'
-->

';
                }
        }













        /***************************
         *
         * Localization stuff
         *
         ***************************/

        function languageSwitch($table, $uid, $pid=NULL)        {
                global $TCA;

                $content = '';

                $languageField = $TCA[$table]['ctrl']['languageField'];
                $transOrigPointerField = $TCA[$ta