alt_doc.php

Go to the documentation of this file.

<?php
/***************************************************************
*  Copyright notice
*
*  (c) 1999-2011 Kasper Skårhøj (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!
***************************************************************/
/**
 * Main form rendering script
 * By sending certain parameters to this script you can bring up a form
 * which allows the user to edit the content of one or more database records.
 *
 * $Id: alt_doc.php 10306 2011-01-25 19:12:05Z baschny $
 * Revised for TYPO3 3.6 November/2003 by Kasper Skårhøj
 * XHTML compliant
 *
 * @author  Kasper Skårhøj <kasperYYYY@typo3.com>
 */
/**
 * [CLASS/FUNCTION INDEX of SCRIPT]
 *
 *
 *
 *  105: class SC_alt_doc
 *  179:     function preInit()
 *  241:     function doProcessData()
 *  251:     function processData()
 *  379:     function init()
 *  473:     function main()
 *  551:     function printContent()
 *
 *              SECTION: Sub-content functions, rendering specific parts of the module content.
 *  587:     function makeEditForm()
 *  771:     function makeButtonPanel()
 *  850:     function makeDocSel()
 *  892:     function makeCmenu()
 *  914:     function compileForm($panel,$docSel,$cMenu,$editForm, $langSelector='')
 *  982:     function functionMenus()
 * 1013:     function shortCutLink()
 * 1044:     function tceformMessages()
 *
 *              SECTION: Localization stuff
 * 1083:     function languageSwitch($table, $uid, $pid=NULL)
 * 1179:     function localizationRedirect($justLocalized)
 * 1213:     function getLanguages($id)
 *
 *              SECTION: Other functions
 * 1275:     function fixWSversioningInEditConf($mapArray=FALSE)
 * 1324:     function getRecordForEdit($table,$theUid)
 * 1358:     function editRegularContentFromId()
 * 1386:     function compileStoreDat()
 * 1399:     function getNewIconMode($table,$key='saveDocNew')
 * 1412:     function closeDocument($code=0)
 * 1444:     function setDocument($currentDocFromHandlerMD5='',$retUrl='alt_doc_nodoc.php')
 *
 * TOTAL FUNCTIONS: 24
 * (This index is automatically created/updated by the extension "extdeveval")
 *
 */


require_once('init.php');
require_once('template.php');
$GLOBALS['LANG']->includeLLFile('EXT:lang/locallang_alt_doc.xml');

t3lib_BEfunc::lockRecords();




/**
 * Script Class: Drawing the editing form for editing records in TYPO3.
 * Notice: It does NOT use tce_db.php to submit data to, rather it handles submissions itself
 *
 * @author  Kasper Skårhøj <kasperYYYY@typo3.com>
 * @package TYPO3
 * @subpackage core
 */
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 $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:
    /**
     * document template object
     *
     * @var mediumDoc
     */
    var $doc;
    var $template;          // a static HTML template, usually in templates/alt_doc.html
    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

    /**
     * instance of TCEforms class
     *
     * @var t3lib_TCEforms
     */
    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)







    /**
     * First initialization.
     *
     * @return  void
     */
    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::sanitizeLocalUrl(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]);
        }
    }


    /**
     * Detects, if a save command has been triggered.
     *
     * @return  boolean     True, then save the document (data submitted)
     */
    function doProcessData()    {
        $out = $this->doSave || isset($_POST['_savedok_x']) || isset($_POST['_saveandclosedok_x']) || isset($_POST['_savedokview_x']) || isset($_POST['_savedoknew_x']) || isset($_POST['_translation_savedok_x']) || isset($_POST['_translation_savedokclear_x']);
        return $out;
    }


    /**
     * Do processing of data, submitting it to TCEmain.
     *
     * @return  void
     */
    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->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;

        if (isset($_POST['_translation_savedok_x']))    {
            $tce->updateModeL10NdiffData = 'FORCE_FFUPD';
        }
        if (isset($_POST['_translation_savedokclear_x']))   {
            $tce->updateModeL10NdiffData = 'FORCE_FFUPD';
            $tce->updateModeL10NdiffDataClear = TRUE;
        }

            // 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 = !$BE_USER->isRTE();

            // 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']) || $BE_USER->workspace != 0 && count($this->data)) {
            t3lib_BEfunc::setUpdateSignal('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']) || isset($_POST['_translation_savedok_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']) || isset($_POST['_translation_savedok_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));
        }
    }

    /**
     * Initialize the normal module operation
     *
     * @return  void
     */
    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');

        $this->perms_clause = $BE_USER->getPagePermsClause(1);

            // 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' => ''
        );

            // 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 = $GLOBALS['TBE_TEMPLATE'];
        $this->doc->backPath = $BACK_PATH;
        $this->doc->setModuleTemplate('templates/alt_doc.html');
        $this->doc->form = '<form action="'.htmlspecialchars($this->R_URI).'" method="post" enctype="'.$GLOBALS['TYPO3_CONF_VARS']['SYS']['form_enctype'].'" name="editform" onsubmit="document.editform._scrollPosition.value=(document.documentElement.scrollTop || document.body.scrollTop); return TBE_EDITOR.checkSubmit(1);">';

        $this->doc->getPageRenderer()->loadPrototype();
        $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:
                // passwordDummy and decimalSign are used by tbe_editor.js and have to be declared here as
                // TS object overwrites the object declared in tbe_editor.js
            function typoSetup  ()  {   //
                this.uniqueID = "";
                this.passwordDummy = "********";
                this.decimalSign = ".";
            }
            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' . t3lib_BEfunc::getUrlToken('tceAction') . '&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).
                ' } '
            : '')
        );

            // Setting up the context sensitive menu:
        $this->doc->getContextMenuCode();
        $this->doc->bodyTagAdditions = 'onload="window.scrollTo(0,'.t3lib_div::intInRange(t3lib_div::_GP('_scrollPosition'),0,10000).');"';
    }

    /**
     * Main module operation
     *
     * @return  void
     */
    function main() {
        global $BE_USER,$LANG;

            // 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 = !$BE_USER->isRTE();
            $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:
            $this->tceforms->edit_showFieldHelp = $BE_USER->uc['edit_showFieldHelp'];

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


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

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

                    // 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, $this->firstEl);
                        $BE_USER->pushModuleData('alt_doc.php', array($this->docHandler, $this->storeUrlMd5));
                        t3lib_BEfunc::setUpdateSignal('tx_opendocs::updateNumber', count($this->docHandler));
                }


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

                $body.= $this->tceforms->printNeededJSFunctions_top();
                $body.= $this->compileForm($editForm);
                $body.= $this->tceforms->printNeededJSFunctions();
                $body.= $this->functionMenus();
                $body.= $this->tceformMessages();
            }
        }

        // Access check...
        // The page will show only if there is a valid page and if this page may be viewed by the user
        $this->pageinfo = t3lib_BEfunc::readPageAccess($this->viewId, $this->perms_clause);

            // Setting up the buttons and markers for docheader
        $docHeaderButtons = $this->getButtons();
        $markers = array(
            'LANGSELECTOR' => $this->langSelector(),
            'EXTRAHEADER' => $this->extraFormHeaders(),
            'CSH' => $docHeaderButtons['csh'],
            'CONTENT' => $body
        );

            // Build the <body> for the module
        $this->content = $this->doc->startPage('TYPO3 Edit Document');
        $this->content.= $this->doc->moduleBody($this->pageinfo, $docHeaderButtons, $markers);
        $this->content.= $this->doc->endPage();
        $this->content = $this->doc->insertStylesAndJS($this->content);
    }


    /**
     * Outputting the accumulated content to screen
     *
     * @return  void
     */
    function printContent() {
        echo $this->content;
    }




















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

    /**
     * Creates the editing form with TCEforms, based on the input from GPvars.
     *
     * @return  string      HTML form elements wrapped in tables
     */
    function makeEditForm() {
        global $BE_USER,$LANG,$TCA;

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

            // 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'];
                                            $this->viewId = 0;
                                        } 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;
                            }

                            if (is_array($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['typo3/alt_doc.php']['makeEditForm_accessCheck']))   {
                                foreach ($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['typo3/alt_doc.php']['makeEditForm_accessCheck'] as $_funcRef)   {
                                    $_params = array(
                                        'table'     =>  $table,
                                        'uid'       =>  $theUid,
                                        'cmd'       =>  $cmd,
                                        'hasAccess' => $hasAccess
                                    );
                                    $hasAccess = t3lib_div::callUserFunction($_funcRef, $_params, $this);
                                }
                            }

                            // 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 = !$BE_USER->isRTE();
                                $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'])) {
                                        $lockedMessage = t3lib_div::makeInstance(
                                            't3lib_FlashMessage',
                                            htmlspecialchars($lockInfo['msg']),
                                            '',
                                            t3lib_FlashMessage::WARNING
                                        );
                                        t3lib_FlashMessageQueue::addMessage($lockedMessage);
                                    }

                                        // Combine it all:
                                    $editForm .= $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;
    }

    /**
     * Create the panel of buttons for submitting the form or otherwise perform operations.
     *
     * @return  array   all available buttons as an assoc. array
     */
    protected function getButtons() {
        global $TCA,$LANG;
        $buttons = array(
            'save' => '',
            'save_view' => '',
            'save_new' => '',
            'save_close' => '',
            'close' => '',
            'delete' => '',
            'undo' => '',
            'history' => '',
            'columns_only' => '',
            'csh' => '',
            'translation_save' => '',
            'translation_saveclear' => ''
        );

            // 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:
            $buttons['save'] = t3lib_iconWorks::getSpriteIcon('actions-document-save', array( 'html' => '<input type="image" name="_savedok" class="c-inputButton" src="clear.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') && $this->getNewIconMode($this->firstEl['table'], 'saveDocView')) {
                $buttons['save_view'] = t3lib_iconWorks::getSpriteIcon('actions-document-save-view',array('html'=>'<input type="image" class="c-inputButton" name="_savedokview" src="clear.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'])) {
                $buttons['save_new'] = t3lib_iconWorks::getSpriteIcon('actions-document-save-new',array('html'=>'<input type="image" class="c-inputButton" name="_savedoknew" src="clear.gif" title="' . $LANG->sL('LLL:EXT:lang/locallang_core.php:rm.saveNewDoc', 1) . '" />'));
            }

                // SAVE / CLOSE
            $buttons['save_close'] = t3lib_iconWorks::getSpriteIcon('actions-document-save-close',array('html'=>'<input type="image" class="c-inputButton" name="_saveandclosedok" src="clear.gif" title="' . $LANG->sL('LLL:EXT:lang/locallang_core.php:rm.saveCloseDoc', 1) . '" />'));

                // FINISH TRANSLATION / SAVE / CLOSE
            if ($GLOBALS['TYPO3_CONF_VARS']['BE']['explicitConfirmationOfTranslation']) {
                $buttons['translation_save'] = '<input type="image" class="c-inputButton" name="_translation_savedok" src="' . t3lib_iconWorks::skinImg($this->doc->backPath, 'gfx/translationsavedok.gif', '', 1) . '" title="' . $LANG->sL('LLL:EXT:lang/locallang_core.php:rm.translationSaveDoc', 1) . '" />';
                $buttons['translation_saveclear'] = '<input type="image" class="c-inputButton" name="_translation_savedokclear" src="' . t3lib_iconWorks::skinImg($this->doc->backPath, 'gfx/translationsavedok_clear.gif', '', 1) . '" title="' . $LANG->sL('LLL:EXT:lang/locallang_core.php:rm.translationSaveDocClear', 1) . '" />';
            }
        }

            // CLOSE button:
        $buttons['close'] = '<a href="#" onclick="document.editform.closeDoc.value=1; document.editform.submit(); return false;" title="' . $LANG->sL('LLL:EXT:lang/locallang_core.php:rm.closeDoc', TRUE) . '">' .
                    t3lib_iconWorks::getSpriteIcon('actions-document-close') .
                '</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).'\'));';
                    $buttons['delete'] = '<a href="#" onclick="'.htmlspecialchars($aOnClick).'" title="' . $LANG->getLL('deleteItem', TRUE) . '">' .
                            t3lib_iconWorks::getSpriteIcon('actions-edit-delete') .
                            '</a>';
                }

                    // Undo:
                $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)) {
                    $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;';
                    $buttons['undo'] = '<a href="#" onclick="'.htmlspecialchars($aOnClick).'"'.
                        ' title="' . htmlspecialchars(sprintf($LANG->getLL('undoLastChange'), t3lib_BEfunc::calcAge($GLOBALS['EXEC_TIME'] - $undoButtonR['tstamp'], $LANG->sL('LLL:EXT:lang/locallang_core.php:labels.minutesHoursDaysYears')))) . '">' .
                            t3lib_iconWorks::getSpriteIcon('actions-edit-undo') .
                        '</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;';
                    $buttons['history'] = '<a href="#" onclick="'.htmlspecialchars($aOnClick).'">'.
                            t3lib_iconWorks::getSpriteIcon('actions-document-history-open') .
                        '</a>';
                }

                    // If only SOME fields are shown in the form, this will link the user to the FULL form:
                if ($this->columnsOnly) {
                    $buttons['columns_only'] = '<a href="'.htmlspecialchars($this->R_URI.'&columnsOnly=').'" title="' . $LANG->getLL('editWholeRecord', TRUE) . '">' .
                            t3lib_iconWorks::getSpriteIcon('actions-document-open') .
                        '</a>';
                }
            }
        }

            // add the CSH icon
        $buttons['csh'] = t3lib_BEfunc::cshItem('xMOD_csh_corebe', 'TCEforms', $GLOBALS['BACK_PATH'], '', TRUE);
        $buttons['shortcut'] = $this->shortCutLink();
        $buttons['open_in_new_window'] = $this->openInNewWindowLink();
        return $buttons;
    }

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


    /**
     * Compiles the extra form headers if the tceforms
     *
     * @return  string      the HTML
     */
    function extraFormHeaders() {
        $extraTemplate = '';

        if (is_array($this->tceforms->extraFormHeaders)) {
            $extraTemplate = t3lib_parsehtml::getSubpart($this->doc->moduleTemplate, '###DOCHEADER_EXTRAHEADER###');
            $extraTemplate = t3lib_parsehtml::substituteMarker($extraTemplate, '###EXTRAHEADER###', implode(LF, $this->tceforms->extraFormHeaders));
        }
        return $extraTemplate;
    }


    /**
     * Put together the various elements (buttons, selectors, form) into a table
     *
     * @param   string      HTML form.
     * @return  string      Composite HTML
     */
    function compileForm($editForm) {
        global $LANG;

        $formContent = '
            <!-- EDITING FORM -->
            '.$editForm.'

            <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" />
            <input type="hidden" name="doSave" value="0" />
            <input type="hidden" name="_serialNumber" value="'.md5(microtime()).'" />
            <input type="hidden" name="_scrollPosition" value="" />' . t3lib_TCEforms::getHiddenTokenField('editRecord');

        return $formContent;
    }

    /**
     * Create the checkbox buttons in the bottom of the pages.
     *
     * @return  string      HTML for function menus.
     */
    function functionMenus()    {
        global $LANG;

        if ($GLOBALS['BE_USER']->getTSConfigVal('options.enableShowPalettes')) {
            // Show palettes:
            return '
                <!-- Function menu (checkbox for showing all palettes): -->
                <br />'.t3lib_BEfunc::getFuncCheck('','SET[showPalettes]',$this->MOD_SETTINGS['showPalettes'],'alt_doc.php',t3lib_div::implodeArrayForUrl('',array_merge($this->R_URL_getvars,array('SET'=>''))) . t3lib_BEfunc::getUrlToken('editRecord'),'id="checkShowPalettes"').'<label for="checkShowPalettes">'.$LANG->sL('LLL:EXT:lang/locallang_core.php:labels.showPalettes',1).'</label>';
        }
        else {
            return '';
        }
    }


    /**
     * Create shortcut icon
     *
     * @return  string
     */
    function shortCutLink() {
        global $BE_USER,$LANG;

        if ($this->returnUrl == 'close.html' || !$BE_USER->mayMakeShortcut()) {
            return '';
        }
        return $this->doc->makeShortcutIcon('returnUrl,edit,defVals,overrideVals,columnsOnly,returnNewPageId,editRegularContentFromId,disHelp,noView',implode(',',array_keys($this->MOD_MENU)),$this->MCONF['name'],1);
    }


    /**
     * Creates open-in-window link
     *
     * @return  string
     */
    function openInNewWindowLink()  {
        global $BE_USER, $LANG;
        if ($this->returnUrl == 'close.html') {
            return '';
        }
        $aOnClick = 'vHWin=window.open(\''.t3lib_div::linkThisScript(array('returnUrl'=>'close.html')).'\',\''.md5($this->R_URI).'\',\'width=670,height=500,status=0,menubar=0,scrollbars=1,resizable=1\');vHWin.focus();return false;';
        return '<a href="#" onclick="'.htmlspecialchars($aOnClick).'" title="' . $LANG->sL('LLL:EXT:lang/locallang_core.php:labels.openInNewWindow', TRUE) . '">' .
                t3lib_iconWorks::getSpriteIcon('actions-window-open') .
            '</a>';
    }


    /**
     * Reads comment messages from TCEforms and prints them in a HTML comment in the bottom of the page.
     *
     * @return  void
     */
    function tceformMessages()  {
        if (count($this->tceforms->commentMessages))    {
            $tceformMessages = '
                <!-- TCEFORM messages
                '.htmlspecialchars(implode(LF,$this->tceforms->commentMessages)).'
                -->
            ';
        }
        return $tceformMessages;
    }













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

    /**
     * Make selector box for creating new translation for a record or switching to edit the record in an existing language.
     * Displays only languages which are available for the current page.
     *
     * @param   string      Table name
     * @param   integer     uid for which to create a new language
     * @param   integer     pid of the record
     * @return  string      <select> HTML element (if there were items for the box anyways...)
     */
    function languageSwitch($table, $uid, $pid=NULL)    {
        global $TCA;

        $content = '';

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

            // table editable and activated for languages?
        if ($GLOBALS['BE_USER']->check('tables_modify',$table) && $languageField && $transOrigPointerField && !$TCA[$table]['ctrl']['transOrigPointerTable'])   {

            if(is_null($pid)) {
                $row = t3lib_befunc::getRecord($table, $uid, 'pid');
                $pid = $row['pid'];
            }

                // get all avalibale languages for the page
            $langRows = $this->getLanguages($pid);

                // page available in other languages than default language?
            if (is_array($langRows) && count($langRows)>1) {

                $rowsByLang = array();
                $fetchFields = 'uid,'.$languageField.','.$transOrigPointerField;

                    // get record in current language
                $rowCurrent = t3lib_befunc::getLiveVersionOfRecord($table, $uid, $fetchFields);
                if (!is_array($rowCurrent)) {
                $rowCurrent = t3lib_befunc::getRecord($table, $uid, $fetchFields);
                }

                $currentLanguage = $rowCurrent[$languageField];

                if ($currentLanguage>-1)    {   // Disabled for records with [all] language!
                        // get record in default language if needed
                    if ($currentLanguage) {
                        $rowsByLang[0] = t3lib_befunc::getLiveVersionOfRecord($table, $rowCurrent[$transOrigPointerField], $fetchFields);
                        if (!is_array($rowsByLang[0])) {
                        $rowsByLang[0] = t3lib_befunc::getRecord($table, $rowCurrent[$transOrigPointerField], $fetchFields);
                        }
                    } else {
                        $rowsByLang[0] = $rowCurrent;
                    }

                        // get record in other languages to see what's already available
                    $translations = $GLOBALS['TYPO3_DB']->exec_SELECTgetRows(
                        $fetchFields,
                        $table,
                        'pid='.intval($pid).
                            ' AND '.$languageField.'>0'.
                            ' AND '.$transOrigPointerField.'='.intval($rowsByLang[0]['uid']).
                            t3lib_BEfunc::deleteClause($table).
                            t3lib_BEfunc::versioningPlaceholderClause($table)
                    );
                    foreach ($translations as $row) {
                        $rowsByLang[$row[$languageField]] = $row;
                    }

                    $langSelItems=array();
                    foreach ($langRows as $lang) {
                        if ($GLOBALS['BE_USER']->checkLanguageAccess($lang['uid'])) {

                            $newTranslation = isset($rowsByLang[$lang['uid']]) ? '' : ' ['.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.xml:labels.new',1).']';

                                // create url for creating a localized record
                            if($newTranslation) {
                                $href = $this->doc->issueCommand(
                                    '&cmd['.$table.']['.$rowsByLang[0]['uid'].'][localize]='.$lang['uid'],
                                    $this->backPath.'alt_doc.php?justLocalized='.rawurlencode($table.':'.$rowsByLang[0]['uid'].':'.$lang['uid']).'&returnUrl='.rawurlencode($this->retUrl) . t3lib_BEfunc::getUrlToken('editRecord')
                                );

                                // create edit url
                            } else {
                                $href = $this->backPath.'alt_doc.php?';
                                $href .= '&edit['.$table.']['.$rowsByLang[$lang['uid']]['uid'].']=edit';
                                $href .= '&returnUrl='.rawurlencode($this->retUrl) . t3lib_BEfunc::getUrlToken('editRecord');
                            }

                            $langSelItems[$lang['uid']]='
                                    <option value="'.htmlspecialchars($href).'"'.($currentLanguage==$lang['uid']?' selected="selected"':'').'>'.htmlspecialchars($lang['title'].$newTranslation).'</option>';
                        }
                    }

                        // If any languages are left, make selector:
                    if (count($langSelItems)>1)     {
                        $onChange = 'if(this.options[this.selectedIndex].value){window.location.href=(this.options[this.selectedIndex].value);}';
                        $content = $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_general.xml:LGL.language',1).' <select name="_langSelector" onchange="'.htmlspecialchars($onChange).'">
                                '.implode('',$langSelItems).'
                            </select>';
                    }
                }
            }
        }
        return $content;
    }


    /**
     * Redirects to alt_doc with new parameters to edit a just created localized record
     *
     * @param   string      String passed by GET &justLocalized=
     * @return  void
     */
    function localizationRedirect($justLocalized)   {
        global $TCA;

        list($table,$orig_uid,$language) = explode(':',$justLocalized);

        if ($TCA[$table] && $TCA[$table]['ctrl']['languageField'] && $TCA[$table]['ctrl']['transOrigPointerField']) {
            $localizedRecord = $GLOBALS['TYPO3_DB']->exec_SELECTgetSingleRow(
                    'uid',
                    $table,
                    $TCA[$table]['ctrl']['languageField'].'='.intval($language).' AND '.
                        $TCA[$table]['ctrl']['transOrigPointerField'].'='.intval($orig_uid).
                        t3lib_BEfunc::deleteClause($table).
                        t3lib_BEfunc::versioningPlaceholderClause($table)
                );

            if (is_array($localizedRecord)) {
                    // Create parameters and finally run the classic page module for creating a new page translation
                $params = '&edit['.$table.']['.$localizedRecord['uid'].']=edit';
                $returnUrl = '&returnUrl='.rawurlencode(t3lib_div::sanitizeLocalUrl(t3lib_div::_GP('returnUrl')));
                $location = $GLOBALS['BACK_PATH'].'alt_doc.php?'.$params.$returnUrl . t3lib_BEfunc::getUrlToken('editRecord');

                t3lib_utility_Http::redirect($location);
            }
        }
    }


    /**
     * Returns sys_language records.
     *
     * @param   integer     Page id: If zero, the query will select all sys_language records from root level which are NOT hidden. If set to another value, the query will select all sys_language records that has a pages_language_overlay record on that page (and is not hidden, unless you are admin user)
     * @return  array       Language records including faked record for default language
     */
    function getLanguages($id)  {
        global $LANG;

        $modSharedTSconfig = t3lib_BEfunc::getModTSconfig($id, 'mod.SHARED');

            // fallback non sprite-configuration
        if (preg_match('/\.gif$/', $modSharedTSconfig['properties']['defaultLanguageFlag'])) {
            $modSharedTSconfig['properties']['defaultLanguageFlag'] = str_replace('.gif', '', $modSharedTSconfig['properties']['defaultLanguageFlag']);
        }

        $languages = array(
            0 => array(
                'uid' => 0,
                'pid' => 0,
                'hidden' => 0,
                'title' => strlen($modSharedTSconfig['properties']['defaultLanguageLabel']) ? $modSharedTSconfig['properties']['defaultLanguageLabel'].' ('.$GLOBALS['LANG']->sl('LLL:EXT:lang/locallang_mod_web_list.xml:defaultLanguage').')' : $GLOBALS['LANG']->sl('LLL:EXT:lang/locallang_mod_web_list.xml:defaultLanguage'),
                'flag' => $modSharedTSconfig['properties']['defaultLanguageFlag'],
            )
        );

        $exQ = $GLOBALS['BE_USER']->isAdmin() ? '' : ' AND sys_language.hidden=0';
        if ($id)    {
            $rows = $GLOBALS['TYPO3_DB']->exec_SELECTgetRows(
                            'sys_language.*',
                            'pages_language_overlay,sys_language',
                            'pages_language_overlay.sys_language_uid=sys_language.uid AND pages_language_overlay.pid='.intval($id).$exQ,
                            'pages_language_overlay.sys_language_uid,sys_language.uid,sys_language.pid,sys_language.tstamp,sys_language.hidden,sys_language.title,sys_language.static_lang_isocode,sys_language.flag',
                            'sys_language.title'
                        );
        } else {
            $rows = $GLOBALS['TYPO3_DB']->exec_SELECTgetRows(
                            'sys_language.*',
                            'sys_language',
                            'sys_language.hidden=0',
                            '',
                            'sys_language.title'
                        );
        }
        if ($rows) {
            foreach ($rows as $row) {
                $languages[$row['uid']] = $row;
            }
        }
        return $languages;
    }










    /***************************
     *
     * Other functions
     *
     ***************************/

    /**
     * Fix $this->editconf if versioning applies to any of the records
     *
     * @param   array       Mapping between old and new ids if auto-versioning has been performed.
     * @return  void
     */
    function fixWSversioningInEditConf($mapArray=FALSE) {
        global $TCA,$BE_USER;

            // Traverse the editConf array
        if (is_array($this->editconf))  {
            foreach($this->editconf as $table => $conf) {   // Tables:
                if (is_array($conf) && $TCA[$table])    {

                        // Traverse the keys/comments of each table (keys can be a commalist of uids)
                    $newConf = array();
                    foreach($conf as $cKey => $cmd) {
                        if ($cmd=='edit')   {
                                // Traverse the ids:
                            $ids = t3lib_div::trimExplode(',', $cKey, 1);
                            foreach($ids as $idKey => $theUid)  {
                                if (is_array($mapArray))    {
                                    if ($mapArray[$table][$theUid]) {
                                        $ids[$idKey] = $mapArray[$table][$theUid];
                                    }
                                } else {    // Default, look for versions in workspace for record:
                                    $calcPRec = $this->getRecordForEdit($table,$theUid);
                                    if (is_array($calcPRec))    {
                                            // Setting UID again if it had changed, eg. due to workspace versioning.
                                        $ids[$idKey] = $calcPRec['uid'];
                                    }
                                }
    #else unset($ids[$idKey]);
                            }

                                // Add the possibly manipulated IDs to the new-build newConf array:
                            $newConf[implode(',',$ids)] = $cmd;
                        } else {
                            $newConf[$cKey] = $cmd;
                        }
                    }
                        // Store the new conf array:
                    $this->editconf[$table] = $newConf;
                }
            }
        }
    }

    /**
     * Get record for editing.
     *
     * @param   string      Table name
     * @param   integer     Record UID
     * @return  array       Returns record to edit, false if none
     */
    function getRecordForEdit($table,$theUid)   {
        global $TCA;

            // Fetch requested record:
        $reqRecord = t3lib_BEfunc::getRecord($table,$theUid,'uid,pid');

        if (is_array($reqRecord))   {
                // If workspace is OFFLINE:
            if ($GLOBALS['BE_USER']->workspace!=0)  {

                    // Check for versioning support of the table:
                if ($TCA[$table] && $TCA[$table]['ctrl']['versioningWS'])   {

                        // If the record is already a version of "something" pass it by.
                    if ($reqRecord['pid']==-1)  {

                            // (If it turns out not to be a version of the current workspace there will be trouble, but that is handled inside TCEmain then and in the interface it would clearly be an error of links if the user accesses such a scenario)
                        return $reqRecord;
                    } else {    // The input record was online and an offline version must be found or made:

                            // Look for version of this workspace:
                        $versionRec = t3lib_BEfunc::getWorkspaceVersionOfRecord($GLOBALS['BE_USER']->workspace, $table, $reqRecord['uid'],'uid,pid,t3ver_oid');
                        return is_array($versionRec) ? $versionRec : $reqRecord;
                    }
                } else return FALSE;        // This means that editing cannot occur on this record because it was not supporting versioning which is required inside an offline workspace.
            } else return $reqRecord;   // In ONLINE workspace, just return the originally requested record:
        } else return FALSE;    // Return false because the table/uid was not found anyway.
    }

    /**
     * Function, which populates the internal editconf array with editing commands for all tt_content elements from the normal column in normal language from the page pointed to by $this->editRegularContentFromId
     *
     * @return  void
     */
    function editRegularContentFromId() {
        if (t3lib_extMgm::isLoaded('cms'))  {
            $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                        'uid',
                        'tt_content',
                        'pid='.intval($this->editRegularContentFromId).
                            t3lib_BEfunc::deleteClause('tt_content').
                            t3lib_BEfunc::versioningPlaceholderClause('tt_content').
                            ' AND colPos=0 AND sys_language_uid=0',
                        '',
                        'sorting'
                    );
            if ($GLOBALS['TYPO3_DB']->sql_num_rows($res))   {
                $ecUids=array();
                while($ecRec = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {
                    $ecUids[]=$ecRec['uid'];
                }
                $this->editconf['tt_content'][implode(',',$ecUids)]='edit';
            }
        }
    }

    /**
     * Populates the variables $this->storeArray, $this->storeUrl, $this->storeUrlMd5
     *
     * @return  void
     * @see makeDocSel()
     */
    function compileStoreDat()  {
        $this->storeArray = t3lib_div::compileSelectedGetVarsFromArray('edit,defVals,overrideVals,columnsOnly,disHelp,noView,editRegularContentFromId',$this->R_URL_getvars);
        $this->storeUrl = t3lib_div::implodeArrayForUrl('',$this->storeArray);
        $this->storeUrlMd5 = md5($this->storeUrl);
    }

    /**
     * Function used to look for configuration of buttons in the form: Fx. disabling buttons or showing them at various positions.
     *
     * @param   string      The table for which the configuration may be specific
     * @param   string      The option for look for. Default is checking if the saveDocNew button should be displayed.
     * @return  string      Return value fetched from USER TSconfig
     */
    function getNewIconMode($table, $key = 'saveDocNew') {
        $TSconfig = $GLOBALS['BE_USER']->getTSConfig('options.'.$key);
        $output = trim(isset($TSconfig['properties'][$table]) ? $TSconfig['properties'][$table] : $TSconfig['value']);
        return $output;
    }

    /**
     * Handling the closing of a document
     *
     * @param   integer     Close code: 0/1 will redirect to $this->retUrl, 3 will clear the docHandler (thus closing all documents) and otehr values will call setDocument with ->retUrl
     * @return  void
     */
    function closeDocument($code=0) {
        global $BE_USER;

            // If current document is found in docHandler,
            // then unset it, possibly unset it ALL and finally, write it to the session data
        if (isset($this->docHandler[$this->storeUrlMd5])) {

                // add the closing document to the recent documents
            $recentDocs = $BE_USER->getModuleData('opendocs::recent');
            if (!is_array($recentDocs)) {
                $recentDocs = array();
            }
            $closedDoc = $this->docHandler[$this->storeUrlMd5];
            $recentDocs = array_merge(array($this->storeUrlMd5 => $closedDoc), $recentDocs);
            if (count($recentDocs) > 8) {
                $recentDocs = array_slice($recentDocs, 0, 8);
            }

                // remove it from the list of the open documents
            unset($this->docHandler[$this->storeUrlMd5]);
            if ($code == '3') {
                $recentDocs = array_merge($this->docHandler, $recentDocs);
                $this->docHandler = array();
            }
            $BE_USER->pushModuleData('opendocs::recent', $recentDocs);
            $BE_USER->pushModuleData('alt_doc.php', array($this->docHandler, $this->docDat[1]));
            t3lib_BEfunc::setUpdateSignal('tx_opendocs::updateNumber', count($this->docHandler));
        }


            // If ->returnEditConf is set, then add the current content of editconf to the ->retUrl variable: (used by other scripts, like wizard_add, to know which records was created or so...)
        if ($this->returnEditConf && $this->retUrl!='dummy.php')    {
            $this->retUrl.='&returnEditConf='.rawurlencode(serialize($this->editconf));
        }

            // If code is NOT set OR set to 1, then make a header location redirect to $this->retUrl
        if (!$code || $code==1) {
            t3lib_utility_Http::redirect($this->retUrl);
        } else {
            $this->setDocument('',$this->retUrl);
        }
    }

    /**
     * Redirects to the document pointed to by $currentDocFromHandlerMD5 OR $retUrl (depending on some internal calculations).
     * Most likely you will get a header-location redirect from this function.
     *
     * @param   string      Pointer to the document in the docHandler array
     * @param   string      Alternative/Default retUrl
     * @return  void
     */
    function setDocument($currentDocFromHandlerMD5='',$retUrl='alt_doc_nodoc.php')  {
        if (!t3lib_extMgm::isLoaded('cms') && !strcmp($retUrl,'alt_doc_nodoc.php')) return;

        if (!$this->modTSconfig['properties']['disableDocSelector'] && is_array($this->docHandler) && count($this->docHandler)) {
            if (isset($this->docHandler[$currentDocFromHandlerMD5]))    {
                $setupArr=$this->docHandler[$currentDocFromHandlerMD5];
            } else {
                reset($this->docHandler);
                $setupArr=current($this->docHandler);
            }
            if ($setupArr[2])   {
                $sParts = parse_url(t3lib_div::getIndpEnv('REQUEST_URI'));
                $retUrl = $sParts['path'].'?'.$setupArr[2].'&returnUrl='.rawurlencode($retUrl);
            }
        }
        t3lib_utility_Http::redirect($retUrl);
    }
}


if (defined('TYPO3_MODE') && isset($GLOBALS['TYPO3_CONF_VARS'][TYPO3_MODE]['XCLASS']['typo3/alt_doc.php'])) {
    include_once($GLOBALS['TYPO3_CONF_VARS'][TYPO3_MODE]['XCLASS']['typo3/alt_doc.php']);
}



// Make instance:
$SOBE = t3lib_div::makeInstance('SC_alt_doc');

// Preprocessing, storing data if submitted to
$SOBE->preInit();

$formprotection = t3lib_formprotection_Factory::get();

if ($SOBE->doProcessData()) {       // Checks, if a save button has been clicked (or the doSave variable is sent)
    if ($formprotection->validateToken(t3lib_div::_GP('formToken'), 'editRecord')) {
        $SOBE->processData();
    }
}

// Main:
$SOBE->init();
$SOBE->main();
$SOBE->printContent();

?>