Documentation TYPO3 par Ameos

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

class.t3lib_tcemain.php

<?php
/***************************************************************
*  Copyright notice
*
*  (c) 1999-2006 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!
***************************************************************/
// *******************************
// Including necessary libraries
// *******************************
require_once (PATH_t3lib.'class.t3lib_loaddbgroup.php');
require_once (PATH_t3lib.'class.t3lib_parsehtml_proc.php');
require_once (PATH_t3lib.'class.t3lib_stdgraphic.php');
require_once (PATH_t3lib.'class.t3lib_basicfilefunc.php');
require_once (PATH_t3lib.'class.t3lib_refindex.php');
require_once (PATH_t3lib.'class.t3lib_flexformtools.php');











class t3lib_TCEmain     {


                // *********************
                // Public variables you can configure before using the class:
                // *********************

        var $storeLogMessages = TRUE;                   // Boolean: If true, the default log-messages will be stored. This should not be necessary if the locallang-file for the log-display is properly configured. So disabling this will just save some database-space as the default messages are not saved.
        var $enableLogging = TRUE;                              // Boolean: If true, actions are logged to sys_log.
        var $reverseOrder = FALSE;                              // Boolean: If true, the datamap array is reversed in the order, which is a nice thing if you're creating a whole new bunch of records.
        var $checkSimilar = TRUE;                               // Boolean: If true, only fields which are different from the database values are saved! In fact, if a whole input array is similar, it's not saved then.
        var $stripslashes_values = TRUE;                // Boolean: If true, incoming values in the data-array have their slashes stripped. ALWAYS SET THIS TO ZERO and supply an unescaped data array instead. This switch may totally disappear in future versions of this class!
        var $checkStoredRecords = TRUE;                 // Boolean: This will read the record after having updated or inserted it. If anything is not properly submitted an error is written to the log. This feature consumes extra time by selecting records
        var $checkStoredRecords_loose = TRUE;   // Boolean: If set, values '' and 0 will equal each other when the stored records are checked.
        var $deleteTree = FALSE;                                // Boolean. If this is set, then a page is deleted by deleting the whole branch under it (user must have deletepermissions to it all). If not set, then the page is deleted ONLY if it has no branch
        var $neverHideAtCopy = FALSE;                   // Boolean. If set, then the 'hideAtCopy' flag for tables will be ignored.
        var $dontProcessTransformations = FALSE;        // Boolean: If set, then transformations are NOT performed on the input.
        var $bypassWorkspaceRestrictions = FALSE;       // Boolean: If true, workspace restrictions are bypassed on edit an create actions (process_datamap()). YOU MUST KNOW what you do if you use this feature!
        var $bypassFileHandling = FALSE;                        // Boolean: If true, file handling of attached files (addition, deletion etc) is bypassed - the value is saved straight away. YOU MUST KNOW what you are doing with this feature!
        var $bypassAccessCheckForRecords = FALSE;       // Boolean: If true, access check, check for deleted etc. for records is bypassed. YOU MUST KNOW what you are doing if you use this feature!

        var $copyWhichTables = '*';                             // String. Comma-list. This list of tables decides which tables will be copied. If empty then none will. If '*' then all will (that the user has permission to of course)
        var $generalComment = '';                               // General comment, eg. for staging in workspaces.

        var $copyTree = 0;                                              // Integer. If 0 then branch is NOT copied. If 1 then pages on the 1st level is copied. If 2 then pages on the second level is copied ... and so on

        var $defaultValues = array();                   // Array [table][fields]=value: New records are created with default values and you can set this array on the form $defaultValues[$table][$field] = $value to override the default values fetched from TCA. If ->setDefaultsFromUserTS is called UserTSconfig default values will overrule existing values in this array (thus UserTSconfig overrules externally set defaults which overrules TCA defaults)
        var $overrideValues = array();                  // Array [table][fields]=value: You can set this array on the form $overrideValues[$table][$field] = $value to override the incoming data. You must set this externally. You must make sure the fields in this array are also found in the table, because it's not checked. All columns can be set by this array!
        var $alternativeFileName = array();             // Array [filename]=alternative_filename: Use this array to force another name onto a file. Eg. if you set ['/tmp/blablabal'] = 'my_file.txt' and '/tmp/blablabal' is set for a certain file-field, then 'my_file.txt' will be used as the name instead.
        var $data_disableFields=array();                // If entries are set in this array corresponding to fields for update, they are ignored and thus NOT updated. You could set this array from a series of checkboxes with value=0 and hidden fields before the checkbox with 1. Then an empty checkbox will disable the field.
        var $suggestedInsertUids=array();               // Use this array to validate suggested uids for tables by setting [table]:[uid]. This is a dangerous option since it will force the inserted record to have a certain UID. The value just have to be true, but if you set it to "DELETE" it will make sure any record with that UID will be deleted first (raw delete). The option is used for import of T3D files when synchronizing between two mirrored servers. As a security measure this feature is available only for Admin Users (for now)

        var $callBackObj;                                               // Object. Call back object for flex form traversation. Useful when external classes wants to use the iteration functions inside tcemain for traversing a FlexForm structure.




                // *********************
                // Internal variables (mapping arrays) which can be used (read-only) from outside
                // *********************
        var $autoVersionIdMap = Array();                        // Contains mapping of auto-versionized records.
        var $substNEWwithIDs = Array();                         // When new elements are created, this array contains a map between their "NEW..." string IDs and the eventual UID they got when stored in database
        var $substNEWwithIDs_table = Array();           // Like $substNEWwithIDs, but where each old "NEW..." id is mapped to the table it was from.
        var $newRelatedIDs = Array();                           // Holds the tables and there the ids of newly created child records from IRRE
        var $copyMappingArray_merged = Array();         // This array is the sum of all copying operations in this class. May be READ from outside, thus partly public.
        var $copiedFileMap = Array();                           // A map between input file name and final destination for files being attached to records.
        var     $errorLog = Array();                                    // Errors are collected in this variable.



                // *********************
                // Internal Variables, do not touch.
                // *********************

                // Variables set in init() function:
        var $BE_USER;           // The user-object the script uses. If not set from outside, this is set to the current global $BE_USER.
        var $userid;            // will be set to uid of be_user executing this script
        var $username;          // will be set to username of be_user executing this script
        var $admin;                     // will be set if user is admin

        var $defaultPermissions = array(                // Can be overridden from $TYPO3_CONF_VARS
                'user' => 'show,edit,delete,new,editcontent',
                'group' => 'show,edit,new,editcontent',
                'everybody' => ''
        );

        var $exclude_array;                     // The list of <table>-<fields> that cannot be edited by user. This is compiled from TCA/exclude-flag combined with non_exclude_fields for the user.
        var $datamap = Array();         // Set with incoming data array
        var $cmdmap = Array();          // Set with incoming cmd array

                // Internal static:
        var $pMap = Array(              // Permission mapping
                'show' => 1,                    // 1st bit
                'edit' => 2,                    // 2nd bit
                'delete' => 4,                  // 3rd bit
                'new' => 8,                             // 4th bit
                'editcontent' => 16             // 5th bit
        );
        var $sortIntervals = 256;                                       // Integer: The interval between sorting numbers used with tables with a 'sorting' field defined. Min 1

                // Internal caching arrays
        var $recUpdateAccessCache = Array();            // Used by function checkRecordUpdateAccess() to store whether a record is updateable or not.
        var $recInsertAccessCache = Array();            // User by function checkRecordInsertAccess() to store whether a record can be inserted on a page id
        var $isRecordInWebMount_Cache=array();          // Caching array for check of whether records are in a webmount
        var $isInWebMount_Cache=array();                        // Caching array for page ids in webmounts
        var $cachedTSconfig = array();                          // Caching for collecting TSconfig for page ids
        var $pageCache = Array();                                       // Used for caching page records in pageInfo()
        var $checkWorkspaceCache = Array();                     // Array caching workspace access for BE_USER

                // Other arrays:
        var $dbAnalysisStore=array();                           // For accumulation of MM relations that must be written after new records are created.
        var $removeFilesStore=array();                          // For accumulation of files which must be deleted after processing of all input content
        var $uploadedFileArray = array();                       // Uploaded files, set by process_uploads()
        var $registerDBList=array();                            // Used for tracking references that might need correction after operations
        var $copyMappingArray = Array();                        // Used by the copy action to track the ids of new pages so subpages are correctly inserted! THIS is internally cleared for each executed copy operation! DO NOT USE THIS FROM OUTSIDE! Read from copyMappingArray_merged instead which is accumulating this information.
        var $remapStack = array();                                      // array used for remapping uids and values at the end of process_datamap
        var $updateRefIndexStack = array();                     // array used for additional calls to $this->updateRefIndex
        var $callFromImpExp = false;                            // tells, that this TCEmain was called from tx_impext - this variable is set by tx_impexp

                // Various
        var $fileFunc;                                                          // For "singleTon" file-manipulation object
        var $checkValue_currentRecord=array();          // Set to "currentRecord" during checking of values.
        var $autoVersioningUpdate = FALSE;                      // A signal flag used to tell file processing that autoversioning has happend and hence certain action should be applied.












        function start($data,$cmd,$altUserObject='')    {

                        // Initializing BE_USER
                $this->BE_USER = is_object($altUserObject) ? $altUserObject : $GLOBALS['BE_USER'];
                $this->userid = $this->BE_USER->user['uid'];
                $this->username = $this->BE_USER->user['username'];
                $this->admin = $this->BE_USER->user['admin'];

                if ($GLOBALS['BE_USER']->uc['recursiveDelete'])    {
                        $this->deleteTree = 1;
                }

                        // Initializing default permissions for pages
                $defaultPermissions = $GLOBALS['TYPO3_CONF_VARS']['BE']['defaultPermissions'];
                if (isset($defaultPermissions['user']))         {$this->defaultPermissions['user'] = $defaultPermissions['user'];}
                if (isset($defaultPermissions['group']))                {$this->defaultPermissions['group'] = $defaultPermissions['group'];}
                if (isset($defaultPermissions['everybody']))            {$this->defaultPermissions['everybody'] = $defaultPermissions['everybody'];}

                        // generates the excludelist, based on TCA/exclude-flag and non_exclude_fields for the user:
                $this->exclude_array = $this->admin ? array() : $this->getExcludeListArray();

                        // Setting the data and cmd arrays
                if (is_array($data)) {
                        reset($data);
                        $this->datamap = $data;
                }
                if (is_array($cmd))     {
                        reset($cmd);
                        $this->cmdmap = $cmd;
                }
        }

        function setMirror($mirror)     {
                if (is_array($mirror))  {
                        reset($mirror);
                        while(list($table,$uid_array)=each($mirror))    {
                                if (isset($this->datamap[$table]))      {
                                        reset($uid_array);
                                        while (list($id,$uidList) = each($uid_array))   {
                                                if (isset($this->datamap[$table][$id])) {
                                                        $theIdsInArray = t3lib_div::trimExplode(',',$uidList,1);
                                                        while(list(,$copyToUid)=each($theIdsInArray))   {
                                                                $this->datamap[$table][$copyToUid] = $this->datamap[$table][$id];
                                                        }
                                                }
                                        }
                                }
                        }
                }
        }

        function setDefaultsFromUserTS($userTS) {
                global $TCA;
                if (is_array($userTS))  {
                        foreach($userTS as $k => $v)    {
                                $k = substr($k,0,-1);
                                if ($k && is_array($v) && isset($TCA[$k]))      {
                                        if (is_array($this->defaultValues[$k])) {
                                                $this->defaultValues[$k] = array_merge($this->defaultValues[$k],$v);
                                        } else {
                                                $this->defaultValues[$k] = $v;
                                        }
                                }
                        }
                }
        }

        function process_uploads($postFiles)    {

                if (is_array($postFiles))       {

                                // Editing frozen:
                        if ($this->BE_USER->workspace!==0 && $this->BE_USER->workspaceRec['freeze'])    {
                                $this->newlog('All editing in this workspace has been frozen!',1);
                                return FALSE;
                        }

                        reset($postFiles);
                        $subA = current($postFiles);
                        if (is_array($subA))    {
                                if (is_array($subA['name']) && is_array($subA['type']) && is_array($subA['tmp_name']) && is_array($subA['size']))       {
                                                // Initialize the uploadedFilesArray:
                                        $this->uploadedFileArray=array();

                                                // For each entry:
                                        foreach($subA as $key => $values)       {
                                                $this->process_uploads_traverseArray($this->uploadedFileArray,$values,$key);
                                        }
                                } else {
                                        $this->uploadedFileArray=$subA;
                                }
                        }
                }
        }

        function process_uploads_traverseArray(&$outputArr,$inputArr,$keyToSet) {
                if (is_array($inputArr))        {
                        foreach($inputArr as $key => $value)    {
                                $this->process_uploads_traverseArray($outputArr[$key],$inputArr[$key],$keyToSet);
                        }
                } else {
                        $outputArr[$keyToSet]=$inputArr;
                }
        }















        /*********************************************
         *
         * PROCESSING DATA
         *
         *********************************************/

        function process_datamap() {
                global $TCA, $TYPO3_CONF_VARS;

                        // Editing frozen:
                if ($this->BE_USER->workspace!==0 && $this->BE_USER->workspaceRec['freeze'])    {
                        $this->newlog('All editing in this workspace has been frozen!',1);
                        return FALSE;
                }

                        // First prepare user defined objects (if any) for hooks which extend this function:
                $hookObjectsArr = array();
                if (is_array ($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['processDatamapClass'])) {
                        foreach ($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['processDatamapClass'] as $classRef) {
                                $hookObjectsArr[] = &t3lib_div::getUserObj($classRef);
                        }
                }

                        // Organize tables so that the pages-table is always processed first. This is required if you want to make sure that content pointing to a new page will be created.
                $orderOfTables = Array();
                if (isset($this->datamap['pages']))     {               // Set pages first.
                        $orderOfTables[]='pages';
                }
                reset($this->datamap);
                while (list($table,) = each($this->datamap))    {
                        if ($table!='pages')    {
                                $orderOfTables[]=$table;
                        }
                }

                        // Process the tables...
                foreach($orderOfTables as $table)       {
                                /* Check if
                                        - table is set in $TCA,
                                        - table is NOT readOnly
                                        - the table is set with content in the data-array (if not, there's nothing to process...)
                                        - permissions for tableaccess OK
                                */
                        $modifyAccessList = $this->checkModifyAccessList($table);
                        if (!$modifyAccessList) {
                                $id = 0;
                                $this->log($table,$id,2,0,1,"Attempt to modify table '%s' without permission",1,array($table));
                        }
                        if (isset($TCA[$table]) && !$this->tableReadOnly($table) && is_array($this->datamap[$table]) && $modifyAccessList)      {
                                if ($this->reverseOrder)        {
                                        $this->datamap[$table] = array_reverse($this->datamap[$table], 1);
                                }

                                        // For each record from the table, do:
                                        // $id is the record uid, may be a string if new records...
                                        // $incomingFieldArray is the array of fields
                                foreach($this->datamap[$table] as $id => $incomingFieldArray)   {
                                        if (is_array($incomingFieldArray))      {

                                                        // Hook: processDatamap_preProcessIncomingFieldArray
                                                foreach($hookObjectsArr as $hookObj)    {
                                                        if (method_exists($hookObj, 'processDatamap_preProcessFieldArray')) {
                                                                $hookObj->processDatamap_preProcessFieldArray($incomingFieldArray, $table, $id, $this);
                                                        }
                                                }

                                                        // ******************************
                                                        // Checking access to the record
                                                        // ******************************
                                                $createNewVersion = FALSE;
                                                $recordAccess = FALSE;
                                                $old_pid_value = '';
                                                $resetRejected = FALSE;
                                                $this->autoVersioningUpdate = FALSE;

                                                if (!t3lib_div::testInt($id)) {               // Is it a new record? (Then Id is a string)
                                                        $fieldArray = $this->newFieldArray($table);     // Get a fieldArray with default values
                                                        if (isset($incomingFieldArray['pid']))  {       // A pid must be set for new records.
                                                                        // $value = the pid
                                                                $pid_value = $incomingFieldArray['pid'];

                                                                        // Checking and finding numerical pid, it may be a string-reference to another value
                                                                $OK = 1;
                                                                if (strstr($pid_value,'NEW'))   {       // If a NEW... id
                                                                        if (substr($pid_value,0,1)=='-') {$negFlag=-1;$pid_value=substr($pid_value,1);} else {$negFlag=1;}
                                                                        if (isset($this->substNEWwithIDs[$pid_value]))  {       // Trying to find the correct numerical value as it should be mapped by earlier processing of another new record.
                                                                                $old_pid_value = $pid_value;
                                                                                $pid_value=intval($negFlag*$this->substNEWwithIDs[$pid_value]);
                                                                        } else {$OK = 0;}       // If not found in the substArray we must stop the process...
                                                                } elseif ($pid_value>=0 && $this->BE_USER->workspace!==0 && $TCA[$table]['ctrl']['versioning_followPages'])     {       // PID points to page, the workspace is an offline space and the table follows page during versioning: This means we must check if the PID page has a version in the workspace with swapmode set to 0 (zero = page+content) and if so, change the pid to the uid of that version.
                                                                        if ($WSdestPage = t3lib_BEfunc::getWorkspaceVersionOfRecord($this->BE_USER->workspace, 'pages', $pid_value, 'uid,t3ver_swapmode'))      {       // Looks for workspace version of page.
                                                                                if ($WSdestPage['t3ver_swapmode']==0)   {       // if swapmode is zero, then change pid value.
                                                                                        $pid_value = $WSdestPage['uid'];
                                                                                }
                                                                        }
                                                                }
                                                                $pid_value = intval($pid_value);

                                                                        // The $pid_value is now the numerical pid at this point
                                                                if ($OK)        {
                                                                        $sortRow = $TCA[$table]['ctrl']['sortby'];
                                                                        if ($pid_value>=0)      {       // Points to a page on which to insert the element, possibly in the top of the page
                                                                                if ($sortRow)   {       // If this table is sorted we better find the top sorting number
                                                                                        $fieldArray[$sortRow] = $this->getSortNumber($table,0,$pid_value);
                                                                                }
                                                                                $fieldArray['pid'] = $pid_value;        // The numerical pid is inserted in the data array
                                                                        } else {        // points to another record before ifself
                                                                                if ($sortRow)   {       // If this table is sorted we better find the top sorting number
                                                                                        $tempArray=$this->getSortNumber($table,0,$pid_value);   // Because $pid_value is < 0, getSortNumber returns an array
                                                                                        $fieldArray['pid'] = $tempArray['pid'];
                                                                                        $fieldArray[$sortRow] = $tempArray['sortNumber'];
                                                                                } else {        // Here we fetch the PID of the record that we point to...
                                                                                        $tempdata = $this->recordInfo($table,abs($pid_value),'pid');
                                                                                        $fieldArray['pid']=$tempdata['pid'];
                                                                                }
                                                                        }
                                                                }
                                                        }
                                                        $theRealPid = $fieldArray['pid'];

                                                                // Now, check if we may insert records on this pid.
                                                        if ($theRealPid>=0)     {
                                                                $recordAccess = $this->checkRecordInsertAccess($table,$theRealPid);             // Checks if records can be inserted on this $pid.
                                                                if ($recordAccess)      {
                                                                        $this->addDefaultPermittedLanguageIfNotSet($table,$incomingFieldArray);
                                                                        $recordAccess = $this->BE_USER->recordEditAccessInternals($table,$incomingFieldArray,TRUE);
                                                                        if (!$recordAccess)             {
                                                                                $this->newlog("recordEditAccessInternals() check failed. [".$this->BE_USER->errorMsg."]",1);
                                                                        } elseif(!$this->bypassWorkspaceRestrictions)   {
                                                                                        // Workspace related processing:
                                                                                if ($res = $this->BE_USER->workspaceAllowLiveRecordsInPID($theRealPid,$table))  {       // If LIVE records cannot be created in the current PID due to workspace restrictions, prepare creation of placeholder-record
                                                                                        if ($res<0)     {
                                                                                                $recordAccess = FALSE;
                                                                                                $this->newlog('Stage for versioning root point and users access level did not allow for editing',1);
                                                                                        }
                                                                                } else {        // So, if no live records were allowed, we have to create a new version of this record:
                                                                                        if ($TCA[$table]['ctrl']['versioningWS'])       {
                                                                                                $createNewVersion = TRUE;
                                                                                        } else {
                                                                                                $recordAccess = FALSE;
                                                                                                $this->newlog('Record could not be created in this workspace in this branch',1);
                                                                                        }
                                                                                }
                                                                        }
                                                                }
                                                        } else {
                                                                debug('Internal ERROR: pid should not be less than zero!');
                                                        }
                                                        $status = 'new';                                                // Yes new record, change $record_status to 'insert'
                                                } else {        // Nope... $id is a number
                                                        $fieldArray = array();
                                                        $recordAccess = $this->checkRecordUpdateAccess($table,$id);
                                                        if (!$recordAccess)             {
                                                                $propArr = $this->getRecordProperties($table,$id);
                                                                $this->log($table,$id,2,0,1,"Attempt to modify record '%s' (%s) without permission. Or non-existing page.",2,array($propArr['header'],$table.':'.$id),$propArr['event_pid']);
                                                        } else {        // Next check of the record permissions (internals)
                                                                $recordAccess = $this->BE_USER->recordEditAccessInternals($table,$id);
                                                                if (!$recordAccess)             {
                                                                        $propArr = $this->getRecordProperties($table,$id);
                                                                        $this->newlog("recordEditAccessInternals() check failed. [".$this->BE_USER->errorMsg."]",1);
                                                                } else {        // Here we fetch the PID of the record that we point to...
                                                                        $tempdata = $this->recordInfo($table,$id,'pid'.($TCA[$table]['ctrl']['versioningWS']?',t3ver_wsid,t3ver_stage':''));
                                                                        $theRealPid = $tempdata['pid'];

                                                                                // Prepare the reset of the rejected flag if set:
                                                                        if ($TCA[$table]['ctrl']['versioningWS'] && $tempdata['t3ver_stage']<0) {
                                                                                $resetRejected = TRUE;
                                                                        }

                                                                                // Checking access in case of offline workspace:
                                                                        if (!$this->bypassWorkspaceRestrictions && $errorCode = $this->BE_USER->workspaceCannotEditRecord($table,$tempdata))    {
                                                                                $recordAccess = FALSE;          // Versioning is required and it must be offline version!

                                                                                        // Auto-creation of version: In offline workspace, test if versioning is enabled and look for workspace version of input record. If there is no versionized record found we will create one and save to that.
                                                                                if ($this->BE_USER->workspaceAllowAutoCreation($table,$id,$theRealPid)) {
                                                                                        $tce = t3lib_div::makeInstance('t3lib_TCEmain');
                                                                                        $tce->stripslashes_values = 0;

                                                                                                // Setting up command for creating a new version of the record:
                                                                                        $cmd = array();
                                                                                        $cmd[$table][$id]['version'] = array(
                                                                                                'action' => 'new',
                                                                                                'treeLevels' => -1,     // Default is to create a version of the individual records...
                                                                                                'label' => 'Auto-created for WS #'.$this->BE_USER->workspace
                                                                                        );
                                                                                        $tce->start(array(),$cmd);
                                                                                        $tce->process_cmdmap();
                                                                                        $this->errorLog = array_merge($this->errorLog,$tce->errorLog);

                                                                                        if ($tce->copyMappingArray[$table][$id])        {
                                                                                                $this->uploadedFileArray[$table][$tce->copyMappingArray[$table][$id]] = $this->uploadedFileArray[$table][$id];
                                                                                                $id = $this->autoVersionIdMap[$table][$id] = $tce->copyMappingArray[$table][$id];
                                                                                                $recordAccess = TRUE;
                                                                                                $this->autoVersioningUpdate = TRUE;
                                                                                        } else $this->newlog("Could not be edited in offline workspace in the branch where found (failure state: '".$errorCode."'). Auto-creation of version failed!",1);
                                                                                } else $this->newlog("Could not be edited in offline workspace in the branch where found (failure state: '".$errorCode."'). Auto-creation of version not allowed in workspace!",1);
                                                                        }
                                                                }
                                                        }
                                                        $status = 'update';     // the default is 'update'
                                                }

                                                        // If access was granted above, proceed to create or update record:
                                                if ($recordAccess)      {

                                                        list($tscPID) = t3lib_BEfunc::getTSCpid($table,$id,$old_pid_value ? $old_pid_value : $fieldArray['pid']);       // Here the "pid" is set IF NOT the old pid was a string pointing to a place in the subst-id array.
                                                        $TSConfig = $this->getTCEMAIN_TSconfig($tscPID);
                                                        if ($status=='new' && $table=='pages' && is_array($TSConfig['permissions.']))   {
                                                                $fieldArray = $this->setTSconfigPermissions($fieldArray,$TSConfig['permissions.']);
                                                        }
                                                        if ($createNewVersion)  {
                                                                $newVersion_placeholderFieldArray = $fieldArray;
                                                        }

                                                                // Processing of all fields in incomingFieldArray and setting them in $fieldArray
                                                        $fieldArray = $this->fillInFieldArray($table,$id,$fieldArray,$incomingFieldArray,$theRealPid,$status,$tscPID);

                                                                // NOTICE! All manipulation beyond this point bypasses both "excludeFields" AND possible "MM" relations / file uploads to field!

                                                                // Forcing some values unto field array:
                                                        $fieldArray = $this->overrideFieldArray($table,$fieldArray);    // NOTICE: This overriding is potentially dangerous; permissions per field is not checked!!!
                                                        if ($createNewVersion)  {
                                                                $newVersion_placeholderFieldArray = $this->overrideFieldArray($table,$newVersion_placeholderFieldArray);
                                                        }

                                                                // Setting system fields
                                                        if ($status=='new')     {
                                                                if ($TCA[$table]['ctrl']['crdate'])     {
                                                                        $fieldArray[$TCA[$table]['ctrl']['crdate']]=time();
                                                                        if ($createNewVersion)  $newVersion_placeholderFieldArray[$TCA[$table]['ctrl']['crdate']]=time();
                                                                }
                                                                if ($TCA[$table]['ctrl']['cruser_id'])  {
                                                                        $fieldArray[$TCA[$table]['ctrl']['cruser_id']]=$this->userid;
                                                                        if ($createNewVersion)  $newVersion_placeholderFieldArray[$TCA[$table]['ctrl']['cruser_id']]=$this->userid;
                                                                }
                                                        } elseif ($this->checkSimilar) {        // Removing fields which are equal to the current value:
                                                                $fieldArray = $this->compareFieldArrayWithCurrentAndUnset($table,$id,$fieldArray);
                                                        }
                                                        if ($TCA[$table]['ctrl']['tstamp'] && count($fieldArray))       {
                                                                $fieldArray[$TCA[$table]['ctrl']['tstamp']]=time();
                                                                if ($createNewVersion)  $newVersion_placeholderFieldArray[$TCA[$table]['ctrl']['tstamp']]=time();
                                                        }
                                                        if ($resetRejected)     {
                                                                $fieldArray['t3ver_stage'] = 0;
                                                        }

                                                                // Hook: processDatamap_postProcessFieldArray
                                                        foreach($hookObjectsArr as $hookObj)    {
                                                                if (method_exists($hookObj, 'processDatamap_postProcessFieldArray')) {
                                                                        $hookObj->processDatamap_postProcessFieldArray($status, $table, $id, $fieldArray, $this);
                                                                }
                                                        }

                                                                // Performing insert/update. If fieldArray has been unset by some userfunction (see hook above), don't do anything
                                                                // Kasper: Unsetting the fieldArray is dangerous; MM relations might be saved already and files could have been uploaded that are now "lost"
                                                        if (is_array($fieldArray)) {
                                                                if ($status=='new')     {
                                                                        if ($createNewVersion)  {       // This creates a new version of the record with online placeholder and offline version
                                                                                $versioningType = $table==='pages' ? $this->BE_USER->workspaceVersioningTypeGetClosest(t3lib_div::intInRange($TYPO3_CONF_VARS['BE']['newPagesVersioningType'],-1,1)) : -1;
                                                                                if ($this->BE_USER->workspaceVersioningTypeAccess($versioningType))     {
                                                                                        $newVersion_placeholderFieldArray['t3ver_label'] = 'INITIAL PLACEHOLDER';
                                                                                        $newVersion_placeholderFieldArray['t3ver_state'] = 1;   // Setting placeholder state value for temporary record
                                                                                        $newVersion_placeholderFieldArray['t3ver_wsid'] = $this->BE_USER->workspace;    // Setting workspace - only so display of place holders can filter out those from other workspaces.
                                                                                        $newVersion_placeholderFieldArray[$TCA[$table]['ctrl']['label']] = '[PLACEHOLDER, WS#'.$this->BE_USER->workspace.']';
                                                                                        $this->insertDB($table,$id,$newVersion_placeholderFieldArray,FALSE);    // Saving placeholder as 'original'

                                                                                                // For the actual new offline version, set versioning values to point to placeholder:
                                                                                        $fieldArray['pid'] = -1;
                                                                                        $fieldArray['t3ver_oid'] = $this->substNEWwithIDs[$id];
                                                                                        $fieldArray['t3ver_id'] = 1;
                                                                                        $fieldArray['t3ver_state'] = -1;        // Setting placeholder state value for version (so it can know it is currently a new version...)
                                                                                        $fieldArray['t3ver_label'] = 'First draft version';
                                                                                        $fieldArray['t3ver_wsid'] = $this->BE_USER->workspace;
                                                                                        if ($table==='pages') {         // Swap mode set to "branch" so we can build branches for pages.
                                                                                                $fieldArray['t3ver_swapmode'] = $versioningType;
                                                                                        }
                                                                                        $phShadowId = $this->insertDB($table,$id,$fieldArray,TRUE,0,TRUE);      // When inserted, $this->substNEWwithIDs[$id] will be changed to the uid of THIS version and so the interface will pick it up just nice!
                                                                                        if ($phShadowId)        {
                                                                                                $this->placeholderShadowing($table,$phShadowId);
                                                                                        }
                                                                                } else $this->newlog('Versioning type "'.$versioningType.'" was not allowed, so could not create new record.',1);
                                                                        } else {
                                                                                $this->insertDB($table,$id,$fieldArray,FALSE,$incomingFieldArray['uid']);
                                                                        }
                                                                } else {
                                                                        $this->updateDB($table,$id,$fieldArray);
                                                                        $this->placeholderShadowing($table,$id);
                                                                }
                                                        }

                                                                /*
                                                                 * Hook: processDatamap_afterDatabaseOperations
                                                                 *
                                                                 * Note: When using the hook after INSERT operations, you will only get the temporary NEW... id passed to your hook as $id,
                                                                 *               but you can easily translate it to the real uid of the inserted record using the $this->substNEWwithIDs array.
                                                                 */
                                                        foreach($hookObjectsArr as $hookObj)    {
                                                                if (method_exists($hookObj, 'processDatamap_afterDatabaseOperations')) {
                                                                        $hookObj->processDatamap_afterDatabaseOperations($status, $table, $id, $fieldArray, $this);
                                                                }
                                                        }
                                                }       // if ($recordAccess)   {
                                        }       // if (is_array($incomingFieldArray))   {
                                }
                        }
                }

                // call_user_func_array

                        // Process the stack of relations to remap/correct
                if(is_array($this->remapStack)) {
                        foreach($this->remapStack as $remapAction) {
                                        // if no position index for the arguments was set, skip this remap action
                                if (!is_array($remapAction['pos'])) continue;

                                        // load values from the argument array in remapAction
                                $field = $remapAction['field'];
                                $id = $remapAction['args'][$remapAction['pos']['id']];
                                $table = $remapAction['args'][$remapAction['pos']['table']];
                                $valueArray = $remapAction['args'][$remapAction['pos']['valueArray']];
                                $tcaFieldConf = $remapAction['args'][$remapAction['pos']['tcaFieldConf']];

                                        // Replace NEW... IDs with real uids.
                                if(strpos($id, 'NEW') !== false) {
                                        $id = $this->substNEWwithIDs[$id];
                                        $remapAction['args'][$remapAction['pos']['id']] = $id;
                                }

                                        // Replace relations to NEW...-IDs in values
                                if(is_array($valueArray)) {
                                        foreach($valueArray as $key => $value) {
                                                if(strpos($value, 'NEW') !== false) {
                                                                // fetch the proper uid as integer for the NEW...-ID
                                                        $valueArray[$key] = $this->substNEWwithIDs[$value];
                                                                // set a hint that this was a new child record
                                                        $this->newRelatedIDs[$table][] = $valueArray[$key];
                                                }
                                        }
                                        $remapAction['args'][$remapAction['pos']['valueArray']] = $valueArray;
                                }

                                        // process the arguments with the defined function
                                $remapAction['args'][$remapAction['pos']['valueArray']] = call_user_func_array(
                                        array($this, $remapAction['func']),
                                        $remapAction['args']
                                );

                                        // @TODO: Add option to disable count-field
                                $newVal = $this->checkValue_checkMax($tcaFieldConf, $remapAction['args'][$remapAction['pos']['valueArray']]);
                                $this->updateDB($table,$id,array($field => implode(',', $newVal)));
                        }
                }

                $this->dbAnalysisStoreExec();
                $this->removeRegisteredFiles();
        }

        function placeholderShadowing($table,$id)       {
                global $TCA;

                t3lib_div::loadTCA($table);
                if ($liveRec = t3lib_BEfunc::getLiveVersionOfRecord($table,$id,'*'))    {
                        if ((int)$liveRec['t3ver_state']===1)   {
                                $justStoredRecord = t3lib_BEfunc::getRecord($table,$id);
                                $newRecord = array();

                                $shadowCols = $TCA[$table]['ctrl']['shadowColumnsForNewPlaceholders'];
                                $shadowCols.= ','.$TCA[$table]['ctrl']['languageField'];
                                $shadowCols.= ','.$TCA[$table]['ctrl']['transOrigPointerField'];
                                $shadowCols.= ','.$TCA[$table]['ctrl']['type'];
                                $shadowCols.= ','.$TCA[$table]['ctrl']['label'];

                                $shadowColumns = array_unique(t3lib_div::trimExplode(',', $shadowCols,1));
                                foreach($shadowColumns as $fieldName)   {
                                        if (strcmp($justStoredRecord[$fieldName],$liveRec[$fieldName]) && isset($TCA[$table]['columns'][$fieldName]) && $fieldName!=='uid' && $fieldName!=='pid')       {
                                                $newRecord[$fieldName] = $justStoredRecord[$fieldName];
                                        }
                                }

                                if (count($newRecord))  {
                                        $this->newlog('Shadowing done on fields '.implode(',',array_keys($newRecord)).' in Placeholder record '.$table.':'.$liveRec['uid'].' (offline version UID='.$id.')');
                                        $this->updateDB($table,$liveRec['uid'],$newRecord);
                                }
                        }
                }
        }

        function fillInFieldArray($table,$id,$fieldArray,$incomingFieldArray,$realPid,$status,$tscPID)  {
                global $TCA;

                        // Initialize:
                t3lib_div::loadTCA($table);
                $originalLanguageRecord = NULL;
                $originalLanguage_diffStorage = NULL;
                $diffStorageFlag = FALSE;

                        // Setting 'currentRecord' and 'checkValueRecord':
                if (strstr($id,'NEW'))  {
                        $currentRecord = $checkValueRecord = $fieldArray;       // must have the 'current' array - not the values after processing below...

                                // IF $incomingFieldArray is an array, overlay it.
                                // The point is that when new records are created as copies with flex type fields there might be a field containing information about which DataStructure to use and without that information the flexforms cannot be correctly processed.... This should be OK since the $checkValueRecord is used by the flexform evaluation only anyways...
                        if (is_array($incomingFieldArray) && is_array($checkValueRecord))       {
                                $checkValueRecord = t3lib_div::array_merge_recursive_overrule($checkValueRecord, $incomingFieldArray);
                        }
                } else {
                        $currentRecord = $checkValueRecord = $this->recordInfo($table,$id,'*'); // We must use the current values as basis for this!

                        t3lib_BEfunc::fixVersioningPid($table,$currentRecord);  // This is done to make the pid positive for offline versions; Necessary to have diff-view for pages_language_overlay in workspaces.

                                // Get original language record if available:
                        if (is_array($currentRecord)
                                        && $TCA[$table]['ctrl']['transOrigDiffSourceField']
                                        && $TCA[$table]['ctrl']['languageField']
                                        && $currentRecord[$TCA[$table]['ctrl']['languageField']] > 0
                                        && $TCA[$table]['ctrl']['transOrigPointerField']
                                        && intval($currentRecord[$TCA[$table]['ctrl']['transOrigPointerField']]) > 0)   {

                                $lookUpTable = $TCA[$table]['ctrl']['transOrigPointerTable'] ? $TCA[$table]['ctrl']['transOrigPointerTable'] : $table;
                                $originalLanguageRecord = $this->recordInfo($lookUpTable,$currentRecord[$TCA[$table]['ctrl']['transOrigPointerField']],'*');
                                t3lib_BEfunc::workspaceOL($lookUpTable,$originalLanguageRecord);
                                $originalLanguage_diffStorage = unserialize($currentRecord[$TCA[$table]['ctrl']['transOrigDiffSourceField']]);
                        }
                }
                $this->checkValue_currentRecord = $checkValueRecord;

                        /*
                                In the following all incoming value-fields are tested:
                                - Are the user allowed to change the field?
                                - Is the field uid/pid (which are already set)
                                - perms-fields for pages-table, then do special things...
                                - If the field is nothing of the above and the field is configured in TCA, the fieldvalues are evaluated by ->checkValue

                                If everything is OK, the field is entered into $fieldArray[]
                        */
                foreach($incomingFieldArray as $field => $fieldValue)   {
                        if (!in_array($table.'-'.$field, $this->exclude_array) && !$this->data_disableFields[$table][$id][$field])      {       // The field must be editable.

                                        // Checking if a value for language can be changed:
                                $languageDeny = $TCA[$table]['ctrl']['languageField'] && !strcmp($TCA[$table]['ctrl']['languageField'], $field) && !$this->BE_USER->checkLanguageAccess($fieldValue);

                                if (!$languageDeny)     {
                                                // Stripping slashes - will probably be removed the day $this->stripslashes_values is removed as an option...
                                        if ($this->stripslashes_values) {
                                                if (is_array($fieldValue))      {
                                                        t3lib_div::stripSlashesOnArray($fieldValue);
                                                } else $fieldValue = stripslashes($fieldValue);
                                        }

                                        switch ($field) {
                                                case 'uid':
                                                case 'pid':
                                                        // Nothing happens, already set
                                                break;
                                                case 'perms_userid':
                                                case 'perms_groupid':
                                                case 'perms_user':
                                                case 'perms_group':
                                                case 'perms_everybody':
                                                                // Permissions can be edited by the owner or the administrator
                                                        if ($table=='pages' && ($this->admin || $status=='new' || $this->pageInfo($id,'perms_userid')==$this->userid) ) {
                                                                $value=intval($fieldValue);
                                                                switch($field)  {
                                                                        case 'perms_userid':
                                                                                $fieldArray[$field]=$value;
                                                                        break;
                                                                        case 'perms_groupid':
                                                                                $fieldArray[$field]=$value;
                                                                        break;
                                                                        default:
                                                                                if ($value>=0 && $value<pow(2,5))       {
                                                                                        $fieldArray[$field]=$value;
                                                                                }
                                                                        break;
                                                                }
                                                        }
                                                break;
                                                case 't3ver_oid':
                                                case 't3ver_id':
                                                case 't3ver_wsid':
                                                case 't3ver_state':
                                                case 't3ver_swapmode':
                                                case 't3ver_count':
                                                case 't3ver_stage':
                                                case 't3ver_tstamp':
                                                        // t3ver_label is not here because it CAN be edited as a regular field!
                                                break;
                                                default:
                                                        if (isset($TCA[$table]['columns'][$field]))     {
                                                                        // Evaluating the value.
                                                                $res = $this->checkValue($table,$field,$fieldValue,$id,$status,$realPid,$tscPID);
                                                                if (isset($res['value']))       {
                                                                        $fieldArray[$field]=$res['value'];

                                                                                // Add the value of the original record to the diff-storage content:
                                                                        if ($TCA[$table]['ctrl']['transOrigDiffSourceField'])   {
                                                                                $originalLanguage_diffStorage[$field] = $originalLanguageRecord[$field];
                                                                                $diffStorageFlag = TRUE;
                                                                        }
                                                                }
                                                        } elseif ($TCA[$table]['ctrl']['origUid']===$field) {   // Allow value for original UID to pass by...
                                                                $fieldArray[$field] = $fieldValue;
                                                        }
                                                break;
                                        }
                                }       // Checking language.
                        }       // Check exclude fields / disabled fields...
                }

                        // Add diff-storage information:
                if ($diffStorageFlag && !isset($fieldArray[$TCA[$table]['ctrl']['transOrigDiffSourceField']]))  {       // If the field is set it would probably be because of an undo-operation - in which case we should not update the field of course...
                         $fieldArray[$TCA[$table]['ctrl']['transOrigDiffSourceField']] = serialize($originalLanguage_diffStorage);
                }

                        // Checking for RTE-transformations of fields:
                $types_fieldConfig = t3lib_BEfunc::getTCAtypes($table,$currentRecord);
                $theTypeString = t3lib_BEfunc::getTCAtypeValue($table,$currentRecord);
                if (is_array($types_fieldConfig))       {
                        reset($types_fieldConfig);
                        while(list(,$vconf) = each($types_fieldConfig)) {
                                        // Write file configuration:
                                $eFile = t3lib_parsehtml_proc::evalWriteFile($vconf['spec']['static_write'],array_merge($currentRecord,$fieldArray));   // inserted array_merge($currentRecord,$fieldArray) 170502

                                        // RTE transformations:
                                if (!$this->dontProcessTransformations) {
                                        if (isset($fieldArray[$vconf['field']]))        {
                                                        // Look for transformation flag:
                                                switch((string)$incomingFieldArray['_TRANSFORM_'.$vconf['field']])      {
                                                        case 'RTE':
                                                                $RTEsetup = $this->BE_USER->getTSConfig('RTE',t3lib_BEfunc::getPagesTSconfig($tscPID));
                                                                $thisConfig = t3lib_BEfunc::RTEsetup($RTEsetup['properties'],$table,$vconf['field'],$theTypeString);

                                                                        // Set alternative relative path for RTE images/links:
                                                                $RTErelPath = is_array($eFile) ? dirname($eFile['relEditFile']) : '';

                                                                        // Get RTE object, draw form and set flag:
                                                                $RTEobj = &t3lib_BEfunc::RTEgetObj();
                                                                if (is_object($RTEobj)) {
                                                                        $fieldArray[$vconf['field']] = $RTEobj->transformContent('db',$fieldArray[$vconf['field']],$table,$vconf['field'],$currentRecord,$vconf['spec'],$thisConfig,$RTErelPath,$currentRecord['pid']);
                                                                } else {
                                                                        debug('NO RTE OBJECT FOUND!');
                                                                }
                                                        break;
                                                }
                                        }
                                }

                                        // Write file configuration:
                                if (is_array($eFile))   {
                                        $mixedRec = array_merge($currentRecord,$fieldArray);
                                        $SW_fileContent = t3lib_div::getUrl($eFile['editFile']);
                                        $parseHTML = t3lib_div::makeInstance('t3lib_parsehtml_proc');
                                        $parseHTML->init('','');

                                        $eFileMarker = $eFile['markerField']&&trim($mixedRec[$eFile['markerField']]) ? trim($mixedRec[$eFile['markerField']]) : '###TYPO3_STATICFILE_EDIT###';
                                        $insertContent = str_replace($eFileMarker,'',$mixedRec[$eFile['contentField']]);        // must replace the marker if present in content!

                                        $SW_fileNewContent = $parseHTML->substituteSubpart($SW_fileContent, $eFileMarker, chr(10).$insertContent.chr(10), 1, 1);
                                        t3lib_div::writeFile($eFile['editFile'],$SW_fileNewContent);

                                                // Write status:
                                        if (!strstr($id,'NEW') && $eFile['statusField'])        {
                                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery(
                                                        $table,
                                                        'uid='.intval($id),
                                                        array(
                                                                $eFile['statusField'] => $eFile['relEditFile'].' updated '.date('d-m-Y H:i:s').', bytes '.strlen($mixedRec[$eFile['contentField']])
                                                        )
                                                );
                                        }
                                } elseif ($eFile && is_string($eFile))  {
                                        $this->log($table,$id,2,0,1,"Write-file error: '%s'",13,array($eFile),$realPid);
                                }
                        }
                }
                        // Return fieldArray
                return $fieldArray;
        }












        /*********************************************
         *
         * Evaluation of input values
         *
         ********************************************/

        function checkValue($table,$field,$value,$id,$status,$realPid,$tscPID)  {
                global $TCA, $PAGES_TYPES;
                t3lib_div::loadTCA($table);

                $res = Array(); // result array
                $recFID = $table.':'.$id.':'.$field;

                        // Processing special case of field pages.doktype
                if ($table=='pages' && $field=='doktype')       {
                                // If the user may not use this specific doktype, we issue a warning
                        if (! ($this->admin || t3lib_div::inList($this->BE_USER->groupData['pagetypes_select'],$value)))        {
                                $propArr = $this->getRecordProperties($table,$id);
                                $this->log($table,$id,5,0,1,"You cannot change the 'doktype' of page '%s' to the desired value.",1,array($propArr['header']),$propArr['event_pid']);
                                return $res;
                        };
                        if ($status=='update')  {
                                        // This checks 1) if we should check for disallowed tables and 2) if there are records from disallowed tables on the current page
                                $onlyAllowedTables = isset($PAGES_TYPES[$value]['onlyAllowedTables']) ? $PAGES_TYPES[$value]['onlyAllowedTables'] : $PAGES_TYPES['default']['onlyAllowedTables'];
                                if ($onlyAllowedTables) {
                                        $theWrongTables = $this->doesPageHaveUnallowedTables($id,$value);
                                        if ($theWrongTables)    {
                                                $propArr = $this->getRecordProperties($table,$id);
                                                $this->log($table,$id,5,0,1,"'doktype' of page '%s' could not be changed because the page contains records from disallowed tables; %s",2,array($propArr['header'],$theWrongTables),$propArr['event_pid']);
                                                return $res;
                                        }
                                }
                        }
                }

                        // Get current value:
                $curValueRec = $this->recordInfo($table,$id,$field);
                $curValue = $curValueRec[$field];

                        // Getting config for the field
                $tcaFieldConf = $TCA[$table]['columns'][$field]['config'];

                        // Preform processing:
                $res = $this->checkValue_SW($res,$value,$tcaFieldConf,$table,$id,$curValue,$status,$realPid,$recFID,$field,$this->uploadedFileArray[$table][$id][$field],$tscPID);

                return $res;
        }

        function checkValue_SW($res,$value,$tcaFieldConf,$table,$id,$curValue,$status,$realPid,$recFID,$field,$uploadedFiles,$tscPID)   {

                $PP = array($table,$id,$curValue,$status,$realPid,$recFID,$tscPID);

                switch ($tcaFieldConf['type']) {
                        case 'text':
                        case 'passthrough':
                        case 'user':
                                $res['value'] = $value;
                        break;
                        case 'input':
                                $res = $this->checkValue_input($res,$value,$tcaFieldConf,$PP,$field);
                        break;
                        case 'check':
                                $res = $this->checkValue_check($res,$value,$tcaFieldConf,$PP);
                        break;
                        case 'radio':
                                $res = $this->checkValue_radio($res,$value,$tcaFieldConf,$PP);
                        break;
                        case 'group':
                        case 'select':
                                $res = $this->checkValue_group_select($res,$value,$tcaFieldConf,$PP,$uploadedFiles,$field);
                        break;
                        case 'inline':
                                $res = $this->checkValue_inline($res,$value,$tcaFieldConf,$PP,$field);
                        break;
                        case 'flex':
                                if ($field)     {       // FlexForms are only allowed for real fields.
                                        $res = $this->checkValue_flex($res,$value,$tcaFieldConf,$PP,$uploadedFiles,$field);
                                }
                        break;
                        default:
                                #debug(array($tcaFieldConf,$res,$value),'NON existing field type:');
                        break;
                }

                return $res;
        }

        function checkValue_input($res,$value,$tcaFieldConf,$PP,$field='')      {
                list($table,$id,$curValue,$status,$realPid,$recFID) = $PP;

                        // Secures the string-length to be less than max. Will probably make problems with multi-byte strings!
                if (intval($tcaFieldConf['max'])>0)     {$value = substr($value,0,intval($tcaFieldConf['max']));}

                        // Checking range of value:
                if ($tcaFieldConf['range'] && $value!=$tcaFieldConf['checkbox'])        {       // If value is not set to the allowed checkbox-value then it is checked against the ranges
                        if (isset($tcaFieldConf['range']['upper'])&&$value>$tcaFieldConf['range']['upper'])     {$value=$tcaFieldConf['range']['upper'];}
                        if (isset($tcaFieldConf['range']['lower'])&&$value<$tcaFieldConf['range']['lower'])     {$value=$tcaFieldConf['range']['lower'];}
                }

                        // Process evaluation settings:
                $evalCodesArray = t3lib_div::trimExplode(',',$tcaFieldConf['eval'],1);
                $res = $this->checkValue_input_Eval($value,$evalCodesArray,$tcaFieldConf['is_in']);

                        // Process UNIQUE settings:
                if ($field && $realPid>=0)      {       // Field is NOT set for flexForms - which also means that uniqueInPid and unique is NOT available for flexForm fields! Also getUnique should not be done for versioning and if PID is -1 ($realPid<0) then versioning is happening...
                        if ($res['value'] && in_array('uniqueInPid',$evalCodesArray))   {
                                $res['value'] = $this->getUnique($table,$field,$res['value'],$id,$realPid);
                        }
                        if ($res['value'] && in_array('unique',$evalCodesArray))        {
                                $res['value'] = $this->getUnique($table,$field,$res['value'],$id);
                        }
                }

                return $res;
        }

        function checkValue_check($res,$value,$tcaFieldConf,$PP)        {
                list($table,$id,$curValue,$status,$realPid,$recFID) = $PP;

                $itemC = count($tcaFieldConf['items']);
                if (!$itemC)    {$itemC=1;}
                $maxV = pow(2,$itemC);

                if ($value<0)   {$value=0;}
                if ($value>$maxV)       {$value=$maxV;}
                $res['value'] = $value;

                return $res;
        }

        function checkValue_radio($res,$value,$tcaFieldConf,$PP)        {
                list($table,$id,$curValue,$status,$realPid,$recFID) = $PP;

                if (is_array($tcaFieldConf['items']))   {
                        foreach($tcaFieldConf['items'] as $set) {
                                if (!strcmp($set[1],$value))    {
                                        $res['value'] = $value;
                                        break;
                                }
                        }
                }

                return $res;
        }

        function checkValue_group_select($res,$value,$tcaFieldConf,$PP,$uploadedFiles,$field)   {

                list($table,$id,$curValue,$status,$realPid,$recFID) = $PP;

                        // Detecting if value sent is an array and if so, implode it around a comma:
                if (is_array($value))   {
                        $value = implode(',',$value);
                }

                        // This converts all occurencies of '&#123;' to the byte 123 in the string - this is needed in very rare cases where filenames with special characters (like ???, umlaud etc) gets sent to the server as HTML entities instead of bytes. The error is done only by MSIE, not Mozilla and Opera.
                        // Anyways, this should NOT disturb anything else:
                $value = $this->convNumEntityToByteValue($value);

                        // When values are sent as group or select they come as comma-separated values which are exploded by this function:
                $valueArray = $this->checkValue_group_select_explodeSelectGroupValue($value);

                        // If not multiple is set, then remove duplicates:
                if (!$tcaFieldConf['multiple']) {
                        $valueArray = array_unique($valueArray);
                }

                        // If an exclusive key is found, discard all others:
                if ($tcaFieldConf['type']=='select' && $tcaFieldConf['exclusiveKeys'])  {
                        $exclusiveKeys = t3lib_div::trimExplode(',', $tcaFieldConf['exclusiveKeys']);
                        foreach($valueArray as $kk => $vv)      {
                                if (in_array($vv, $exclusiveKeys))      {       // $vv is the item key!
                                        $valueArray = Array($kk => $vv);
                                        break;
                                }
                        }
                }

                // This could be a good spot for parsing the array through a validation-function which checks if the values are alright (except that database references are not in their final form - but that is the point, isn't it?)
                // NOTE!!! Must check max-items of files before the later check because that check would just leave out filenames if there are too many!!

                        // Checking for select / authMode, removing elements from $valueArray if any of them is not allowed!
                if ($tcaFieldConf['type']=='select' && $tcaFieldConf['authMode'])       {
                        $preCount = count($valueArray);
                        foreach($valueArray as $kk => $vv)      {
                                if (!$this->BE_USER->checkAuthMode($table,$field,$vv,$tcaFieldConf['authMode']))        {
                                        unset($valueArray[$kk]);
                                }
                        }

                                // During the check it turns out that the value / all values were removed - we respond by simply returning an empty array so nothing is written to DB for this field.
                        if ($preCount && !count($valueArray))   {
                                return array();
                        }
                }

                        // For group types:
                if ($tcaFieldConf['type']=='group')     {
                        switch($tcaFieldConf['internal_type'])  {
                                case 'file':
                                        $valueArray = $this->checkValue_group_select_file(
                                                $valueArray,
                                                $tcaFieldConf,
                                                $curValue,
                                                $uploadedFiles,
                                                $status,
                                                $table,
                                                $id,
                                                $recFID
                                        );
                                break;
                                case 'db':
                                        $valueArray = $this->checkValue_group_select_processDBdata($valueArray,$tcaFieldConf,$id,$status,'group', $table);
                                break;
                        }
                }
                        // For select types which has a foreign table attached:
                if ($tcaFieldConf['type']=='select' && $tcaFieldConf['foreign_table'])  {
                                // check, if there is a NEW... id in the value, that should be substituded later
                        if (strpos($value, 'NEW') !== false) {
                                $this->remapStack[] = array(
                                        'func' => 'checkValue_group_select_processDBdata',
                                        'args' => array($valueArray,$tcaFieldConf,$id,$status,'select',$table),
                                        'pos' => array('valueArray' => 0, 'tcaFieldConf' => 1, 'id' => 2, 'table' => 5),
                                        'field' => $field
                                );
                                $unsetResult = true;
                        } else {
                                $valueArray = $this->checkValue_group_select_processDBdata($valueArray,$tcaFieldConf,$id,$status,'select', $table);
                        }
                }

                if (!$unsetResult) {
                        $newVal=$this->checkValue_checkMax($tcaFieldConf, $valueArray);
                        $res['value'] = implode(',',$newVal);
                } else {
                        unset($res['value']);
                }

                return $res;
        }

        function checkValue_group_select_file($valueArray,$tcaFieldConf,$curValue,$uploadedFileArray,$status,$table,$id,$recFID)        {

                if (!$this->bypassFileHandling) {       // If filehandling should NOT be bypassed, do processing:

                                // If any files are uploaded, add them to value array
                        if (is_array($uploadedFileArray) &&
                                $uploadedFileArray['name'] &&
                                strcmp($uploadedFileArray['tmp_name'],'none'))  {
                                        $valueArray[]=$uploadedFileArray['tmp_name'];
                                        $this->alternativeFileName[$uploadedFileArray['tmp_name']] = $uploadedFileArray['name'];
                        }

                                // Creating fileFunc object.
                        if (!$this->fileFunc)   {
                                $this->fileFunc = t3lib_div::makeInstance('t3lib_basicFileFunctions');
                                $this->include_filefunctions=1;
                        }
                                // Setting permitted extensions.
                        $all_files = Array();
                        $all_files['webspace']['allow'] = $tcaFieldConf['allowed'];
                        $all_files['webspace']['deny'] = $tcaFieldConf['disallowed'] ? $tcaFieldConf['disallowed'] : '*';
                        $all_files['ftpspace'] = $all_files['webspace'];
                        $this->fileFunc->init('', $all_files);
                }

                        // If there is an upload folder defined:
                if ($tcaFieldConf['uploadfolder'])      {
                        if (!$this->bypassFileHandling) {       // If filehandling should NOT be bypassed, do processing:
                                        // For logging..
                                $propArr = $this->getRecordProperties($table,$id);

                                        // Get destrination path:
                                $dest = $this->destPathFromUploadFolder($tcaFieldConf['uploadfolder']);

                                        // If we are updating:
                                if ($status=='update')  {

                                                // Traverse the input values and convert to absolute filenames in case the update happens to an autoVersionized record.
                                                // Background: This is a horrible workaround! The problem is that when a record is auto-versionized the files of the record get copied and therefore get new names which is overridden with the names from the original record in the incoming data meaning both lost files and double-references!
                                                // The only solution I could come up with (except removing support for managing files when autoversioning) was to convert all relative files to absolute names so they are copied again (and existing files deleted). This should keep references intact but means that some files are copied, then deleted after being copied _again_.
                                                // Actually, the same problem applies to database references in case auto-versioning would include sub-records since in such a case references are remapped - and they would be overridden due to the same principle then.
                                                // Illustration of the problem comes here:
                                                // We have a record 123 with a file logo.gif. We open and edit the files header in a workspace. So a new version is automatically made.
                                                // The versions uid is 456 and the file is copied to "logo_01.gif". But the form data that we sents was based on uid 123 and hence contains the filename "logo.gif" from the original.
                                                // The file management code below will do two things: First it will blindly accept "logo.gif" as a file attached to the record (thus creating a double reference) and secondly it will find that "logo_01.gif" was not in the incoming filelist and therefore should be deleted.
                                                // If we prefix the incoming file "logo.gif" with its absolute path it will be seen as a new file added. Thus it will be copied to "logo_02.gif". "logo_01.gif" will still be deleted but since the files are the same the difference is zero - only more processing and file copying for no reason. But it will work.
                                        if ($this->autoVersioningUpdate===TRUE) {
                                                foreach($valueArray as $key => $theFile)        {
                                                        if ($theFile===basename($theFile))      {       // If it is an already attached file...
                                                                $valueArray[$key] = PATH_site.$tcaFieldConf['uploadfolder'].'/'.$theFile;
                                                        }
                                                }
                                        }

                                                // Finding the CURRENT files listed, either from MM or from the current record.
                                        $theFileValues=array();
                                        if ($tcaFieldConf['MM'])        {       // If MM relations for the files also!
                                                $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                                                $dbAnalysis->start('','files',$tcaFieldConf['MM'],$id);
                                                reset($dbAnalysis->itemArray);
                                                while (list($somekey,$someval)=each($dbAnalysis->itemArray))    {
                                                        if ($someval['id'])     {
                                                                $theFileValues[]=$someval['id'];
                                                        }
                                                }
                                        } else {
                                                $theFileValues=t3lib_div::trimExplode(',',$curValue,1);
                                        }

                                                // DELETE files: If existing files were found, traverse those and register files for deletion which has been removed:
                                        if (count($theFileValues))      {
                                                        // Traverse the input values and for all input values which match an EXISTING value, remove the existing from $theFileValues array (this will result in an array of all the existing files which should be deleted!)
                                                foreach($valueArray as $key => $theFile)        {
                                                        if ($theFile && !strstr(t3lib_div::fixWindowsFilePath($theFile),'/'))   {
                                                                $theFileValues = t3lib_div::removeArrayEntryByValue($theFileValues,$theFile);
                                                        }
                                                }

                                                        // This array contains the filenames in the uploadfolder that should be deleted:
                                                foreach($theFileValues as $key => $theFile)     {
                                                        $theFile = trim($theFile);
                                                        if (@is_file($dest.'/'.$theFile))       {
                                                                $this->removeFilesStore[]=$dest.'/'.$theFile;
                                                        } elseif ($theFile) {
                                                                $this->log($table,$id,5,0,1,"Could not delete file '%s' (does not exist). (%s)",10,array($dest.'/'.$theFile, $recFID),$propArr['event_pid']);
                                                        }
                                                }
                                        }
                                }

                                        // Traverse the submitted values:
                                foreach($valueArray as $key => $theFile)        {
                                                // NEW FILES? If the value contains '/' it indicates, that the file is new and should be added to the uploadsdir (whether its absolute or relative does not matter here)
                                        if (strstr(t3lib_div::fixWindowsFilePath($theFile),'/'))        {
                                                        // Init:
                                                $maxSize = intval($tcaFieldConf['max_size']);
                                                $cmd='';
                                                $theDestFile='';                // Must be cleared. Else a faulty fileref may be inserted if the below code returns an error!

                                                        // Check various things before copying file:
                                                if (@is_dir($dest) && (@is_file($theFile) || @is_uploaded_file($theFile)))      {               // File and destination must exist

                                                                // Finding size. For safe_mode we have to rely on the size in the upload array if the file is uploaded.
                                                        if (is_uploaded_file($theFile) && $theFile==$uploadedFileArray['tmp_name'])     {
                                                                $fileSize = $uploadedFileArray['size'];
                                                        } else {
                                                                $fileSize = filesize($theFile);
                                                        }

                                                        if (!$maxSize || $fileSize<=($maxSize*1024))    {       // Check file size:
                                                                        // Prepare filename:
                                                                $theEndFileName = isset($this->alternativeFileName[$theFile]) ? $this->alternativeFileName[$theFile] : $theFile;
                                                                $fI = t3lib_div::split_fileref($theEndFileName);

                                                                        // Check for allowed extension:
                                                                if ($this->fileFunc->checkIfAllowed($fI['fileext'], $dest, $theEndFileName)) {
                                                                        $theDestFile = $this->fileFunc->getUniqueName($this->fileFunc->cleanFileName($fI['file']), $dest);

                                                                                // If we have a unique destination filename, then write the file:
                                                                        if ($theDestFile)       {
                                                                                t3lib_div::upload_copy_move($theFile,$theDestFile);
                                                                                $this->copiedFileMap[$theFile] = $theDestFile;
                                                                                clearstatcache();
                                                                                if (!@is_file($theDestFile))    $this->log($table,$id,5,0,1,"Copying file '%s' failed!: The destination path (%s) may be write protected. Please make it write enabled!. (%s)",16,array($theFile, dirname($theDestFile), $recFID),$propArr['event_pid']);
                                                                        } else $this->log($table,$id,5,0,1,"Copying file '%s' failed!: No destination file (%s) possible!. (%s)",11,array($theFile, $theDestFile, $recFID),$propArr['event_pid']);
                                                                } else $this->log($table,$id,5,0,1,"Fileextension '%s' not allowed. (%s)",12,array($fI['fileext'], $recFID),$propArr['event_pid']);
                                                        } else $this->log($table,$id,5,0,1,"Filesize (%s) of file '%s' exceeds limit (%s). (%s)",13,array(t3lib_div::formatSize($fileSize),$theFile,t3lib_div::formatSize($maxSize*1024),$recFID),$propArr['event_pid']);
                                                } else $this->log($table,$id,5,0,1,'The destination (%s) or the source file (%s) does not exist. (%s)',14,array($dest, $theFile, $recFID),$propArr['event_pid']);

                                                        // If the destination file was created, we will set the new filename in the value array, otherwise unset the entry in the value array!
                                                if (@is_file($theDestFile))     {
                                                        $info = t3lib_div::split_fileref($theDestFile);
                                                        $valueArray[$key]=$info['file']; // The value is set to the new filename
                                                } else {
                                                        unset($valueArray[$key]);       // The value is set to the new filename
                                                }
                                        }
                                }
                        }

                                // If MM relations for the files, we will set the relations as MM records and change the valuearray to contain a single entry with a count of the number of files!
                        if ($tcaFieldConf['MM'])        {
                                $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                                $dbAnalysis->tableArray['files']=array();       // dummy

                                reset($valueArray);
                                while (list($key,$theFile)=each($valueArray))   {
                                                // explode files
                                                $dbAnalysis->itemArray[]['id']=$theFile;
                                }
                                if ($status=='update')  {
                                        $dbAnalysis->writeMM($tcaFieldConf['MM'],$id,0);
                                } else {
                                        $this->dbAnalysisStore[] = array($dbAnalysis, $tcaFieldConf['MM'], $id, 0);     // This will be traversed later to execute the actions
                                }
                                $valueArray = $dbAnalysis->countItems();
                        }
                }

                return $valueArray;
        }

        function checkValue_flex($res,$value,$tcaFieldConf,$PP,$uploadedFiles,$field)   {
                list($table,$id,$curValue,$status,$realPid,$recFID) = $PP;

                if (is_array($value))   {

                                // This value is necessary for flex form processing to happen on flexform fields in page records when they are copied.
                                // The problem is, that when copying a page, flexfrom XML comes along in the array for the new record - but since $this->checkValue_currentRecord does not have a uid or pid for that sake, the t3lib_BEfunc::getFlexFormDS() function returns no good DS. For new records we do know the expected PID so therefore we send that with this special parameter. Only active when larger than zero.
                        $newRecordPidValue = $status=='new' ? $realPid : 0;

                                // Get current value array:
                        $dataStructArray = t3lib_BEfunc::getFlexFormDS($tcaFieldConf,$this->checkValue_currentRecord,$table,'',TRUE,$newRecordPidValue);

                        $currentValueArray = t3lib_div::xml2array($curValue);
                        if (!is_array($currentValueArray))      $currentValueArray = array();
                        if (is_array($currentValueArray['meta']['currentLangId']))              unset($currentValueArray['meta']['currentLangId']);     // Remove all old meta for languages...

                                // Evaluation of input values:
                        $value['data'] = $this->checkValue_flex_procInData($value['data'],$currentValueArray['data'],$uploadedFiles['data'],$dataStructArray,$PP);

                                // Create XML and convert charsets from input value:
                        $xmlValue = $this->checkValue_flexArray2Xml($value,TRUE);

                                // If we wanted to set UTF fixed:
                        // $storeInCharset='utf-8';
                        // $currentCharset=$GLOBALS['LANG']->charSet;
                        // $xmlValue = $GLOBALS['LANG']->csConvObj->conv($xmlValue,$currentCharset,$storeInCharset,1);
                        $storeInCharset=$GLOBALS['LANG']->charSet;

                                // Merge them together IF they are both arrays:
                                // Here we convert the currently submitted values BACK to an array, then merge the two and then BACK to XML again. This is needed to ensure the charsets are the same (provided that the current value was already stored IN the charset that the new value is converted to).
                        if (is_array($currentValueArray))       {
                                $arrValue = t3lib_div::xml2array($xmlValue);
                                $arrValue = t3lib_div::array_merge_recursive_overrule($currentValueArray,$arrValue);
                                $xmlValue = $this->checkValue_flexArray2Xml($arrValue,TRUE);
                        }

                                // Temporary fix to delete flex form elements:
                        $deleteCMDs = t3lib_div::_GP('_DELETE_FLEX_FORMdata');
                        if (is_array($deleteCMDs[$table][$id][$field]['data'])) {
                                $arrValue = t3lib_div::xml2array($xmlValue);
                                $this->_DELETE_FLEX_FORMdata($arrValue['data'],$deleteCMDs[$table][$id][$field]['data']);
                                $xmlValue = $this->checkValue_flexArray2Xml($arrValue,TRUE);
                        }

                                // Temporary fix to move flex form elements up:
                        $moveCMDs = t3lib_div::_GP('_MOVEUP_FLEX_FORMdata');
                        if (is_array($moveCMDs[$table][$id][$field]['data']))   {
                                $arrValue = t3lib_div::xml2array($xmlValue);
                                $this->_MOVE_FLEX_FORMdata($arrValue['data'],$moveCMDs[$table][$id][$field]['data'], 'up');
                                $xmlValue = $this->checkValue_flexArray2Xml($arrValue,TRUE);
                        }

                                // Temporary fix to move flex form elements down:
                        $moveCMDs = t3lib_div::_GP('_MOVEDOWN_FLEX_FORMdata');
                        if (is_array($moveCMDs[$table][$id][$field]['data']))   {
                                $arrValue = t3lib_div::xml2array($xmlValue);
                                $this->_MOVE_FLEX_FORMdata($arrValue['data'],$moveCMDs[$table][$id][$field]['data'], 'down');
                                $xmlValue = $this->checkValue_flexArray2Xml($arrValue,TRUE);
                        }

                                // Create the value XML:
                        $res['value']='';
                        $res['value'].=$xmlValue;
                } else {        // Passthrough...:
                        $res['value']=$value;
                }

                return $res;
        }

        function checkValue_flexArray2Xml($array, $addPrologue=FALSE)   {
                $flexObj = t3lib_div::makeInstance('t3lib_flexformtools');
                return $flexObj->flexArray2Xml($array, $addPrologue);
        }

        function _DELETE_FLEX_FORMdata(&$valueArrayToRemoveFrom,$deleteCMDS)    {
                if (is_array($valueArrayToRemoveFrom) && is_array($deleteCMDS)) {
                        foreach($deleteCMDS as $key => $value)  {
                                if (is_array($deleteCMDS[$key]))        {
                                        $this->_DELETE_FLEX_FORMdata($valueArrayToRemoveFrom[$key],$deleteCMDS[$key]);
                                } else {
                                        unset($valueArrayToRemoveFrom[$key]);
                                }
                        }
                }
        }

        function _MOVE_FLEX_FORMdata(&$valueArrayToMoveIn, $moveCMDS, $direction)       {
                if (is_array($valueArrayToMoveIn) && is_array($moveCMDS))       {

                                // Only execute the first move command:
                        list ($key, $value) = each ($moveCMDS);

                        if (is_array($moveCMDS[$key]))  {
                                $this->_MOVE_FLEX_FORMdata($valueArrayToMoveIn[$key],$moveCMDS[$key], $direction);
                        } else {
                                switch ($direction) {
                                        case 'up':
                                                if ($key > 1) {
                                                        $tmpArr = $valueArrayToMoveIn[$key];
                                                        $valueArrayToMoveIn[$key] = $valueArrayToMoveIn[$key-1];
                                                        $valueArrayToMoveIn[$key-1] = $tmpArr;
                                                }
                                        break;
                                        case 'down':
                                                if ($key < count($valueArrayToMoveIn)) {
                                                        $tmpArr = $valueArrayToMoveIn[$key];
                                                        $valueArrayToMoveIn[$key] = $valueArrayToMoveIn[$key+1];
                                                        $valueArrayToMoveIn[$key+1] = $tmpArr;
                                                }
                                        break;
                                }
                        }
                }
        }

        function checkValue_inline($res,$value,$tcaFieldConf,$PP,$field)        {
                list($table,$id,$curValue,$status,$realPid,$recFID) = $PP;

                if (!$tcaFieldConf['foreign_table'])    {
                        return false;   // Fatal error, inline fields should always have a foreign_table defined
                }

                        // When values are sent they come as comma-separated values which are exploded by this function:
                $valueArray = t3lib_div::trimExplode(',', $value);

                        // Remove duplicates: (should not be needed)
                $valueArray = array_unique($valueArray);

                        // Example for received data:
                        // $value = 45,NEW4555fdf59d154,12,123
                        // We need to decide whether we use the stack or can save the relation directly.
                if(strpos($value, 'NEW') !== false || !t3lib_div::testInt($id)) {
                        $this->remapStack[] = array(
                                'func' => 'checkValue_group_select_processDBdata',
                                'args' => array($valueArray,$tcaFieldConf,$id,$status,'inline',$table),
                                'pos' => array('valueArray' => 0, 'tcaFieldConf' => 1, 'id' => 2, 'table' => 5),
                                'field' => $field
                        );
                        unset($res['value']);
                } elseif($value || t3lib_div::testInt($id)) {
                        $newValueArray = $this->checkValue_group_select_processDBdata($valueArray,$tcaFieldConf,$id,$status,'inline', $table);

                                // Checking that the number of items is correct
                        $newVal = $this->checkValue_checkMax($tcaFieldConf, $newValueArray);
                        $res['value'] = implode(',',$newVal);
                }

                return $res;
        }

        function checkValue_checkMax($tcaFieldConf, $valueArray) {
                // BTW, checking for min and max items here does NOT make any sense when MM is used because the above function calls will just return an array with a single item (the count) if MM is used... Why didn't I perform the check before? Probably because we could not evaluate the validity of record uids etc... Hmm...

                $valueArrayC = count($valueArray);

                        // NOTE to the comment: It's not really possible to check for too few items, because you must then determine first, if the field is actual used regarding the CType.
                $maxI = isset($tcaFieldConf['maxitems']) ? intval($tcaFieldConf['maxitems']):1;
                if ($valueArrayC > $maxI)       {$valueArrayC=$maxI;}   // Checking for not too many elements

                        // Dumping array to list
                $newVal=array();
                foreach($valueArray as $nextVal)        {
                        if ($valueArrayC==0)    {break;}
                        $valueArrayC--;
                        $newVal[]=$nextVal;
                }

                return $newVal;
        }

















        /*********************************************
         *
         * Helper functions for evaluation functions.
         *
         ********************************************/

        function getUnique($table,$field,$value,$id,$newPid=0)  {
                global $TCA;

                        // Initialize:
                t3lib_div::loadTCA($table);
                $whereAdd='';
                $newValue='';
                if (intval($newPid))    { $whereAdd.=' AND pid='.intval($newPid); } else { $whereAdd.=' AND pid>=0'; }  // "AND pid>=0" for versioning
                $whereAdd.=$this->deleteClause($table);

                        // If the field is configured in TCA, proceed:
                if (is_array($TCA[$table]) && is_array($TCA[$table]['columns'][$field]))        {

                                // Look for a record which might already have the value:
                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, $field.'='.$GLOBALS['TYPO3_DB']->fullQuoteStr($value, $table).' AND uid!='.intval($id).$whereAdd);
                        $counter = 0;

                                // For as long as records with the test-value existing, try again (with incremented numbers appended).
                        while ($GLOBALS['TYPO3_DB']->sql_num_rows($res))        {
                                $newValue = $value.$counter;
                                $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, $field.'='.$GLOBALS['TYPO3_DB']->fullQuoteStr($newValue, $table).' AND uid!='.intval($id).$whereAdd);
                                $counter++;
                                if ($counter>100)       { break; }      // At "100" it will give up and accept a duplicate - should probably be fixed to a small hash string instead...!
                        }
                                // If the new value is there:
                        $value = strlen($newValue) ? $newValue : $value;
                }
                return $value;
        }

        function checkValue_input_Eval($value,$evalArray,$is_in)        {
                $res = Array();
                $newValue = $value;
                $set = true;

                foreach($evalArray as $func)    {
                        switch($func)   {
                                case 'int':
                                case 'year':
                                case 'date':
                                case 'datetime':
                                case 'time':
                                case 'timesec':
                                        $value = intval($value);
                                break;
                                case 'double2':
                                        $theDec = 0;
                                        for ($a=strlen($value); $a>0; $a--)     {
                                                if (substr($value,$a-1,1)=='.' || substr($value,$a-1,1)==',')   {
                                                        $theDec = substr($value,$a);
                                                        $value = substr($value,0,$a-1);
                                                        break;
                                                }
                                        }
                                        $theDec = ereg_replace('[^0-9]','',$theDec).'00';
                                        $value = intval(str_replace(' ','',$value)).'.'.substr($theDec,0,2);
                                break;
                                case 'md5':
                                        if (strlen($value)!=32){$set=false;}
                                break;
                                case 'trim':
                                        $value = trim($value);
                                break;
                                case 'upper':
                                        $value = strtoupper($value);
#                                       $value = strtr($value, '', ''); // WILL make trouble with other charsets than ISO-8859-1, so what do we do here? PHP-function which can handle this for other charsets? Currently the browsers JavaScript will fix it.
                                break;
                                case 'lower':
                                        $value = strtolower($value);
#                                       $value = strtr($value, '', ''); // WILL make trouble with other charsets than ISO-8859-1, so what do we do here? PHP-function which can handle this for other charsets? Currently the browsers JavaScript will fix it.
                                break;
                                case 'required':
                                        if (!$value)    {$set=0;}
                                break;
                                case 'is_in':
                                        $c=strlen($value);
                                        if ($c) {
                                                $newVal = '';
                                                for ($a=0;$a<$c;$a++)   {
                                                        $char = substr($value,$a,1);
                                                        if (strstr($is_in,$char))       {
                                                                $newVal.=$char;
                                                        }
                                                }
                                                $value = $newVal;
                                        }
                                break;
                                case 'nospace':
                                        $value = str_replace(' ','',$value);
                                break;
                                case 'alpha':
                                        $value = ereg_replace('[^a-zA-Z]','',$value);
                                break;
                                case 'num':
                                        $value = ereg_replace('[^0-9]','',$value);
                                break;
                                case 'alphanum':
                                        $value = ereg_replace('[^a-zA-Z0-9]','',$value);
                                break;
                                case 'alphanum_x':
                                        $value = ereg_replace('[^a-zA-Z0-9_-]','',$value);
                                break;
                                default:
                                        if (substr($func, 0, 3) == 'tx_')       {
                                                $evalObj = t3lib_div::getUserObj($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['tce']['formevals'][$func].':&'.$func);
                                                if (is_object($evalObj) && method_exists($evalObj, 'evaluateFieldValue'))       {
                                                        $value = $evalObj->evaluateFieldValue($value, $is_in, $set);
                                                }
                                        }
                                break;
                        }
                }
                if ($set)       {$res['value'] = $value;}
                return $res;
        }

        function checkValue_group_select_processDBdata($valueArray,$tcaFieldConf,$id,$status,$type,$currentTable)       {
                $tables = $type=='group'?$tcaFieldConf['allowed']:$tcaFieldConf['foreign_table'].','.$tcaFieldConf['neg_foreign_table'];
                $prep = $type=='group'?$tcaFieldConf['prepend_tname']:$tcaFieldConf['neg_foreign_table'];

                $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                $dbAnalysis->registerNonTableValues=$tcaFieldConf['allowNonIdValues'] ? 1 : 0;
                $dbAnalysis->start(implode(',',$valueArray),$tables, '', 0, $currentTable, $tcaFieldConf);

                if ($tcaFieldConf['MM'])        {
                        if ($status=='update')  {
                                $dbAnalysis->writeMM($tcaFieldConf['MM'],$id,$prep);
                        } else {
                                $this->dbAnalysisStore[] = array($dbAnalysis,$tcaFieldConf['MM'],$id,$prep);    // This will be traversed later to execute the actions
                        }
                        $valueArray = $dbAnalysis->countItems();
                } elseif ($type == 'inline') {
                        if ($tcaFieldConf['foreign_field']) {
                                        // if the record was imported, sorting was also imported, so skip this
                                $skipSorting = $this->callFromImpExp ? true : false;
                                        // update record in intermediate table (sorting & pointer uid to parent record)
                                $dbAnalysis->writeForeignField($tcaFieldConf, $id, 0, $skipSorting);
                                $valueArray = $dbAnalysis->countItems();
                        } else {
                                $valueArray = $dbAnalysis->getValueArray($prep);
                                if ($prep) {
                                                // @TODO: Do we want to support relations to multiple tables in Comma Separated Lists?
                                        $valueArray = $dbAnalysis->convertPosNeg($valueArray,$tcaFieldConf['foreign_table'],$tcaFieldConf['neg_foreign_table']);
                                }
                        }
                } else {
                        $valueArray = $dbAnalysis->getValueArray($prep);
                        if ($type=='select' && $prep)   {
                                $valueArray = $dbAnalysis->convertPosNeg($valueArray,$tcaFieldConf['foreign_table'],$tcaFieldConf['neg_foreign_table']);
                        }
                }

                        // Here we should see if 1) the records exist anymore, 2) which are new and check if the BE_USER has read-access to the new ones.
                return $valueArray;
        }

        function checkValue_group_select_explodeSelectGroupValue($value)        {
                $valueArray = t3lib_div::trimExplode(',',$value,1);
                reset($valueArray);
                while(list($key,$newVal)=each($valueArray))     {
                        $temp=explode('|',$newVal,2);
                        $valueArray[$key] = str_replace(',','',str_replace('|','',rawurldecode($temp[0])));
                }
                return $valueArray;
        }

        function checkValue_flex_procInData($dataPart,$dataPart_current,$uploadedFiles,$dataStructArray,$pParams,$callBackFunc='')      {
#debug(array($dataPart,$dataPart_current,$dataStructArray));
                if (is_array($dataPart))        {
                        foreach($dataPart as $sKey => $sheetDef)        {
                                list ($dataStruct,$actualSheet) = t3lib_div::resolveSheetDefInDS($dataStructArray,$sKey);
#debug(array($dataStruct,$actualSheet,$sheetDef,$actualSheet,$sKey));
                                if (is_array($dataStruct) && $actualSheet==$sKey && is_array($sheetDef))        {
                                        foreach($sheetDef as $lKey => $lData)   {
                                                $this->checkValue_flex_procInData_travDS(
                                                        $dataPart[$sKey][$lKey],
                                                        $dataPart_current[$sKey][$lKey],
                                                        $uploadedFiles[$sKey][$lKey],
                                                        $dataStruct['ROOT']['el'],
                                                        $pParams,
                                                        $callBackFunc,
                                                        $sKey.'/'.$lKey.'/'
                                                );
                                        }
                                }
                        }
                }

                return $dataPart;
        }

        function checkValue_flex_procInData_travDS(&$dataValues,$dataValues_current,$uploadedFiles,$DSelements,$pParams,$callBackFunc,$structurePath)   {
                if (is_array($DSelements))      {

                                // For each DS element:
                        foreach($DSelements as $key => $dsConf) {

                                                // Array/Section:
                                if ($DSelements[$key]['type']=='array') {
                                        if (is_array($dataValues[$key]['el']))  {
                                                if ($DSelements[$key]['section'])       {
                                                        foreach($dataValues[$key]['el'] as $ik => $el)  {
                                                                $theKey = key($el);
                                                                if (is_array($dataValues[$key]['el'][$ik][$theKey]['el']))      {
                                                                        $this->checkValue_flex_procInData_travDS(
                                                                                        $dataValues[$key]['el'][$ik][$theKey]['el'],
                                                                                        $dataValues_current[$key]['el'][$ik][$theKey]['el'],
                                                                                        $uploadedFiles[$key]['el'][$ik][$theKey]['el'],
                                                                                        $DSelements[$key]['el'][$theKey]['el'],
                                                                                        $pParams,
                                                                                        $callBackFunc,
                                                                                        $structurePath.$key.'/el/'.$ik.'/'.$theKey.'/el/'
                                                                                );
                                                                }
                                                        }
                                                } else {
                                                        if (!isset($dataValues[$key]['el']))    $dataValues[$key]['el']=array();
                                                        $this->checkValue_flex_procInData_travDS(
                                                                        $dataValues[$key]['el'],
                                                                        $dataValues_current[$key]['el'],
                                                                        $uploadedFiles[$key]['el'],
                                                                        $DSelements[$key]['el'],
                                                                        $pParams,
                                                                        $callBackFunc,
                                                                        $structurePath.$key.'/el/'
                                                                );
                                                }
                                        }
                                } else {
                                        if (is_array($dsConf['TCEforms']['config']) && is_array($dataValues[$key]))     {
                                                foreach($dataValues[$key] as $vKey => $data)    {

                                                        if ($callBackFunc)      {
                                                                if (is_object($this->callBackObj))      {
                                                                        $res = $this->callBackObj->$callBackFunc(
                                                                                                $pParams,
                                                                                                $dsConf['TCEforms']['config'],
                                                                                                $dataValues[$key][$vKey],
                                                                                                $dataValues_current[$key][$vKey],
                                                                                                $uploadedFiles[$key][$vKey],
                                                                                                $structurePath.$key.'/'.$vKey.'/'
                                                                                        );
                                                                } else {
                                                                        $res = $this->$callBackFunc(
                                                                                                $pParams,
                                                                                                $dsConf['TCEforms']['config'],
                                                                                                $dataValues[$key][$vKey],
                                                                                                $dataValues_current[$key][$vKey],
                                                                                                $uploadedFiles[$key][$vKey]
                                                                                        );
                                                                }
                                                        } else {        // Default
                                                                list($CVtable,$CVid,$CVcurValue,$CVstatus,$CVrealPid,$CVrecFID,$CVtscPID) = $pParams;

                                                                $res = $this->checkValue_SW(
                                                                                        array(),
                                                                                        $dataValues[$key][$vKey],
                                                                                        $dsConf['TCEforms']['config'],
                                                                                        $CVtable,
                                                                                        $CVid,
                                                                                        $dataValues_current[$key][$vKey],
                                                                                        $CVstatus,
                                                                                        $CVrealPid,
                                                                                        $CVrecFID,
                                                                                        '',
                                                                                        $uploadedFiles[$key][$vKey],
                                                                                        array(),
                                                                                        $CVtscPID
                                                                                );

                                                                        // Look for RTE transformation of field:
                                                                if ($dataValues[$key]['_TRANSFORM_'.$vKey] == 'RTE' && !$this->dontProcessTransformations)      {

                                                                                // Unsetting trigger field - we absolutely don't want that into the data storage!
                                                                        unset($dataValues[$key]['_TRANSFORM_'.$vKey]);

                                                                        if (isset($res['value']))       {

                                                                                        // Calculating/Retrieving some values here:
                                                                                list(,,$recFieldName) = explode(':', $CVrecFID);
                                                                                $theTypeString = t3lib_BEfunc::getTCAtypeValue($CVtable,$this->checkValue_currentRecord);
                                                                                $specConf = t3lib_BEfunc::getSpecConfParts('',$dsConf['TCEforms']['defaultExtras']);

                                                                                        // Find, thisConfig:
                                                                                $RTEsetup = $this->BE_USER->getTSConfig('RTE',t3lib_BEfunc::getPagesTSconfig($CVtscPID));
                                                                                $thisConfig = t3lib_BEfunc::RTEsetup($RTEsetup['properties'],$CVtable,$recFieldName,$theTypeString);

                                                                                        // Get RTE object, draw form and set flag:
                                                                                $RTEobj = &t3lib_BEfunc::RTEgetObj();
                                                                                if (is_object($RTEobj)) {
                                                                                        $res['value'] = $RTEobj->transformContent('db',$res['value'],$CVtable,$recFieldName,$this->checkValue_currentRecord,$specConf,$thisConfig,'',$CVrealPid);
                                                                                } else {
                                                                                        debug('NO RTE OBJECT FOUND!');
                                                                                }
                                                                        }
                                                                }
                                                        }

                                                                // Adding the value:
                                                        if (isset($res['value']))       {
                                                                $dataValues[$key][$vKey] = $res['value'];
                                                        }
                                                }
                                        }
                                }
                        }
                }
        }

















        /*********************************************
         *
         * PROCESSING COMMANDS
         *
         ********************************************/

        function process_cmdmap() {
                global $TCA, $TYPO3_CONF_VARS;

                        // Editing frozen:
                if ($this->BE_USER->workspace!==0 && $this->BE_USER->workspaceRec['freeze'])    {
                        $this->newlog('All editing in this workspace has been frozen!',1);
                        return FALSE;
                }

                        // Hook initialization:
                $hookObjectsArr = array();
                if (is_array ($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['processCmdmapClass'])) {
                        foreach ($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['processCmdmapClass'] as $classRef) {
                                $hookObjectsArr[] = &t3lib_div::getUserObj($classRef);
                        }
                }

                        // Traverse command map:
                reset($this->cmdmap);
                while(list($table,) = each($this->cmdmap))      {

                                // Check if the table may be modified!
                        $modifyAccessList = $this->checkModifyAccessList($table);
                        if (!$modifyAccessList) {
                                $id = 0;
                                $this->log($table,$id,2,0,1,"Attempt to modify table '%s' without permission",1,array($table));
                        }       // FIXME: $id not set here (Comment added by Sebastian Kurfuerst)

                                // Check basic permissions and circumstances:
                        if (isset($TCA[$table]) && !$this->tableReadOnly($table) && is_array($this->cmdmap[$table]) && $modifyAccessList)       {

                                        // Traverse the command map:
                                foreach($this->cmdmap[$table] as $id => $incomingCmdArray)      {
                                        if (is_array($incomingCmdArray))        {       // have found a command.

                                                        // Get command and value (notice, only one command is observed at a time!):
                                                reset($incomingCmdArray);
                                                $command = key($incomingCmdArray);
                                                $value = current($incomingCmdArray);

                                                foreach($hookObjectsArr as $hookObj) {
                                                        if (method_exists($hookObj, 'processCmdmap_preProcess')) {
                                                                $hookObj->processCmdmap_preProcess($command, $table, $id, $value, $this);
                                                        }
                                                }

                                                        // Init copyMapping array:
                                                $this->copyMappingArray = Array();              // Must clear this array before call from here to those functions: Contains mapping information between new and old id numbers.

                                                        // Branch, based on command
                                                switch ($command)       {
                                                        case 'move':
                                                                $this->moveRecord($table,$id,$value);
                                                        break;
                                                        case 'copy':
                                                                if ($table === 'pages') {
                                                                        $this->copyPages($id,$value);
                                                                } else {
                                                                        $this->copyRecord($table,$id,$value,1);
                                                                }
                                                        break;
                                                        case 'localize':
                                                                $this->localize($table,$id,$value);
                                                        break;
                                                        case 'version':
                                                                switch ((string)$value['action'])       {
                                                                        case 'new':
                                                                                $versionizeTree = t3lib_div::intInRange(!isset($value['treeLevels'])?-1:$value['treeLevels'],-1,100);
                                                                                if ($table == 'pages' && $versionizeTree>=0)    {
                                                                                        $this->versionizePages($id,$value['label'],$versionizeTree);
                                                                                } else {
                                                                                        $this->versionizeRecord($table,$id,$value['label']);
                                                                                }
                                                                        break;
                                                                        case 'swap':
                                                                                $this->version_swap($table,$id,$value['swapWith'],$value['swapIntoWS']);
                                                                        break;
                                                                        case 'clearWSID':
                                                                                $this->version_clearWSID($table,$id);
                                                                        break;
                                                                        case 'setStage':
                                                                                $idList = t3lib_div::trimExplode(',',$id,1);
                                                                                foreach($idList as $id) {
                                                                                        $this->version_setStage($table,$id,$value['stageId'],$value['comment']?$value['comment']:$this->generalComment);
                                                                                }
                                                                        break;
                                                                }
                                                        break;
                                                        case 'delete':
                                                                $this->deleteAction($table, $id);
                                                        break;
                                                        case 'undelete':
                                                                $this->undeleteRecord($table, $id);
                                                        break;
                                                }

                                                foreach($hookObjectsArr as $hookObj) {
                                                        if (method_exists($hookObj, 'processCmdmap_postProcess')) {
                                                                $hookObj->processCmdmap_postProcess($command, $table, $id, $value, $this);
                                                        }
                                                }

                                                        // Merging the copy-array info together for remapping purposes.
                                                $this->copyMappingArray_merged= t3lib_div::array_merge_recursive_overrule($this->copyMappingArray_merged,$this->copyMappingArray);
                                        }
                                }
                        }
                }

                        // Finally, before exit, check if there are ID references to remap. This might be the case if versioning or copying has taken place!
                $this->remapListedDBRecords();
        }











        /*********************************************
         *
         * Cmd: Copying
         *
         ********************************************/

        function copyRecord($table,$uid,$destPid,$first=0,$overrideValues=array(),$excludeFields='')    {
                global $TCA;

                $uid = $origUid = intval($uid);
                if ($TCA[$table] && $uid)       {
                        t3lib_div::loadTCA($table);
/*
                                // In case the record to be moved turns out to be an offline version, we have to find the live version and work on that one (this case happens for pages with "branch" versioning type)
                        if ($lookForLiveVersion = t3lib_BEfunc::getLiveVersionOfRecord($table,$uid,'uid'))      {
                                $uid = $lookForLiveVersion['uid'];
                        }
                                // Get workspace version of the source record, if any: Then we will copy workspace version instead:
                        if ($WSversion = t3lib_BEfunc::getWorkspaceVersionOfRecord($this->BE_USER->workspace, $table, $uid, 'uid,t3ver_oid'))   {
                                $uid = $WSversion['uid'];
                        }
                                // Now, the $uid is the actual record we will copy while $origUid is the record we asked to get copied - but that could be a live version.
*/
                        if ($this->doesRecordExist($table,$uid,'show')) {               // This checks if the record can be selected which is all that a copy action requires.
                                $data = Array();

                                $nonFields = array_unique(t3lib_div::trimExplode(',','uid,perms_userid,perms_groupid,perms_user,perms_group,perms_everybody,t3ver_oid,t3ver_wsid,t3ver_id,t3ver_label,t3ver_state,t3ver_swapmode,t3ver_count,t3ver_stage,t3ver_tstamp,'.$excludeFields,1));

                                // $row = $this->recordInfo($table,$uid,'*');
                                $row = t3lib_BEfunc::getRecordWSOL($table,$uid);        // So it copies (and localized) content from workspace...
                                if (is_array($row))     {

                                                // Initializing:
                                        $theNewID = uniqid('NEW');
                                        $enableField = isset($TCA[$table]['ctrl']['enablecolumns']) ? $TCA[$table]['ctrl']['enablecolumns']['disabled'] : '';
                                        $headerField = $TCA[$table]['ctrl']['label'];

                                                // Getting default data:
                                        $defaultData = $this->newFieldArray($table);

                                                // Getting "copy-after" fields if applicable:
                                                // origDestPid is retrieve before it may possibly be converted to resolvePid if the table is not sorted anyway. In this way, copying records to after another records which are not sorted still lets you use this function in order to copy fields from the one before.
                                        $copyAfterFields = $destPid<0 ? $this->fixCopyAfterDuplFields($table,$uid,abs($destPid),0) : array();

                                                // Page TSconfig related:
                                        $tscPID = t3lib_BEfunc::getTSconfig_pidValue($table,$uid,$destPid);     // NOT using t3lib_BEfunc::getTSCpid() because we need the real pid - not the ID of a page, if the input is a page...
                                        $TSConfig = $this->getTCEMAIN_TSconfig($tscPID);
                                        $tE = $this->getTableEntries($table,$TSConfig);

                                                // Traverse ALL fields of the selected record:
                                        foreach($row as $field => $value)       {
                                                if (!in_array($field,$nonFields))       {

                                                                // Get TCA configuration for the field:
                                                        $conf = $TCA[$table]['columns'][$field]['config'];

                                                                // Preparation/Processing of the value:
                                                        if ($field=='pid')      {       // "pid" is hardcoded of course:
                                                                $value = $destPid;
                                                        } elseif (isset($overrideValues[$field]))       {       // Override value...
                                                                $value = $overrideValues[$field];
                                                        } elseif (isset($copyAfterFields[$field]))      {       // Copy-after value if available:
                                                                $value = $copyAfterFields[$field];
                                                        } elseif ($TCA[$table]['ctrl']['setToDefaultOnCopy'] && t3lib_div::inList($TCA[$table]['ctrl']['setToDefaultOnCopy'],$field))   {       // Revert to default for some fields:
                                                                $value = $defaultData[$field];
                                                        } else {
                                                                        // Hide at copy may override:
                                                                if ($first && $field==$enableField && $TCA[$table]['ctrl']['hideAtCopy'] && !$this->neverHideAtCopy && !$tE['disableHideAtCopy'])       {
                                                                        $value=1;
                                                                }
                                                                        // Prepend label on copy:
                                                                if ($first && $field==$headerField && $TCA[$table]['ctrl']['prependAtCopy'] && !$tE['disablePrependAtCopy'])    {
                                                                        $value = $this->getCopyHeader($table,$this->resolvePid($table,$destPid),$field,$this->clearPrefixFromValue($table,$value),0);
                                                                }
                                                                        // Processing based on the TCA config field type (files, references, flexforms...)
                                                                $value = $this->copyRecord_procBasedOnFieldType($table,$uid,$field,$value,$row,$conf,$tscPID);
                                                        }

                                                                // Add value to array.
                                                        $data[$table][$theNewID][$field] = $value;
                                                }
                                        }

                                                // Overriding values:
                                        if ($TCA[$table]['ctrl']['editlock'])   {
                                                $data[$table][$theNewID][$TCA[$table]['ctrl']['editlock']] = 0;
                                        }

                                                // Setting original UID:
                                        if ($TCA[$table]['ctrl']['origUid'])    {
                                                $data[$table][$theNewID][$TCA[$table]['ctrl']['origUid']] = $uid;
                                        }

                                                // Do the copy by simply submitting the array through TCEmain:
                                        $copyTCE = t3lib_div::makeInstance('t3lib_TCEmain');
                                        $copyTCE->stripslashes_values = 0;
                                        $copyTCE->copyTree = $this->copyTree;
                                        $copyTCE->cachedTSconfig = $this->cachedTSconfig;       // Copy forth the cached TSconfig
                                        $copyTCE->dontProcessTransformations=1;         // Transformations should NOT be carried out during copy

                                        $copyTCE->start($data,'',$this->BE_USER);
                                        $copyTCE->process_datamap();

                                                // Getting the new UID:
                                        $theNewSQLID = $copyTCE->substNEWwithIDs[$theNewID];
                                        if ($theNewSQLID)       {
                                                $this->copyMappingArray[$table][$origUid] = $theNewSQLID;
                                        }

                                                // Copy back the cached TSconfig
                                        $this->cachedTSconfig = $copyTCE->cachedTSconfig;
                                        $this->errorLog = array_merge($this->errorLog,$copyTCE->errorLog);
                                        unset($copyTCE);

                                        return $theNewSQLID;
                                } else $this->log($table,$uid,3,0,1,'Attempt to copy record that did not exist!');
                        } else $this->log($table,$uid,3,0,1,'Attempt to copy record without permission');
                }
        }

        function copyPages($uid,$destPid)       {

                        // Initialize:
                $uid = intval($uid);
                $destPid = intval($destPid);

                        // Finding list of tables to copy.
                $copyTablesArray = $this->admin ? $this->compileAdminTables() : explode(',',$this->BE_USER->groupData['tables_modify']);        // These are the tables, the user may modify
                if (!strstr($this->copyWhichTables,'*'))        {               // If not all tables are allowed then make a list of allowed tables: That is the tables that figure in both allowed tables AND the copyTable-list
                        foreach($copyTablesArray as $k => $table)       {
                                if (!$table || !t3lib_div::inList($this->copyWhichTables.',pages',$table))      {       // pages are always going...
                                        unset($copyTablesArray[$k]);
                                }
                        }
                }
                $copyTablesArray = array_unique($copyTablesArray);

                        // Begin to copy pages if we're allowed to:
                if ($this->admin || in_array('pages',$copyTablesArray)) {

                                // Copy this page we're on. And set first-flag (this will trigger that the record is hidden if that is configured)!
                        $theNewRootID = $this->copySpecificPage($uid,$destPid,$copyTablesArray,1);

                                // If we're going to copy recursively...:
                        if ($theNewRootID && $this->copyTree)   {

                                        // Get ALL subpages to copy (read-permissions are respected!):
                                $CPtable = $this->int_pageTreeInfo(Array(), $uid, intval($this->copyTree), $theNewRootID);

                                        // Now copying the subpages:
                                foreach($CPtable as $thePageUid => $thePagePid) {
                                        $newPid = $this->copyMappingArray['pages'][$thePagePid];
                                        if (isset($newPid))     {
                                                $this->copySpecificPage($thePageUid,$newPid,$copyTablesArray);
                                        } else {
                                                $this->log('pages',$uid,5,0,1,'Something went wrong during copying branch');
                                                break;
                                        }
                                }
                        }       // else the page was not copied. Too bad...
                } else {
                        $this->log('pages',$uid,5,0,1,'Attempt to copy page without permission to this table');
                }
        }

        function copySpecificPage($uid,$destPid,$copyTablesArray,$first=0)      {
                global $TCA;

                        // Copy the page itself:
                $theNewRootID = $this->copyRecord('pages',$uid,$destPid,$first);

                        // If a new page was created upon the copy operation we will proceed with all the tables ON that page:
                if ($theNewRootID)      {
                        foreach($copyTablesArray as $table)     {
                                if ($table && is_array($TCA[$table]) && $table!='pages')        {       // all records under the page is copied.
                                        $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, 'pid='.intval($uid).$this->deleteClause($table), '', ($TCA[$table]['ctrl']['sortby'] ? $TCA[$table]['ctrl']['sortby'].' DESC' : ''));
                                        while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
                                                $this->copyRecord($table,$row['uid'], $theNewRootID);   // Copying each of the underlying records...
                                        }
                                }
                        }
                        return $theNewRootID;
                }
        }

        function copyRecord_raw($table,$uid,$pid,$overrideArray=array())        {
                global $TCA;

                $uid = intval($uid);
                if ($TCA[$table] && $uid)       {
                        t3lib_div::loadTCA($table);
                        if ($this->doesRecordExist($table,$uid,'show')) {

                                        // Set up fields which should not be processed. They are still written - just passed through no-questions-asked!
                                $nonFields = array('uid','pid','t3ver_id','t3ver_oid','t3ver_wsid','t3ver_label','t3ver_state','t3ver_swapmode','t3ver_count','t3ver_stage','t3ver_tstamp','perms_userid','perms_groupid','perms_user','perms_group','perms_everybody');

                                        // Select main record:
                                $row = $this->recordInfo($table,$uid,'*');
                                if (is_array($row))     {

                                                // Merge in override array.
                                        $row = array_merge($row,$overrideArray);

                                                // Traverse ALL fields of the selected record:
                                        foreach($row as $field => $value)       {
                                                if (!in_array($field,$nonFields))       {

                                                                // Get TCA configuration for the field:
                                                        $conf = $TCA[$table]['columns'][$field]['config'];
                                                        if (is_array($conf))    {
                                                                        // Processing based on the TCA config field type (files, references, flexforms...)
                                                                $value = $this->copyRecord_procBasedOnFieldType($table,$uid,$field,$value,$row,$conf,$pid);
                                                        }

                                                                // Add value to array.
                                                        $row[$field] = $value;
                                                }
                                        }

                                                // Force versioning related fields:
                                        $row['pid'] = $pid;

                                                // Setting original UID:
                                        if ($TCA[$table]['ctrl']['origUid'])    {
                                                $row[$TCA[$table]['ctrl']['origUid']] = $uid;
                                        }

                                                // Do the copy by internal function
                                        $theNewSQLID = $this->insertNewCopyVersion($table,$row,$pid);
                                        if ($theNewSQLID)       {
                                                $this->dbAnalysisStoreExec();
                                                $this->dbAnalysisStore = array();
                                                return $this->copyMappingArray[$table][$uid] = $theNewSQLID;
                                        }
                                } else $this->log($table,$uid,3,0,1,'Attempt to rawcopy/versionize record that did not exist!');
                        } else $this->log($table,$uid,3,0,1,'Attempt to rawcopy/versionize record without copy permission');
                }
        }

        function rawCopyPageContent($old_pid,$new_pid,$copyTablesArray) {
                global $TCA;

                if ($new_pid)   {
                        foreach($copyTablesArray as $table)     {
                                if ($table && is_array($TCA[$table]) && $table!='pages')        {       // all records under the page is copied.
                                        $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, 'pid='.intval($old_pid).$this->deleteClause($table));
                                        while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
                                                $this->copyRecord_raw($table,$row['uid'],$new_pid);     // Copying each of the underlying records (method RAW)
                                        }
                                }
                        }
                }
        }

        function insertNewCopyVersion($table,$fieldArray,$realPid)      {
                global $TCA;

                $id = uniqid('NEW');

                        // $fieldArray is set as current record.
                        // The point is that when new records are created as copies with flex type fields there might be a field containing information about which DataStructure to use and without that information the flexforms cannot be correctly processed.... This should be OK since the $checkValueRecord is used by the flexform evaluation only anyways...
                $this->checkValue_currentRecord = $fieldArray;

                        // Traverse record and input-process each value:
                foreach($fieldArray as $field => $fieldValue)   {
                        if (isset($TCA[$table]['columns'][$field]))     {
                                        // Evaluating the value.
                                $res = $this->checkValue($table,$field,$fieldValue,$id,'new',$realPid,0);
                                if (isset($res['value']))       {
                                        $fieldArray[$field] = $res['value'];
                                }
                        }
                }

                        // System fields being set:
                if ($TCA[$table]['ctrl']['crdate'])     {
                        $fieldArray[$TCA[$table]['ctrl']['crdate']]=time();
                }
                if ($TCA[$table]['ctrl']['cruser_id'])  {
                        $fieldArray[$TCA[$table]['ctrl']['cruser_id']]=$this->userid;
                }
                if ($TCA[$table]['ctrl']['tstamp'])     {
                        $fieldArray[$TCA[$table]['ctrl']['tstamp']]=time();
                }

                        // Finally, insert record:
                $this->insertDB($table,$id,$fieldArray, TRUE);

                        // Return new id:
                return $this->substNEWwithIDs[$id];
        }

        function copyRecord_procBasedOnFieldType($table,$uid,$field,$value,$row,$conf,$realDestPid)     {
                global $TCA;

                        // Process references and files, currently that means only the files, prepending absolute paths (so the TCEmain engine will detect the file as new and one that should be made into a copy)
                $value = $this->copyRecord_procFilesRefs($conf, $uid, $value);
                $inlineSubType = $this->getInlineFieldType($conf);

                        // Register if there are references to take care of or MM is used on an inline field (no change to value):
                if ($this->isReferenceField($conf) || $inlineSubType == 'mm')   {
                        $allowedTables = $conf['type']=='group' ? $conf['allowed'] : $conf['foreign_table'].','.$conf['neg_foreign_table'];
                        $prependName = $conf['type']=='group' ? $conf['prepend_tname'] : $conf['neg_foreign_table'];
                        if ($conf['MM'])        {
                                $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                                $dbAnalysis->start('', $allowedTables, $conf['MM'], $uid, $table, $conf);
                                $value = implode(',',$dbAnalysis->getValueArray($prependName));
                        }
                        if ($value)     {       // Setting the value in this array will notify the remapListedDBRecords() function that this field MAY need references to be corrected
                                $this->registerDBList[$table][$uid][$field] = $value;
                        }

                        // if another inline subtype is used (foreign_field, mm with attributes or simply item list)
                } elseif ($inlineSubType !== false) {
                        $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                        $dbAnalysis->start($value, $conf['foreign_table'], $conf['MM'], $uid, $table, $conf);

                                // walk through the items, copy them and remember the new id
                        foreach ($dbAnalysis->itemArray as $k => $v) {
                                        // Take the real positive integer if available:
                                if (t3lib_div::testInt($realDestPid) && $realDestPid >= 0) {
                                        $childDestPid = $realDestPid;
                                        // If the $realDestPid is not a valid integer or negative (e.g. workspaces):
                                        // @TODO: Check again concerning workspaces
                                } else {
                                        $childDestPid = -$v['id'];
                                }
                                $newId = $this->copyRecord($v['table'], $v['id'], $childDestPid);
                                $dbAnalysis->itemArray[$k]['id'] = $newId;
                        }

                                // store the new values, we will set up the uids for the subtype later on
                        $value = implode(',',$dbAnalysis->getValueArray());
                        $this->registerDBList[$table][$uid][$field] = $value;
                }

                        // For "flex" fieldtypes we need to traverse the structure for two reasons: If there are file references they have to be prepended with absolute paths and if there are database reference they MIGHT need to be remapped (still done in remapListedDBRecords())
                if ($conf['type']=='flex')      {

                                // Get current value array:
                        $dataStructArray = t3lib_BEfunc::getFlexFormDS($conf, $row, $table);
                        $currentValueArray = t3lib_div::xml2array($value);

                                // Traversing the XML structure, processing files:
                        if (is_array($currentValueArray))       {
                                $currentValueArray['data'] = $this->checkValue_flex_procInData(
                                                        $currentValueArray['data'],
                                                        array(),        // Not used.
                                                        array(),        // Not used.
                                                        $dataStructArray,
                                                        array($table,$uid,$field),      // Parameters.
                                                        'copyRecord_flexFormCallBack'
                                                );
                                $value = $currentValueArray;    // Setting value as an array! -> which means the input will be processed according to the 'flex' type when the new copy is created.
                        }
                }

                return $value;
        }

        function copyRecord_flexFormCallBack($pParams, $dsConf, $dataValue, $dataValue_ext1, $dataValue_ext2)   {

                        // Extract parameters:
                list($table, $uid, $field) = $pParams;

                        // Process references and files, currently that means only the files, prepending absolute paths:
                $dataValue = $this->copyRecord_procFilesRefs($dsConf, $uid, $dataValue);

                        // If references are set for this field, set flag so they can be corrected later (in ->remapListedDBRecords())
                if ($this->isReferenceField($dsConf) && strlen($dataValue)) {
                        $this->registerDBList[$table][$uid][$field] = 'FlexForm_reference';
                }

                        // Return
                return array('value' => $dataValue);
        }

        function copyRecord_procFilesRefs($conf, $uid, $value)  {

                        // Prepend absolute paths to files:
                if ($conf['type']=='group' && $conf['internal_type']=='file')   {

                                // Get an array with files as values:
                        if ($conf['MM'])        {
                                $theFileValues = array();

                                $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                                $dbAnalysis->start('', 'files', $conf['MM'], $uid);

                                foreach($dbAnalysis->itemArray as $somekey => $someval) {
                                        if ($someval['id'])     {
                                                $theFileValues[] = $someval['id'];
                                        }
                                }
                        } else {
                                $theFileValues = t3lib_div::trimExplode(',',$value,1);
                        }

                                // Traverse this array of files:
                        $uploadFolder = $conf['uploadfolder'];
                        $dest = $this->destPathFromUploadFolder($uploadFolder);
                        $newValue = array();

                        foreach($theFileValues as $file)        {
                                if (trim($file))        {
                                        $realFile = $dest.'/'.trim($file);
                                        if (@is_file($realFile))        {
                                                $newValue[] = $realFile;
                                        }
                                }
                        }

                                // Implode the new filelist into the new value (all files have absolute paths now which means they will get copied when entering TCEmain as new values...)
                        $value = implode(',',$newValue);
                }

                        // Return the new value:
                return $value;
        }













        /*********************************************
         *
         * Cmd: Moving, Localizing
         *
         ********************************************/

        function moveRecord($table,$uid,$destPid)       {
                global $TCA, $TYPO3_CONF_VARS;

                if ($TCA[$table])       {

                                // Prepare user defined objects (if any) for hooks which extend this function:
                        $hookObjectsArr = array();
                        if (is_array ($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['moveRecordClass'])) {
                                foreach ($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['moveRecordClass'] as $classRef) {
                                        $hookObjectsArr[] = &t3lib_div::getUserObj($classRef);
                                }
                        }

                                // In case the record to be moved turns out to be an offline version, we have to find the live version and work on that one (this case happens for pages with "branch" versioning type)
                        if ($lookForLiveVersion = t3lib_BEfunc::getLiveVersionOfRecord($table,$uid,'uid'))      {
                                $uid = $lookForLiveVersion['uid'];
                        }

                                // Get workspace version of the source record, if any:
                        $WSversion = t3lib_BEfunc::getWorkspaceVersionOfRecord($this->BE_USER->workspace, $table, $uid, 'uid,t3ver_oid');

                                // Initialize:
                        $sortRow = $TCA[$table]['ctrl']['sortby'];
                        $destPid = intval($destPid);
                        $origDestPid = $destPid;

                        $propArr = $this->getRecordProperties($table,$uid);     // Get this before we change the pid (for logging)
                        $moveRec = $this->getRecordProperties($table,$uid,TRUE);
                        $resolvedPid = $this->resolvePid($table,$destPid);      // This is the actual pid of the moving to destination

                                // Finding out, if the record may be moved from where it is. If the record is a non-page, then it depends on edit-permissions.
                                // If the record is a page, then there are two options: If the page is moved within itself, (same pid) it's edit-perms of the pid. If moved to another place then its both delete-perms of the pid and new-page perms on the destination.
                        if ($table!='pages' || $resolvedPid==$moveRec['pid'])   {
                                $mayMoveAccess = $this->checkRecordUpdateAccess($table,$uid);   // Edit rights for the record...
                        } else {
                                $mayMoveAccess = $this->doesRecordExist($table,$uid,'delete');
                        }

                                // Finding out, if the record may be moved TO another place. Here we check insert-rights (non-pages = edit, pages = new), unless the pages are moved on the same pid, then edit-rights are checked
                        if ($table!='pages' || $resolvedPid!=$moveRec['pid'])   {
                                $mayInsertAccess = $this->checkRecordInsertAccess($table,$resolvedPid,4);       // Insert rights for the record...
                        } else {
                                $mayInsertAccess = $this->checkRecordUpdateAccess($table,$uid);
                        }

                                // Check workspace permissions:
                        $workspaceAccessBlocked = array();
                        $recIsNewVersion = !strcmp($moveRec['_ORIG_pid'],'') && (int)$moveRec['t3ver_state']==1;        // Element was an online version AND it was in "New state" so it can be moved...
                        $destRes = $this->BE_USER->workspaceAllowLiveRecordsInPID($resolvedPid,$table);
                                // Workspace source check:
                        if ($errorCode = $this->BE_USER->workspaceCannotEditRecord($table, $WSversion['uid'] ? $WSversion['uid'] : $uid))       {
                                $workspaceAccessBlocked['src1']='Record could not be edited in workspace: '.$errorCode.' ';
                        } else {
                                if (!$recIsNewVersion && $this->BE_USER->workspaceAllowLiveRecordsInPID($moveRec['pid'],$table)<=0)     {
                                        $workspaceAccessBlocked['src2']='Could not remove record from table "'.$table.'" from its page "'.$moveRec['pid'].'" ';
                                }
                        }
                                // Workspace destination check:
                        if (!($destRes>0 || ($recIsNewVersion && !$destRes)))   {       // All records can be inserted if $destRes is greater than zero. Only new versions can be inserted if $destRes is false. NO RECORDS can be inserted if $destRes is negative which indicates a stage not allowed for use.
                                $workspaceAccessBlocked['dest1']='Could not insert record from table "'.$table.'" in destination PID "'.$resolvedPid.'" ';
                        } elseif ($destRes==1 && $WSversion['uid'])     {
                                $workspaceAccessBlocked['dest2']='Could not insert other versions in destination PID ';
                        }

                                // Checking if the pid is negative, but no sorting row is defined. In that case, find the correct pid. Basically this check make the error message 4-13 meaning less... But you can always remove this check if you prefer the error instead of a no-good action (which is to move the record to its own page...)
                        if (($destPid<0 && !$sortRow) || $destPid>=0)   {       // $destPid>=0 because we must correct pid in case of versioning "page" types.
                                $destPid = $resolvedPid;
                        }

                                // Timestamp field:
                        $updateFields = array();
                        if ($TCA[$table]['ctrl']['tstamp'])     {
                                $updateFields[$TCA[$table]['ctrl']['tstamp']] = time();
                        }

                                        // If moving is allowed, begin the processing:
                        if (!count($workspaceAccessBlocked))    {
                                if ($mayMoveAccess)     {
                                        if ($destPid>=0)        {       // insert as first element on page (where uid = $destPid)
                                                if ($mayInsertAccess)   {
                                                        if ($table!='pages' || $this->destNotInsideSelf($destPid,$uid)) {
                                                                $this->clear_cache($table,$uid);        // clear cache before moving

                                                                $updateFields['pid'] = $destPid;        // Setting PID

                                                                        // table is sorted by 'sortby'
                                                                if ($sortRow)   {
                                                                        $sortNumber = $this->getSortNumber($table,$uid,$destPid);
                                                                        $updateFields[$sortRow] = $sortNumber;
                                                                }

                                                                        // check for child records that have also to be moved
                                                                $this->moveRecord_procFields($table,$uid,$destPid);
                                                                        // Create query for update:
                                                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($uid), $updateFields);

                                                                        // Call post processing hooks:
                                                                foreach($hookObjectsArr as $hookObj) {
                                                                        if (method_exists($hookObj, 'moveRecord_firstElementPostProcess')) {
                                                                                $hookObj->moveRecord_firstElementPostProcess($table, $uid, $destPid, $moveRec, $updateFields, $this);
                                                                        }
                                                                }

                                                                        // Logging...
                                                                $newPropArr = $this->getRecordProperties($table,$uid);
                                                                $oldpagePropArr = $this->getRecordProperties('pages',$propArr['pid']);
                                                                $newpagePropArr = $this->getRecordProperties('pages',$destPid);

                                                                if ($destPid!=$propArr['pid'])  {
                                                                        $this->log($table,$uid,4,$destPid,0,"Moved record '%s' (%s) to page '%s' (%s)",2,array($propArr['header'],$table.':'.$uid, $newpagePropArr['header'], $newPropArr['pid']),$propArr['pid']);     // Logged to old page
                                                                        $this->log($table,$uid,4,$destPid,0,"Moved record '%s' (%s) from page '%s' (%s)",3,array($propArr['header'],$table.':'.$uid, $oldpagePropArr['header'], $propArr['pid']),$destPid);     // Logged to new page
                                                                } else {
                                                                        $this->log($table,$uid,4,$destPid,0,"Moved record '%s' (%s) on page '%s' (%s)",4,array($propArr['header'],$table.':'.$uid, $oldpagePropArr['header'], $propArr['pid']),$destPid);       // Logged to new page
                                                                }
                                                                $this->clear_cache($table,$uid);        // clear cache after moving
                                                                $this->fixUniqueInPid($table,$uid);
                                                                        // fixCopyAfterDuplFields
                                                                if ($origDestPid<0)     {$this->fixCopyAfterDuplFields($table,$uid,abs($origDestPid),1);}       // origDestPid is retrieve before it may possibly be converted to resolvePid if the table is not sorted anyway. In this way, copying records to after another records which are not sorted still lets you use this function in order to copy fields from the one before.
                                                        } else {
                                                                $destPropArr = $this->getRecordProperties('pages',$destPid);
                                                                $this->log($table,$uid,4,0,1,"Attempt to move page '%s' (%s) to inside of its own rootline (at page '%s' (%s))",10,array($propArr['header'],$uid, $destPropArr['header'], $destPid),$propArr['pid']);
                                                        }
                                                }
                                        } else {        // Put after another record
                                                if ($sortRow)   {       // table is being sorted
                                                        $sortInfo = $this->getSortNumber($table,$uid,$destPid);
                                                        $destPid = $sortInfo['pid'];    // Setting the destPid to the new pid of the record.
                                                        if (is_array($sortInfo))        {       // If not an array, there was an error (which is already logged)
                                                                if ($mayInsertAccess)   {
                                                                        if ($table!='pages' || $this->destNotInsideSelf($destPid,$uid)) {
                                                                                $this->clear_cache($table,$uid);        // clear cache before moving

                                                                                        // We now update the pid and sortnumber
                                                                                $updateFields['pid'] = $destPid;
                                                                                $updateFields[$sortRow] = $sortInfo['sortNumber'];

                                                                                        // check for child records that have also to be moved
                                                                                $this->moveRecord_procFields($table,$uid,$destPid);
                                                                                        // Create query for update:
                                                                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($uid), $updateFields);

                                                                                        // Call post processing hooks:
                                                                                foreach($hookObjectsArr as $hookObj) {
                                                                                        if (method_exists($hookObj, 'moveRecord_afterAnotherElementPostProcess')) {
                                                                                                $hookObj->moveRecord_afterAnotherElementPostProcess($table, $uid, $destPid, $origDestPid, $moveRec, $updateFields, $this);
                                                                                        }
                                                                                }

                                                                                        // Logging...
                                                                                $newPropArr = $this->getRecordProperties($table,$uid);
                                                                                $oldpagePropArr = $this->getRecordProperties('pages',$propArr['pid']);
                                                                                if ($destPid!=$propArr['pid'])  {
                                                                                        $newpagePropArr = $this->getRecordProperties('pages',$destPid);
                                                                                        $this->log($table,$uid,4,0,0,"Moved record '%s' (%s) to page '%s' (%s)",2,array($propArr['header'],$table.':'.$uid, $newpagePropArr['header'], $newPropArr['pid']),$propArr['pid']);    // Logged to old page
                                                                                        $this->log($table,$uid,4,0,0,"Moved record '%s' (%s) from page '%s' (%s)",3,array($propArr['header'],$table.':'.$uid, $oldpagePropArr['header'], $propArr['pid']),$destPid);    // Logged to new page
                                                                                } else {
                                                                                        $this->log($table,$uid,4,0,0,"Moved record '%s' (%s) on page '%s' (%s)",4,array($propArr['header'],$table.':'.$uid, $oldpagePropArr['header'], $propArr['pid']),$destPid);      // Logged to new page
                                                                                }

                                                                                        // clear cache after moving
                                                                                $this->clear_cache($table,$uid);

                                                                                        // fixUniqueInPid
                                                                                $this->fixUniqueInPid($table,$uid);

                                                                                        // fixCopyAfterDuplFields
                                                                                if ($origDestPid<0)     {$this->fixCopyAfterDuplFields($table,$uid,abs($origDestPid),1);}
                                                                        } else {
                                                                                $destPropArr = $this->getRecordProperties('pages',$destPid);
                                                                                $this->log($table,$uid,4,0,1,"Attempt to move page '%s' (%s) to inside of its own rootline (at page '%s' (%s))",10,array($propArr['header'],$uid, $destPropArr['header'], $destPid),$propArr['pid']);
                                                                        }
                                                                }
                                                        }
                                                } else {
                                                        $this->log($table,$uid,4,0,1,"Attempt to move record '%s' (%s) to after another record, although the table has no sorting row.",13,array($propArr['header'],$table.':'.$uid),$propArr['event_pid']);
                                                }
                                        }
                                } else {
                                        $this->log($table,$uid,4,0,1,"Attempt to move record '%s' (%s) without having permissions to do so",14,array($propArr['header'],$table.':'.$uid),$propArr['event_pid']);
                                }
                        } else {
                                $this->newlog("Move attempt failed due to workspace restrictions: ".implode(' ',$workspaceAccessBlocked),1);
                        }
                }
        }

        function moveRecord_procFields($table,$uid,$destPid) {
                t3lib_div::loadTCA($table);
                $conf = $GLOBALS['TCA'][$table]['columns'];
                $row = t3lib_BEfunc::getRecordWSOL($table,$uid);
                foreach ($row as $field => $value) {
                        $this->moveRecord_procBasedOnFieldType($table,$uid,$destPid,$field,$value,$conf[$field]['config']);
                }
        }

        function moveRecord_procBasedOnFieldType($table,$uid,$destPid,$field,$value,$conf) {
                $moveTable = '';
                $moveIds = array();

                if ($conf['type'] == 'inline')  {
                        $foreign_table = $conf['foreign_table'];

                        if ($foreign_table) {
                                $inlineType = $this->getInlineFieldType($conf);
                                if ($inlineType == 'list' || $inlineType == 'field') {
                                        $moveTable = $foreign_table;
                                        $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                                        $dbAnalysis->start($value, $conf['foreign_table'], '', $uid, $table, $conf);
                                }
                        }
                }

                        // move the records
                if (isset($dbAnalysis)) {
                        foreach ($dbAnalysis->itemArray as $v) {
                                $this->moveRecord($v['table'],$v['id'],$destPid);
                        }
                }
        }

        function localize($table,$uid,$language)        {
                global $TCA;

                $uid = intval($uid);

                if ($TCA[$table] && $uid)       {
                        t3lib_div::loadTCA($table);

                        if (($TCA[$table]['ctrl']['languageField'] && $TCA[$table]['ctrl']['transOrigPointerField'] && !$TCA[$table]['ctrl']['transOrigPointerTable']) || $table==='pages')     {
                                if ($langRec = t3lib_BEfunc::getRecord('sys_language',intval($language),'uid,title'))   {
                                        if ($this->doesRecordExist($table,$uid,'show')) {

                                                $row = t3lib_BEfunc::getRecordWSOL($table,$uid);        // Getting workspace overlay if possible - this will localize versions in workspace if any
                                                if (is_array($row))     {
                                                        if ($row[$TCA[$table]['ctrl']['languageField']] <= 0 || $table==='pages')       {
                                                                if ($row[$TCA[$table]['ctrl']['transOrigPointerField']] == 0 || $table==='pages')       {
                                                                        if ($table==='pages')   {
                                                                                $pass = $TCA[$table]['ctrl']['transForeignTable']==='pages_language_overlay' && !t3lib_BEfunc::getRecordsByField('pages_language_overlay','pid',$uid,' AND '.$TCA['pages_language_overlay']['ctrl']['languageField'].'='.intval($langRec['uid']));
                                                                                $Ttable = 'pages_language_overlay';
                                                                                t3lib_div::loadTCA($Ttable);
                                                                        } else {
                                                                                $pass = !t3lib_BEfunc::getRecordsByField($table,$TCA[$table]['ctrl']['transOrigPointerField'],$uid,'AND pid='.intval($row['pid']).' AND '.$TCA[$table]['ctrl']['languageField'].'='.intval($langRec['uid']));
                                                                                $Ttable = $table;
                                                                        }

                                                                        if ($pass)      {

                                                                                        // Initialize:
                                                                                $overrideValues = array();
                                                                                $excludeFields = array();

                                                                                        // Set override values:
                                                                                $overrideValues[$TCA[$Ttable]['ctrl']['languageField']] = $langRec['uid'];
                                                                                $overrideValues[$TCA[$Ttable]['ctrl']['transOrigPointerField']] = $uid;

                                                                                        // Set exclude Fields:
                                                                                foreach($TCA[$Ttable]['columns'] as $fN => $fCfg)       {
                                                                                        if ($fCfg['l10n_mode']=='prefixLangTitle')      {       // Check if we are just prefixing:
                                                                                                if (($fCfg['config']['type']=='text' || $fCfg['config']['type']=='input') && strlen($row[$fN])) {
                                                                                                        list($tscPID) = t3lib_BEfunc::getTSCpid($table,$uid,'');
                                                                                                        $TSConfig = $this->getTCEMAIN_TSconfig($tscPID);

                                                                                                        if (isset($TSConfig['translateToMessage']) && strlen($TSConfig['translateToMessage']))  {
                                                                                                                $translateToMsg = @sprintf($TSConfig['translateToMessage'], $langRec['title']);
                                                                                                        }
                                                                                                        if (!strlen($translateToMsg))   {
                                                                                                                $translateToMsg = 'Translate to '.$langRec['title'].':';
                                                                                                        }

                                                                                                        $overrideValues[$fN] = '['.$translateToMsg.'] '.$row[$fN];
                                                                                                }
                                                                                        } elseif (t3lib_div::inList('exclude,noCopy,mergeIfNotBlank',$fCfg['l10n_mode']) && $fN!=$TCA[$Ttable]['ctrl']['languageField'] && $fN!=$TCA[$Ttable]['ctrl']['transOrigPointerField']) {        // Otherwise, do not copy field (unless it is the language field or pointer to the original language)
                                                                                                $excludeFields[] = $fN;
                                                                                        }
                                                                                }

                                                                                if ($Ttable === $table) {

                                                                                                // Execute the copy:
                                                                                        $this->copyRecord($table,$uid,-$uid,1,$overrideValues,implode(',',$excludeFields));
                                                                                } else {

                                                                                                // Create new record:
                                                                                        $copyTCE = t3lib_div::makeInstance('t3lib_TCEmain');
                                                                                        $copyTCE->stripslashes_values = 0;
                                                                                        $copyTCE->cachedTSconfig = $this->cachedTSconfig;       // Copy forth the cached TSconfig
                                                                                        $copyTCE->dontProcessTransformations=1;         // Transformations should NOT be carried out during copy

                                                                                        $copyTCE->start(array($Ttable=>array('NEW'=>$overrideValues)),'',$this->BE_USER);
                                                                                        $copyTCE->process_datamap();

                                                                                                // Getting the new UID as if it had been copied:
                                                                                        $theNewSQLID = $copyTCE->substNEWwithIDs['NEW'];
                                                                                        if ($theNewSQLID)       {
                                                                                                        // If is by design that $Ttable is used and not $table! See "l10nmgr" extension. Could be debated, but this is what I chose for this "pseudo case"
                                                                                                $this->copyMappingArray[$Ttable][$uid] = $theNewSQLID;
                                                                                        }
                                                                                }
                                                                        } else $this->newlog('Localization failed; There already was a localization for this language of the record!',1);
                                                                } else $this->newlog('Localization failed; Source record contained a reference to an original default record (which is strange)!',1);
                                                        } else $this->newlog('Localization failed; Source record had another language than "Default" or "All" defined!',1);
                                                } else $this->newlog('Attempt to localize record that did not exist!',1);
                                        } else $this->newlog('Attempt to localize record without permission',1);
                                } else $this->newlog('Sys language UID "'.$language.'" not found valid!',1);
                        } else $this->newlog('Localization failed; "languageField" and "transOrigPointerField" must be defined for the table!',1);
                }
        }














        /*********************************************
         *
         * Cmd: Deleting
         *
         ********************************************/

        function deleteAction($table, $id)      {
                global $TCA;

                $delRec = t3lib_BEfunc::getRecord($table, $id);

                if (is_array($delRec))  {       // Record asked to be deleted was found:

                                // For Live version, try if there is a workspace version because if so, rather "delete" that instead
                        if ($delRec['pid']!=-1) {       // Look, if record is an offline version, then delete directly:
                                if ($wsVersion = t3lib_BEfunc::getWorkspaceVersionOfRecord($this->BE_USER->workspace, $table, $id))     {
                                        $delRec = $wsVersion;
                                        $id = $delRec['uid'];
                                }
                        }

                        if ($delRec['pid']==-1) {       // Look, if record is an offline version, then delete directly:
                                if ($TCA[$table]['ctrl']['versioningWS'])       {
                                        if ($this->BE_USER->workspace==0 || (int)$delRec['t3ver_wsid']==$this->BE_USER->workspace)      {       // In Live workspace, delete any. In other workspaces there must be match.
                                                $liveRec = t3lib_BEfunc::getLiveVersionOfRecord($table,$id,'uid,t3ver_state');

                                                if ($delRec['t3ver_wsid']==0 || (int)$liveRec['t3ver_state']!==1)       {       // Delete those in WS 0 + if their live records state was not "Placeholder".
                                                        $this->deleteEl($table, $id);
                                                } else {        // If live record was placeholder, rather clear it from workspace (because it clears both version and placeholder).
                                                        $this->version_clearWSID($table,$id);
                                                }
                                        } else $this->newlog('Tried to delete record from another workspace',1);
                                } else $this->newlog('Versioning not enabled for record with PID = -1!',2);
                        } elseif ($res = $this->BE_USER->workspaceAllowLiveRecordsInPID($delRec['pid'], $table))        {       // Look, if record is "online" or in a versionized branch, then delete directly.
                                if ($res>0)     {
                                        $this->deleteEl($table, $id);
                                } else $this->newlog('Stage of root point did not allow for deletion',1);
                        } else {
                                // Otherwise, try to delete by versionization:
                                $this->versionizeRecord($table,$id,'DELETED!',TRUE);
                        }
                }
        }

        function deleteEl($table, $uid, $noRecordCheck=FALSE, $forceHardDelete=FALSE)   {
                if ($table == 'pages')  {
                        $this->deletePages($uid, $noRecordCheck, $forceHardDelete);
                } else {
                        $this->deleteVersionsForRecord($table,$uid,$forceHardDelete);
                        $this->deleteRecord($table, $uid, $noRecordCheck, $forceHardDelete);
                }
        }

        function deleteVersionsForRecord($table, $uid, $forceHardDelete)        {
                $versions = t3lib_BEfunc::selectVersionsOfRecord($table, $uid, 'uid,pid');
                if (is_array($versions))        {
                        foreach($versions as $verRec)   {
                                if (!$verRec['_CURRENT_VERSION'])       {
                                        if ($table == 'pages')  {
                                                $this->deletePages($verRec['uid'], TRUE, $forceHardDelete);
                                        } else {
                                                $this->deleteRecord($table, $verRec['uid'], TRUE, $forceHardDelete);
                                        }
                                }
                        }
                }
        }

        function undeleteRecord($table,$uid)    {
                $this->deleteRecord($table,$uid,TRUE,FALSE,TRUE);
        }

        function deleteRecord($table,$uid, $noRecordCheck=FALSE, $forceHardDelete=FALSE,$undeleteRecord=FALSE)  {
                global $TCA;

                $uid = intval($uid);
                if ($TCA[$table] && $uid)       {
                        if ($noRecordCheck || $this->doesRecordExist($table,$uid,'delete'))     {
                                $this->clear_cache($table,$uid);        // clear cache before deleting the record, else the correct page cannot be identified by clear_cache

                                $propArr = $this->getRecordProperties($table, $uid);
                                $pagePropArr = $this->getRecordProperties('pages', $propArr['pid']);

                                $deleteRow = $TCA[$table]['ctrl']['delete'];
                                if ($deleteRow && !$forceHardDelete)    {
                                        $value = $undeleteRecord ? 0 : 1;
                                        $updateFields = array(
                                                $deleteRow => $value
                                        );

                                        if ($TCA[$table]['ctrl']['tstamp']) {
                                                $updateFields[$TCA[$table]['ctrl']['tstamp']] = time();
                                        }

                                                // If the table is sorted, then the sorting number is set very high
                                        if ($TCA[$table]['ctrl']['sortby'] && !$undeleteRecord) {
                                                $updateFields[$TCA[$table]['ctrl']['sortby']] = 1000000000;
                                        }

                                                // before (un-)deleting this record, check for child records or references
                                        $this->deleteRecord_procFields($table, $uid, $undeleteRecord);
                                        $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($uid), $updateFields);
                                } else {

                                                // Fetches all fields with flexforms and look for files to delete:
                                        t3lib_div::loadTCA($table);
                                        foreach($TCA[$table]['columns'] as $fieldName => $cfg)  {
                                                $conf = $cfg['config'];

                                                switch($conf['type'])   {
                                                        case 'flex':
                                                                $flexObj = t3lib_div::makeInstance('t3lib_flexformtools');
                                                                $flexObj->traverseFlexFormXMLData($table,$fieldName,t3lib_BEfunc::getRecordRaw($table,'uid='.intval($uid)),$this,'deleteRecord_flexFormCallBack');
                                                        break;
                                                }
                                        }

                                                // Fetches all fields that holds references to files
                                        $fileFieldArr = $this->extFileFields($table);
                                        if (count($fileFieldArr))       {
                                                $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery(implode(',',$fileFieldArr), $table, 'uid='.intval($uid));
                                                if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))        {
                                                        $fArray = $fileFieldArr;
                                                        foreach($fArray as $theField)   {       // MISSING: Support for MM file relations!
                                                                $this->extFileFunctions($table,$theField,$row[$theField],'deleteAll');          // This deletes files that belonged to this record.
                                                        }
                                                } else {
                                                        $this->log($table,$uid,3,0,100,'Delete: Zero rows in result when trying to read filenames from record which should be deleted');
                                                }
                                        }

                                                // Delete the hard way...:
                                        $GLOBALS['TYPO3_DB']->exec_DELETEquery($table, 'uid='.intval($uid));
                                }

                                $state = $undeleteRecord ? 1 : 3;       // 1 means insert, 3 means delete
                                if (!$GLOBALS['TYPO3_DB']->sql_error()) {
                                        if ($forceHardDelete) {
                                                $message = "Record '%s' (%s) was deleted unrecoverable from page '%s' (%s)";
                                        }
                                        else {
                                                $message = $state == 1 ?
                                                        "Record '%s' (%s) was restored on page '%s' (%s)" :
                                                        "Record '%s' (%s) was deleted from page '%s' (%s)";
                                        }
                                        $this->log($table, $uid, $state, 0, 0,
                                                                $message, 0,
                                                                array(
                                                                        $propArr['header'],
                                                                        $table.':'.$uid,
                                                                        $pagePropArr['header'],
                                                                        $propArr['pid']
                                                                        ),
                                                                $propArr['pid']);

                                } else {
                                        $this->log($table,$uid,$state,0,100,$GLOBALS['TYPO3_DB']->sql_error());
                                }

                                        // Update reference index:
                                $this->updateRefIndex($table,$uid);

                                        // if there are entries in the updateRefIndexStack
                                if (is_array($this->updateRefIndexStack[$table]) && is_array($this->updateRefIndexStack[$table][$uid])) {
                                        while ($args = array_pop($this->updateRefIndexStack[$table][$uid])) {
                                                        // $args[0]: table, $args[1]: uid
                                                $this->updateRefIndex($args[0], $args[1]);
                                        }
                                        unset($this->updateRefIndexStack[$table][$uid]);
                                }

                        } else $this->log($table,$uid,3,0,1,'Attempt to delete record without delete-permissions');
                }
        }

        function deleteRecord_flexFormCallBack($dsArr, $dataValue, $PA, $structurePath, &$pObj) {

                        // Use reference index object to find files in fields:
                $refIndexObj = t3lib_div::makeInstance('t3lib_refindex');
                $files = $refIndexObj->getRelations_procFiles($dataValue, $dsArr['TCEforms']['config'], $PA['uid']);

                        // Traverse files and delete them:
                if (is_array($files))   {
                        foreach($files as $dat) {
                                if (@is_file($dat['ID_absFile']))       {
                                        unlink ($dat['ID_absFile']);
#echo 'DELETE FlexFormFile:'.$dat['ID_absFile'].chr(10);
                                } else {
                                        $this->log($table,0,3,0,100,"Delete: Referenced file '".$dat['ID_absFile']."' that was supposed to be deleted together with it's record didn't exist");
                                }
                        }
                }
        }

        function deletePages($uid,$force=FALSE,$forceHardDelete=FALSE)  {
                        // Getting list of pages to delete:
                if ($force)     {
                        $brExist = $this->doesBranchExist('',$uid,0,1);         // returns the branch WITHOUT permission checks (0 secures that)
                        $res = t3lib_div::trimExplode(',',$brExist.$uid,1);
                } else {
                        $res = $this->canDeletePage($uid);
                }

                        // Perform deletion if not error:
                if (is_array($res))     {
                        foreach($res as $deleteId)      {
                                $this->deleteSpecificPage($deleteId,$forceHardDelete);
                        }
                } else {
                        $this->newlog($res,1);
                }
        }

        function deleteSpecificPage($uid,$forceHardDelete=FALSE)        {
                global $TCA;
                reset ($TCA);
                $uid = intval($uid);
                if ($uid)       {
                        while (list($table)=each($TCA)) {
                                if ($table!='pages')    {
                                        $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, 'pid='.intval($uid).$this->deleteClause($table));
                                        while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
                                                $this->deleteVersionsForRecord($table,$row['uid'],$forceHardDelete);
                                                $this->deleteRecord($table,$row['uid'], TRUE, $forceHardDelete);
                                        }
                                }
                        }
                        $this->deleteVersionsForRecord('pages',$uid,$forceHardDelete);
                        $this->deleteRecord('pages',$uid, TRUE, $forceHardDelete);
                }
        }

        function canDeletePage($uid)    {
                if ($this->doesRecordExist('pages',$uid,'delete'))      {       // If we may at all delete this page
                        if ($this->deleteTree)  {
                                $brExist = $this->doesBranchExist('',$uid,$this->pMap['delete'],1);     // returns the branch
                                if ($brExist != -1)     {       // Checks if we had permissions
                                        if ($this->noRecordsFromUnallowedTables($brExist.$uid)) {
                                                return t3lib_div::trimExplode(',',$brExist.$uid,1);
                                        } else return 'Attempt to delete records from disallowed tables';
                                } else return 'Attempt to delete pages in branch without permissions';
                        } else {
                                $brExist = $this->doesBranchExist('',$uid,$this->pMap['delete'],1);     // returns the branch
                                if ($brExist == '')     {       // Checks if branch exists
                                        if ($this->noRecordsFromUnallowedTables($uid))  {
                                                return array($uid);
                                        } else return 'Attempt to delete records from disallowed tables';
                                } else return 'Attempt to delete page which has subpages';
                        }
                } else return 'Attempt to delete page without permissions';
        }

        function cannotDeleteRecord($table,$id) {
                if ($table==='pages')   {
                        $res = $this->canDeletePage($id);
                        return is_array($res) ? FALSE : $res;
                } else {
                        return $this->doesRecordExist($table,$id,'delete') ? FALSE : 'No permission to delete record';
                }
        }

        function deleteRecord_procFields($table, $uid, $undeleteRecord = false) {
                t3lib_div::loadTCA($table);
                $conf = $GLOBALS['TCA'][$table]['columns'];
                $row = t3lib_BEfunc::getRecord($table, $uid, '*', '', false);

                foreach ($row as $field => $value) {
                        $this->deleteRecord_procBasedOnFieldType($table, $uid, $field, $value, $conf[$field]['config'], $undeleteRecord);
                }
        }

        function deleteRecord_procBasedOnFieldType($table, $uid, $field, $value, $conf, $undeleteRecord = false) {
                if ($conf['type'] == 'inline')  {
                        $foreign_table = $conf['foreign_table'];

                        if ($foreign_table) {
                                $inlineType = $this->getInlineFieldType($conf);
                                if ($inlineType == 'list' || $inlineType == 'field') {
                                        $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                                        $dbAnalysis->start($value, $conf['foreign_table'], '', $uid, $table, $conf);
                                        $dbAnalysis->undeleteRecord = true;

                                                // walk through the items and remove them
                                        foreach ($dbAnalysis->itemArray as $v) {
                                                if (!$undeleteRecord)   {
                                                        $this->deleteAction($v['table'], $v['id']);
                                                } else {
                                                        $this->undeleteRecord($v['table'], $v['id']);
                                                }
                                        }
                                }
                        }

                        // no delete action but calls to updateRefIndex *AFTER* this record was deleted
                } elseif ($this->isReferenceField($conf)) {
                        $allowedTables = $conf['type']=='group' ? $conf['allowed'] : $conf['foreign_table'].','.$conf['neg_foreign_table'];
                        $prependName = $conf['type']=='group' ? $conf['prepend_tname'] : $conf['neg_foreign_table'];

                        $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                        $dbAnalysis->start($value, $allowedTables, $conf['MM'], $uid, $table, $conf);

                        foreach ($dbAnalysis->itemArray as $v) {
                                $this->updateRefIndexStack[$table][$uid][] = array($v['table'], $v['id']);
                        }
                }
        }








        /*********************************************
         *
         * Cmd: Versioning
         *
         ********************************************/

        function versionizeRecord($table,$id,$label,$delete=FALSE,$versionizeTree=-1)   {
                global $TCA;

                $id = intval($id);

                if ($TCA[$table] && $TCA[$table]['ctrl']['versioningWS'] && $id>0)      {
                        if ($this->doesRecordExist($table,$id,'show'))  {
                                if ($this->BE_USER->workspaceVersioningTypeAccess($versionizeTree))     {

                                                // Select main record:
                                        $row = $this->recordInfo($table,$id,'pid,t3ver_id');
                                        if (is_array($row))     {
                                                if ($row['pid']>=0)     {       // record must be online record
                                                        if (!$delete || !$this->cannotDeleteRecord($table,$id)) {

                                                                        // Look for next version number:
                                                                $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                                                                        't3ver_id',
                                                                        $table,
                                                                        '(t3ver_oid='.$id.' OR uid='.$id.')'.$this->deleteClause($table),
                                                                        '',
                                                                        't3ver_id DESC',
                                                                        '1'
                                                                );
                                                                list($highestVerNumber) = $GLOBALS['TYPO3_DB']->sql_fetch_row($res);

                                                                        // Look for version number of the current:
                                                                $subVer = $row['t3ver_id'].'.'.($highestVerNumber+1);

                                                                        // Set up the values to override when making a raw-copy:
                                                                $overrideArray = array(
                                                                        't3ver_id' => $highestVerNumber+1,
                                                                        't3ver_oid' => $id,
                                                                        't3ver_label' => ($label ? $label : $subVer.' / '.date('d-m-Y H:m:s')),
                                                                        't3ver_wsid' => $this->BE_USER->workspace,
                                                                        't3ver_state' => $delete ? 2 : 0,
                                                                        't3ver_count' => 0,
                                                                        't3ver_stage' => 0,
                                                                        't3ver_tstamp' => 0
                                                                );
                                                                if ($TCA[$table]['ctrl']['editlock'])   {
                                                                        $overrideArray[$TCA[$table]['ctrl']['editlock']] = 0;
                                                                }
                                                                if ($table==='pages')   {
                                                                        $overrideArray['t3ver_swapmode'] = $versionizeTree;
                                                                }

                                                                        // Checking if the record already has a version in the current workspace of the backend user
                                                                $workspaceCheck = TRUE;
                                                                if ($this->BE_USER->workspace!==0)      {
                                                                                // Look for version already in workspace:
                                                                        $workspaceCheck = t3lib_BEfunc::getWorkspaceVersionOfRecord($this->BE_USER->workspace,$table,$id,'uid') ? FALSE : TRUE;
                                                                }

                                                                if ($workspaceCheck)    {

                                                                                // Create raw-copy and return result:
                                                                        return $this->copyRecord_raw($table,$id,-1,$overrideArray);
                                                                } else $this->newlog('Record you wanted to versionize was already a version in the workspace (wsid='.$this->BE_USER->workspace.')!',1);
                                                        } else $this->newlog('Record cannot be deleted: '.$this->cannotDeleteRecord($table,$id),1);
                                                } else $this->newlog('Record you wanted to versionize was already a version in archive (pid=-1)!',1);
                                        } else $this->newlog('Record you wanted to versionize did not exist!',1);
                                } else $this->newlog('The versioning type '.$versionizeTree.' mode you requested was not allowed',1);
                        } else $this->newlog('You didnt have correct permissions to make a new version (copy) of this record "'.$table.'" / '.$id,1);
                } else $this->newlog('Versioning is not supported for this table "'.$table.'" / '.$id,1);
        }

        function versionizePages($uid,$label,$versionizeTree)   {
                global $TCA;

                $uid = intval($uid);
                $brExist = $this->doesBranchExist('',$uid,$this->pMap['show'],1);       // returns the branch

                if ($brExist != -1)     {       // Checks if we had permissions

                                // Finding list of tables ALLOWED to be copied
                        $allowedTablesArray = $this->admin ? $this->compileAdminTables() : explode(',',$this->BE_USER->groupData['tables_modify']);     // These are the tables, the user may modify
                        $allowedTablesArray = $this->compileAdminTables();      // These are ALL tables because a new version should be ALL of them regardless of permission of the user executing the request.

                                // Make list of tables that should come along with a new version of the page:
                        $verTablesArray = array();
                        $allTables = array_keys($TCA);
                        foreach($allTables as $tN)      {
                                if ($tN!='pages' && ($versionizeTree>0 || $TCA[$tN]['ctrl']['versioning_followPages']) && ($this->admin || in_array($tN, $allowedTablesArray))) {
                                        $verTablesArray[] = $tN;
                                }
                        }

                                // Begin to copy pages if we're allowed to:
                        if ($this->admin || in_array('pages',$allowedTablesArray))      {
                                if ($this->BE_USER->workspaceVersioningTypeAccess($versionizeTree))     {
                                                // Versionize this page:
                                        $theNewRootID = $this->versionizeRecord('pages',$uid,$label,FALSE,$versionizeTree);
                                        if ($theNewRootID)      {
                                                $this->rawCopyPageContent($uid,$theNewRootID,$verTablesArray);

                                                        // If we're going to copy recursively...:
                                                if ($versionizeTree>0)  {

                                                                // Get ALL subpages to copy (read permissions respected - they should NOT be...):
                                                        $CPtable = $this->int_pageTreeInfo(Array(), $uid, intval($versionizeTree), $theNewRootID);

                                                                // Now copying the subpages:
                                                        foreach($CPtable as $thePageUid => $thePagePid) {
                                                                $newPid = $this->copyMappingArray['pages'][$thePagePid];
                                                                if (isset($newPid))     {
                                                                        $theNewRootID = $this->copyRecord_raw('pages',$thePageUid,$newPid);
                                                                        $this->rawCopyPageContent($thePageUid,$theNewRootID,$verTablesArray);
                                                                } else {
                                                                        $this->newlog('Something went wrong during copying branch (for versioning)',1);
                                                                        break;
                                                                }
                                                        }
                                                }       // else the page was not copied. Too bad...
                                        } else $this->newlog('The root version could not be created!',1);
                                } else $this->newlog('Versioning type "'.$versionizeTree.'" was not allowed in workspace',1);
                        } else $this->newlog('Attempt to versionize page without permission to this table',1);
                } else $this->newlog('Could not read all subpages to versionize.',1);
        }

        function version_swap($table,$id,$swapWith,$swapIntoWS=0)       {
                global $TCA;

                /*
                Version ID swapping principles:
                        - Version from archive (future/past, called "swap version") will get the uid of the "t3ver_oid", the official element with uid = "t3ver_oid" will get the new versions old uid. PIDs are swapped also

                        uid             pid                     uid             t3ver_oid       pid
                1:      13              123      -->    -13             247                     123             (Original has negated UID, and sets t3ver_oid to the final UID (which is nice to know for recovery). PID is unchanged at this point)
                2:      247             -1       -->    13              13                      123             (Swap version gets original UID, correct t3ver_oid (not required for online version) and is moved to the final PID (123))
                3:      -13             123      -->    247             13                      -1              (Original gets the swap versions old UID, has t3ver_oid set correctly (important) and the ver. repository PID set right.)

                        13 is online UID,
                        247 is specific versions UID
                        123 is the PID of the original record
                        -1 is the versioning repository PID

                        Recovery Process:
                                Search for negative UID (here "-13"):
                                        YES: Step 1 completed, but at least step 3 didn't.
                                                Search for the negativ UIDs positive (here: "13")
                                                        YES: Step 2 completed: Rollback: "t3ver_oid" of the -uid record shows the original UID of the swap record. Use that to change back UID and pid to -1. After that, proceed with recovery for step 1 (see below)
                                                        NO: Only Step 1 completed! Rollback: Just change uid "-13" to "13" and "t3ver_oid" to "13" (not important)
                                        NO: No problems.
                */

                        // First, check if we may actually edit the online record
                if ($this->checkRecordUpdateAccess($table,$id)) {

                                // Select the two versions:
                        $curVersion = t3lib_BEfunc::getRecord($table,$id,'*');
                        $swapVersion = t3lib_BEfunc::getRecord($table,$swapWith,'*');

                        if (is_array($curVersion) && is_array($swapVersion))    {
                                if ($this->BE_USER->workspacePublishAccess($swapVersion['t3ver_wsid'])) {
                                        $wsAccess = $this->BE_USER->checkWorkspace($swapVersion['t3ver_wsid']);
                                        if ($swapVersion['t3ver_wsid']<=0 || !($wsAccess['publish_access']&1) || (int)$swapVersion['t3ver_stage']===10) {
                                                if ($this->doesRecordExist($table,$swapWith,'show') && $this->checkRecordUpdateAccess($table,$swapWith)) {
                                                        if (!$swapIntoWS || $this->BE_USER->workspaceSwapAccess())      {

                                                                        // Check if the swapWith record really IS a version of the original!
                                                                if ((int)$swapVersion['pid']==-1 && (int)$curVersion['pid']>=0 && !strcmp($swapVersion['t3ver_oid'],$id))       {

                                                                                // Lock file name:
                                                                        $lockFileName = PATH_site.'typo3temp/swap_locking/'.$table.':'.$id.'.ser';

                                                                        if (!@is_file($lockFileName))   {

                                                                                        // Write lock-file:
                                                                                t3lib_div::writeFileToTypo3tempDir($lockFileName,serialize(array(
                                                                                        'tstamp'=>time(),
                                                                                        'user'=>$GLOBALS['BE_USER']->user['username'],
                                                                                        'curVersion'=>$curVersion,
                                                                                        'swapVersion'=>$swapVersion
                                                                                )));

                                                                                        // Find fields to keep
                                                                                $keepFields = $this->getUniqueFields($table);
                                                                                if ($TCA[$table]['ctrl']['sortby'])     {
                                                                                        $keepFields[] = $TCA[$table]['ctrl']['sortby'];
                                                                                }

                                                                                        // Swap "keepfields"
                                                                                foreach($keepFields as $fN)     {
                                                                                        $tmp = $swapVersion[$fN];
                                                                                        $swapVersion[$fN] = $curVersion[$fN];
                                                                                        $curVersion[$fN] = $tmp;
                                                                                }

                                                                                        // Preserve states:
                                                                                $t3ver_state = array();
                                                                                $t3ver_state['swapVersion'] = $swapVersion['t3ver_state'];
                                                                                $t3ver_state['curVersion'] = $curVersion['t3ver_state'];

                                                                                        // Modify offline version to become online:
                                                                                $tmp_wsid = $swapVersion['t3ver_wsid'];
                                                                                unset($swapVersion['uid']);
                                                                                $swapVersion['pid'] = intval($curVersion['pid']);       // Set pid for ONLINE
                                                                                $swapVersion['t3ver_oid'] = intval($id);
                                                                                $swapVersion['t3ver_wsid'] = $swapIntoWS ? intval($curVersion['t3ver_wsid']) : 0;
                                                                                $swapVersion['t3ver_tstamp'] = time();
                                                                                $swapVersion['t3ver_stage'] = $swapVersion['t3ver_state'] = 0;

                                                                                        // Modify online version to become offline:
                                                                                unset($curVersion['uid']);
                                                                                $curVersion['pid'] = -1;        // Set pid for OFFLINE
                                                                                $curVersion['t3ver_oid'] = intval($id);
                                                                                $curVersion['t3ver_wsid'] = $swapIntoWS ? intval($tmp_wsid) : 0;
                                                                                $curVersion['t3ver_tstamp'] = time();
                                                                                $curVersion['t3ver_count'] = $curVersion['t3ver_count']+1;      // Increment lifecycle counter
                                                                                $curVersion['t3ver_stage'] = $curVersion['t3ver_state'] = 0;

                                                                                if ($table==='pages') {         // Keeping the swapmode state
                                                                                                $curVersion['t3ver_swapmode'] = $swapVersion['t3ver_swapmode'];
                                                                                }

                                                                                        // Execute swapping:
                                                                                $sqlErrors = array();
                                                                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table,'uid='.intval($id),$swapVersion);
                                                                                if ($GLOBALS['TYPO3_DB']->sql_error())          {
                                                                                        $sqlErrors[] = $GLOBALS['TYPO3_DB']->sql_error();
                                                                                } else {
                                                                                        $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table,'uid='.intval($swapWith),$curVersion);
                                                                                        if ($GLOBALS['TYPO3_DB']->sql_error())  {
                                                                                                $sqlErrors[]=$GLOBALS['TYPO3_DB']->sql_error();
                                                                                        } else {
                                                                                                unlink($lockFileName);
                                                                                        }
                                                                                }

                                                                                if (!count($sqlErrors)) {

                                                                                                // Checking for delete:
                                                                                        if ($t3ver_state['swapVersion']==2)     {
                                                                                                $this->deleteEl($table,$id,TRUE);       // Force delete
                                                                                        }

                                                                                        $this->newlog('Swapping successful for table "'.$table.'" uid '.$id.'=>'.$swapWith);

                                                                                                // Update reference index:
                                                                                        $this->updateRefIndex($table,$id);
                                                                                        $this->updateRefIndex($table,$swapWith);

                                                                                                // SWAPPING pids for subrecords:
                                                                                        if ($table=='pages' && $swapVersion['t3ver_swapmode']>=0)       {

                                                                                                        // Collect table names that should be copied along with the tables:
                                                                                                foreach($TCA as $tN => $tCfg)   {
                                                                                                        if ($swapVersion['t3ver_swapmode']>0 || $TCA[$tN]['ctrl']['versioning_followPages'])    {       // For "Branch" publishing swap ALL, otherwise for "page" publishing, swap only "versioning_followPages" tables
                                                                                                                $temporaryPid = -($id+1000000);

                                                                                                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($tN,'pid='.intval($id),array('pid'=>$temporaryPid));
                                                                                                                if ($GLOBALS['TYPO3_DB']->sql_error())  $sqlErrors[]=$GLOBALS['TYPO3_DB']->sql_error();

                                                                                                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($tN,'pid='.intval($swapWith),array('pid'=>$id));
                                                                                                                if ($GLOBALS['TYPO3_DB']->sql_error())  $sqlErrors[]=$GLOBALS['TYPO3_DB']->sql_error();

                                                                                                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($tN,'pid='.intval($temporaryPid),array('pid'=>$swapWith));
                                                                                                                if ($GLOBALS['TYPO3_DB']->sql_error())  $sqlErrors[]=$GLOBALS['TYPO3_DB']->sql_error();

                                                                                                                if (count($sqlErrors))  {
                                                                                                                        $this->newlog('During Swapping: SQL errors happend: '.implode('; ',$sqlErrors),2);
                                                                                                                }
                                                                                                        }
                                                                                                }
                                                                                        }
                                                                                                // Clear cache:
                                                                                        $this->clear_cache($table,$id);

                                                                                                // Checking for "new-placeholder" and if found, delete it (BUT FIRST after swapping!):
                                                                                        if ($t3ver_state['curVersion']==1)      {
                                                                                                $this->deleteEl($table, $swapWith, TRUE, TRUE);         // For delete + completely delete!
                                                                                        }
                                                                                } else $this->newlog('During Swapping: SQL errors happend: '.implode('; ',$sqlErrors),2);
                                                                        } else $this->newlog('A swapping lock file was present. Either another swap process is already running or a previous swap process failed. Ask your administrator to handle the situation.',2);
                                                                } else $this->newlog('In swap version, either pid was not -1 or the t3ver_oid didn\'t match the id of the online version as it must!',2);
                                                        } else $this->newlog('Workspace #'.$swapVersion['t3ver_wsid'].' does not support swapping.',1);
                                                } else $this->newlog('You cannot publish a record you do not have edit and show permissions for',1);
                                        } else $this->newlog('Records in workspace #'.$swapVersion['t3ver_wsid'].' can only be published when in "Publish" stage.',1);
                                } else $this->newlog('User could not publish records from workspace #'.$swapVersion['t3ver_wsid'],1);
                        } else $this->newlog('Error: Either online or swap version could not be selected!',2);
                } else $this->newlog('Error: You cannot swap versions for a record you do not have access to edit!',1);
        }

        function version_clearWSID($table,$id)  {
                if ($errorCode = $this->BE_USER->workspaceCannotEditOfflineVersion($table, $id))        {
                        $this->newlog('Attempt to reset workspace for record failed: '.$errorCode,1);
                } elseif ($this->checkRecordUpdateAccess($table,$id)) {
                        if ($liveRec = t3lib_BEfunc::getLiveVersionOfRecord($table,$id,'uid,t3ver_state'))      {
                                        // Clear workspace ID:
                                $sArray = array();
                                $sArray['t3ver_wsid'] = 0;
                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table,'uid='.intval($id),$sArray);

                                        // Clear workspace ID for live version AND DELETE IT as well because it is a new record!
                                if ((int)$liveRec['t3ver_state']===1)   {
                                        $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table,'uid='.intval($liveRec['uid']),$sArray);
                                        $this->deleteEl($table, $liveRec['uid'], TRUE); // THIS assumes that the record was placeholder ONLY for ONE record (namely $id)
                                }

                                        // If "deleted" flag is set for the version that got released it doesn't make sense to keep that "placeholder" anymore and we delete it completly.
                                $wsRec = t3lib_BEfunc::getRecord($table,$id);
                                if ((int)$wsRec['t3ver_state']===2)     {
                                        $this->deleteEl($table, $id, TRUE, TRUE);
                                }
                        }
                } else $this->newlog('Attempt to reset workspace for record failed because you do not have edit access',1);
        }

        function version_setStage($table,$id,$stageId,$comment='')      {
                if ($errorCode = $this->BE_USER->workspaceCannotEditOfflineVersion($table, $id))        {
                        $this->newlog('Attempt to set stage for record failed: '.$errorCode,1);
                } elseif ($this->checkRecordUpdateAccess($table,$id)) {
                        $stat = $this->BE_USER->checkWorkspaceCurrent();
                        if (t3lib_div::inList('admin,online,offline,reviewer,owner', $stat['_ACCESS']) || ($stageId<=1 && $stat['_ACCESS']==='member')) {

                                        // Set stage of record:
                                $sArray = array();
                                $sArray['t3ver_stage'] = $stageId;
                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($id), $sArray);
                                $this->newlog('Stage for record was changed to '.$stageId.'. Comment was: "'.substr($comment,0,100).'"');
// TEMPORARY, except 6-30 as action/detail number which is observed elsewhere!
$this->log($table,$id,6,0,0,'Stage raised...',30,array('comment'=>$comment,'stage'=>$stageId));

                                if ((int)$stat['stagechg_notification']>0)      {
                                        $this->notifyStageChange($stat,$stageId,$table,$id,$comment);
                                }
                        } else $this->newlog('The member user tried to set a stage value "'.$stageId.'" that was not allowed',1);
                } else $this->newlog('Attempt to set stage for record failed because you do not have edit access',1);
        }













        /*********************************************
         *
         * Cmd: Helper functions
         *
         ********************************************/

        function remapListedDBRecords() {
                global $TCA;

                if (count($this->registerDBList))       {
                        reset($this->registerDBList);
                        while(list($table,$records)=each($this->registerDBList))        {
                                t3lib_div::loadTCA($table);
                                reset($records);
                                while(list($uid,$fields)=each($records))        {
                                        $newData = array();
                                        $theUidToUpdate = $this->copyMappingArray_merged[$table][$uid];
                                        $theUidToUpdate_saveTo = t3lib_BEfunc::wsMapId($table,$theUidToUpdate);

                                        foreach($fields as $fieldName => $value)        {
                                                $conf = $TCA[$table]['columns'][$fieldName]['config'];

                                                switch($conf['type'])   {
                                                        case 'group':
                                                        case 'select':
                                                                $vArray = $this->remapListedDBRecords_procDBRefs($conf, $value, $theUidToUpdate, $table);
                                                                if (is_array($vArray))  {
                                                                        $newData[$fieldName] = implode(',',$vArray);
                                                                }
                                                        break;
                                                        case 'flex':
                                                                if ($value=='FlexForm_reference')       {
                                                                        $origRecordRow = $this->recordInfo($table,$theUidToUpdate,'*'); // This will fetch the new row for the element

                                                                        if (is_array($origRecordRow))   {
                                                                                t3lib_BEfunc::workspaceOL($table,$origRecordRow);

                                                                                        // Get current data structure and value array:
                                                                                $dataStructArray = t3lib_BEfunc::getFlexFormDS($conf, $origRecordRow, $table);
                                                                                $currentValueArray = t3lib_div::xml2array($origRecordRow[$fieldName]);

                                                                                        // Do recursive processing of the XML data:
                                                                                $currentValueArray['data'] = $this->checkValue_flex_procInData(
                                                                                                        $currentValueArray['data'],
                                                                                                        array(),        // Not used.
                                                                                                        array(),        // Not used.
                                                                                                        $dataStructArray,
                                                                                                        array($table,$theUidToUpdate,$fieldName),       // Parameters.
                                                                                                        'remapListedDBRecords_flexFormCallBack'
                                                                                                );

                                                                                        // The return value should be compiled back into XML, ready to insert directly in the field (as we call updateDB() directly later):
                                                                                if (is_array($currentValueArray['data']))       {
                                                                                        $newData[$fieldName] =
                                                                                                $this->checkValue_flexArray2Xml($currentValueArray,TRUE);
                                                                                }
                                                                        }
                                                                }
                                                        break;
                                                        case 'inline':
                                                                $this->remapListedDBRecords_procInline($conf, $value, $uid, $table);
                                                        break;
                                                        default:
                                                                debug('Field type should not appear here: '. $conf['type']);
                                                        break;
                                                }
                                        }

                                        if (count($newData))    {       // If any fields were changed, those fields are updated!
                                                $this->updateDB($table,$theUidToUpdate_saveTo,$newData);
                                        }
                                }
                        }
                }
        }

        function remapListedDBRecords_flexFormCallBack($pParams, $dsConf, $dataValue, $dataValue_ext1, $dataValue_ext2) {

                        // Extract parameters:
                list($table,$uid,$field)        = $pParams;

                        // If references are set for this field, set flag so they can be corrected later:
                if ($this->isReferenceField($dsConf) && strlen($dataValue)) {
                        $vArray = $this->remapListedDBRecords_procDBRefs($dsConf, $dataValue, $uid, $table);
                        if (is_array($vArray))  {
                                $dataValue = implode(',',$vArray);
                        }
                }

                        // Return
                return array('value' => $dataValue);
        }

        function remapListedDBRecords_procDBRefs($conf, $value, $MM_localUid, $table)   {

                        // Initialize variables
                $set = FALSE;   // Will be set true if an upgrade should be done...
                $allowedTables = $conf['type']=='group' ? $conf['allowed'] : $conf['foreign_table'].','.$conf['neg_foreign_table'];             // Allowed tables for references.
                $prependName = $conf['type']=='group' ? $conf['prepend_tname'] : '';    // Table name to prepend the UID
                $dontRemapTables = t3lib_div::trimExplode(',',$conf['dontRemapTablesOnCopy'],1);        // Which tables that should possibly not be remapped

                        // Convert value to list of references:
                $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                $dbAnalysis->registerNonTableValues = ($conf['type']=='select' && $conf['allowNonIdValues']) ? 1 : 0;
                $dbAnalysis->start($value, $allowedTables, $conf['MM'], $MM_localUid, $table, $conf);

                        // Traverse those references and map IDs:
                foreach($dbAnalysis->itemArray as $k => $v)     {
                        $mapID = $this->copyMappingArray_merged[$v['table']][$v['id']];
                        if ($mapID && !in_array($v['table'],$dontRemapTables))  {
                                $dbAnalysis->itemArray[$k]['id'] = $mapID;
                                $set = TRUE;
                        }
                }

                        // If a change has been done, set the new value(s)
                if ($set)       {
                        if ($conf['MM'])        {
// FIXME $theUidToUpdate is undefined
                                $dbAnalysis->writeMM($conf['MM'], $theUidToUpdate, $prependName);
                        } else {
                                $vArray = $dbAnalysis->getValueArray($prependName);
                                if ($conf['type']=='select')    {
                                        $vArray = $dbAnalysis->convertPosNeg($vArray, $conf['foreign_table'], $conf['neg_foreign_table']);
                                }
                                return $vArray;
                        }
                }
        }

        function remapListedDBRecords_procInline($conf, $value, $uid, $table) {
                $theUidToUpdate = $this->copyMappingArray_merged[$table][$uid];

                if ($conf['foreign_table']) {
                        $inlineType = $this->getInlineFieldType($conf);

                        if ($inlineType == 'field') {
                                $dbAnalysis = t3lib_div::makeInstance('t3lib_loadDBGroup');
                                $dbAnalysis->start($value, $conf['foreign_table'], $conf['MM'], 0, $table, $conf);

                                $dbAnalysis->writeForeignField($conf, $uid, $theUidToUpdate);
                        } elseif ($inlineType == 'mm') {
                                $vArray = $this->remapListedDBRecords_procDBRefs($conf, $value, $theUidToUpdate, $table);
                        }
                }
        }















        /*****************************
         *
         * Access control / Checking functions
         *
         *****************************/

        function checkModifyAccessList($table)  {
                $res = ($this->admin || (!$this->tableAdminOnly($table) && t3lib_div::inList($this->BE_USER->groupData['tables_modify'],$table)));
                return $res;
        }

        function isRecordInWebMount($table,$id) {
                if (!isset($this->isRecordInWebMount_Cache[$table.':'.$id]))    {
                        $recP=$this->getRecordProperties($table,$id);
                        $this->isRecordInWebMount_Cache[$table.':'.$id]=$this->isInWebMount($recP['event_pid']);
                }
                return $this->isRecordInWebMount_Cache[$table.':'.$id];
        }

        function isInWebMount($pid)     {
                if (!isset($this->isInWebMount_Cache[$pid]))    {
                        $this->isInWebMount_Cache[$pid]=$this->BE_USER->isInWebMount($pid);
                }
                return $this->isInWebMount_Cache[$pid];
        }

        function checkRecordUpdateAccess($table,$id)    {
                global $TCA;
                $res = 0;
                if ($TCA[$table] && intval($id)>0)      {
                        if (isset($this->recUpdateAccessCache[$table][$id]))    {       // If information is cached, return it
                                return $this->recUpdateAccessCache[$table][$id];
                                // Check if record exists and 1) if 'pages' the page may be edited, 2) if page-content the page allows for editing
                        } elseif ($this->doesRecordExist($table,$id,'edit'))    {
                                $res = 1;
                        }
                        $this->recUpdateAccessCache[$table][$id]=$res;  // Cache the result
                }
                return $res;
        }

        function checkRecordInsertAccess($insertTable,$pid,$action=1)   {
                global $TCA;

                $res = 0;
                $pid = intval($pid);
                if ($pid>=0)    {
                        if (isset($this->recInsertAccessCache[$insertTable][$pid]))     {       // If information is cached, return it
                                return $this->recInsertAccessCache[$insertTable][$pid];
                        } else {
                                        // If either admin and root-level or if page record exists and 1) if 'pages' you may create new ones 2) if page-content, new content items may be inserted on the $pid page
                                if ( (!$pid && $this->admin) || $this->doesRecordExist('pages',$pid,($insertTable=='pages'?$this->pMap['new']:$this->pMap['editcontent'])) )    {               // Check permissions
                                        if ($this->isTableAllowedForThisPage($pid, $insertTable))       {
                                                $res = 1;
                                                $this->recInsertAccessCache[$insertTable][$pid]=$res;   // Cache the result
                                        } else {
                                                $propArr = $this->getRecordProperties('pages',$pid);
                                                $this->log($insertTable,$pid,$action,0,1,"Attempt to insert record on page '%s' (%s) where this table, %s, is not allowed",11,array($propArr['header'],$pid,$insertTable),$propArr['event_pid']);
                                        }
                                } else {
                                        $propArr = $this->getRecordProperties('pages',$pid);
                                        $this->log($insertTable,$pid,$action,0,1,"Attempt to insert a record on page '%s' (%s) from table '%s' without permissions. Or non-existing page.",12,array($propArr['header'],$pid,$insertTable),$propArr['event_pid']);
                                }
                        }
                }
                return $res;
        }

        function isTableAllowedForThisPage($page_uid, $checkTable)      {
                global $TCA, $PAGES_TYPES;
                $page_uid = intval($page_uid);

                        // Check if rootLevel flag is set and we're trying to insert on rootLevel - and reversed - and that the table is not "pages" which are allowed anywhere.
                if (($TCA[$checkTable]['ctrl']['rootLevel'] xor !$page_uid) && $TCA[$checkTable]['ctrl']['rootLevel']!=-1 && $checkTable!='pages')      {
                        return false;
                }

                        // Check root-level
                if (!$page_uid) {
                        if ($this->admin)       {
                                return true;
                        }
                } else {
                                // Check non-root-level
                        $doktype = $this->pageInfo($page_uid,'doktype');
                        $allowedTableList = isset($PAGES_TYPES[$doktype]['allowedTables']) ? $PAGES_TYPES[$doktype]['allowedTables'] : $PAGES_TYPES['default']['allowedTables'];
                        $allowedArray = t3lib_div::trimExplode(',',$allowedTableList,1);
                        if (strstr($allowedTableList,'*') || in_array($checkTable,$allowedArray))       {               // If all tables or the table is listed as a allowed type, return true
                                return true;
                        }
                }
        }

        function doesRecordExist($table,$id,$perms)     {
                global $TCA;

                if ($this->bypassAccessCheckForRecords) {
                        return is_array(t3lib_BEfunc::getRecordRaw($table,'uid='.intval($id),'uid'));
                }

                $res = 0;
                $id = intval($id);

                        // Processing the incoming $perms (from possible string to integer that can be AND'ed)
                if (!t3lib_div::testInt($perms))        {
                        if ($table!='pages')    {
                                switch($perms)  {
                                        case 'edit':
                                        case 'delete':
                                        case 'new':
                                                $perms = 'editcontent';         // This holds it all in case the record is not page!!
                                        break;
                                }
                        }
                        $perms = intval($this->pMap[$perms]);
                } else {
                        $perms = intval($perms);
                }

                if (!$perms)    {die('Internal ERROR: no permissions to check for non-admin user.');}

                        // For all tables: Check if record exists:
                if (is_array($TCA[$table]) && $id>0 && ($this->isRecordInWebMount($table,$id) || $this->admin)) {
                        if ($table != 'pages')  {

                                        // Find record without checking page:
                                $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid,pid', $table, 'uid='.intval($id).$this->deleteClause($table));      // THIS SHOULD CHECK FOR editlock I think!
                                $output = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres);
                                t3lib_BEfunc::fixVersioningPid($table,$output,TRUE);

                                        // If record found, check page as well:
                                if (is_array($output))  {

                                                // Looking up the page for record:
                                        $mres = $this->doesRecordExist_pageLookUp($output['pid'], $perms);
                                        $pageRec = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres);
                                                // Return true if either a page was found OR if the PID is zero AND the user is ADMIN (in which case the record is at root-level):
                                        if (is_array($pageRec) || (!$output['pid'] && $this->admin))    {
                                                return TRUE;
                                        }
                                }
                                return FALSE;
                        } else {
                                $mres = $this->doesRecordExist_pageLookUp($id, $perms);
                                return $GLOBALS['TYPO3_DB']->sql_num_rows($mres);
                        }
                }
        }

        function doesRecordExist_pageLookUp($id, $perms)        {
                global $TCA;

                return $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                        'uid',
                        'pages',
                        'uid='.intval($id).
                                $this->deleteClause('pages').
                                ($perms && !$this->admin ? ' AND '.$this->BE_USER->getPagePermsClause($perms) : '').
                                (!$this->admin && $TCA['pages']['ctrl']['editlock'] && ($perms & (2+4+16)) ? ' AND '.$TCA['pages']['ctrl']['editlock'].'=0':'') // admin users don't need check
                );
        }

        function doesBranchExist($inList,$pid,$perms,$recurse)  {
                global $TCA;
                $pid = intval($pid);
                $perms = intval($perms);

                if ($pid>=0)    {
                        $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                                'uid, perms_userid, perms_groupid, perms_user, perms_group, perms_everybody',
                                'pages',
                                'pid='.intval($pid).$this->deleteClause('pages'),
                                '',
                                'sorting'
                        );
                        while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))     {
                                if ($this->admin || $this->BE_USER->doesUserHaveAccess($row,$perms))    {       // IF admin, then it's OK
                                        $inList.=$row['uid'].',';
                                        if ($recurse)   {       // Follow the subpages recursively...
                                                $inList = $this->doesBranchExist($inList, $row['uid'], $perms, $recurse);
                                                if ($inList == -1)      {return -1;}            // No permissions somewhere in the branch
                                        }
                                } else {
                                        return -1;              // No permissions
                                }
                        }
                }
                return $inList;
        }

        function tableReadOnly($table)  {
                        // returns true if table is readonly
                global $TCA;
                return ($TCA[$table]['ctrl']['readOnly'] ? 1 : 0);
        }

        function tableAdminOnly($table) {
                        // returns true if table is admin-only
                global $TCA;
                return ($TCA[$table]['ctrl']['adminOnly'] ? 1 : 0);
        }

        function destNotInsideSelf($dest,$id)   {
                $loopCheck = 100;
                $dest = intval($dest);
                $id = intval($id);

                if ($dest==$id) {
                        return FALSE;
                }

                while ($dest!=0 && $loopCheck>0)        {
                        $loopCheck--;
                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('pid, uid, t3ver_oid,t3ver_wsid', 'pages', 'uid='.intval($dest).$this->deleteClause('pages'));
                        if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {
                                t3lib_BEfunc::fixVersioningPid('pages',$row);
                                if ($row['pid']==$id)   {
                                        return FALSE;
                                } else {
                                        $dest = $row['pid'];
                                }
                        } else {
                                return FALSE;
                        }
                }
                return TRUE;
        }

        function getExcludeListArray()  {
                global $TCA;

                $list = array();
                reset($TCA);
                while (list($table)=each($TCA)) {
                        t3lib_div::loadTCA($table);
                        while (list($field,$config)=each($TCA[$table]['columns']))      {
                                if ($config['exclude'] && !t3lib_div::inList($this->BE_USER->groupData['non_exclude_fields'],$table.':'.$field))        {
                                        $list[]=$table.'-'.$field;
                                }
                        }
                }
                return $list;
        }

        function doesPageHaveUnallowedTables($page_uid,$doktype)        {
                global $TCA, $PAGES_TYPES;

                $page_uid = intval($page_uid);
                if (!$page_uid) {
                        return FALSE;   // Not a number. Probably a new page
                }

                $allowedTableList = isset($PAGES_TYPES[$doktype]['allowedTables']) ? $PAGES_TYPES[$doktype]['allowedTables'] : $PAGES_TYPES['default']['allowedTables'];
                $allowedArray = t3lib_div::trimExplode(',',$allowedTableList,1);
                if (strstr($allowedTableList,'*'))      {       // If all tables is OK the return true
                        return FALSE;   // OK...
                }

                reset ($TCA);
                $tableList = array();
                while (list($table)=each($TCA)) {
                        if (!in_array($table,$allowedArray))    {       // If the table is not in the allowed list, check if there are records...
                                $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('count(*)', $table, 'pid='.intval($page_uid));
                                $count = $GLOBALS['TYPO3_DB']->sql_fetch_row($mres);
                                if ($count[0])  {
                                        $tableList[]=$table;
                                }
                        }
                }
                return implode(',',$tableList);
        }








        /*****************************
         *
         * Information lookup
         *
         *****************************/

        function pageInfo($id,$field)   {
                if (!isset($this->pageCache[$id]))      {
                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('*', 'pages', 'uid='.intval($id));
                        if ($GLOBALS['TYPO3_DB']->sql_num_rows($res))   {
                                $this->pageCache[$id] = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res);
                        }
                        $GLOBALS['TYPO3_DB']->sql_free_result($res);
                }
                return $this->pageCache[$id][$field];
        }

        function recordInfo($table,$id,$fieldList)      {
                global $TCA;
                if (is_array($TCA[$table]))     {
                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery($fieldList, $table, 'uid='.intval($id));
                        if ($GLOBALS['TYPO3_DB']->sql_num_rows($res))   {
                                return $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res);
                        }
                }
        }

        function getRecordProperties($table,$id,$noWSOL=FALSE)  {
                $row = ($table=='pages' && !$id) ? array('title'=>'[root-level]', 'uid' => 0, 'pid' => 0) :$this->recordInfo($table,$id,'*');
                if (!$noWSOL)   {
                        t3lib_BEfunc::workspaceOL($table,$row);
                }
                t3lib_BEfunc::fixVersioningPid($table,$row);
                return $this->getRecordPropertiesFromRow($table,$row);
        }

        function getRecordPropertiesFromRow($table,$row)        {
                global $TCA;
                if ($TCA[$table])       {
                        $out = array(
                                'header' => $row[$TCA[$table]['ctrl']['label']],
                                'pid' => $row['pid'],
                                'event_pid' => ($table=='pages'?$row['uid']:$row['pid']),
                                't3ver_state' => $TCA[$table]['ctrl']['versioningWS'] ? $row['t3ver_state'] : '',
                                '_ORIG_pid' => $row['_ORIG_pid']
                        );
                        return $out;
                }
        }















        /*********************************************
         *
         * Storing data to Database Layer
         *
         ********************************************/

        function updateDB($table,$id,$fieldArray)       {
                global $TCA;

                if (is_array($fieldArray) && is_array($TCA[$table]) && intval($id))     {
                        unset($fieldArray['uid']);      // Do NOT update the UID field, ever!

                        if (count($fieldArray)) {

                                        // Execute the UPDATE query:
                                $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($id), $fieldArray);

                                        // If succees, do...:
                                if (!$GLOBALS['TYPO3_DB']->sql_error()) {

                                        if ($this->checkStoredRecords)  {
                                                $newRow = $this->checkStoredRecord($table,$id,$fieldArray,2);
                                        }

                                                // Update reference index:
                                        $this->updateRefIndex($table,$id);

                                                // Set log entry:
                                        $propArr = $this->getRecordPropertiesFromRow($table,$newRow);
                                        $theLogId = $this->log($table,$id,2,$propArr['pid'],0,"Record '%s' (%s) was updated.",10,array($propArr['header'],$table.':'.$id),$propArr['event_pid']);

                                                // Set History data:
                                        $this->setHistory($table,$id,$theLogId);

                                                // Clear cache for relevant pages:
                                        $this->clear_cache($table,$id);

                                                // Unset the pageCache for the id if table was page.
                                        if ($table=='pages')    unset($this->pageCache[$id]);
                                } else {
                                        $this->log($table,$id,2,0,2,"SQL error: '%s' (%s)",12,array($GLOBALS['TYPO3_DB']->sql_error(),$table.':'.$id));
                                }
                        }
                }
        }

        function insertDB($table,$id,$fieldArray,$newVersion=FALSE,$suggestedUid=0,$dontSetNewIdIndex=FALSE)    {
                global $TCA;

                if (is_array($fieldArray) && is_array($TCA[$table]) && isset($fieldArray['pid']))       {
                        unset($fieldArray['uid']);      // Do NOT insert the UID field, ever!

                        if (count($fieldArray)) {

                                        // Check for "suggestedUid".
                                        // This feature is used by the import functionality to force a new record to have a certain UID value.
                                        // This is only recommended for use when the destination server is a passive mirrow of another server.
                                        // As a security measure this feature is available only for Admin Users (for now)
                                $suggestedUid = intval($suggestedUid);
                                if ($this->BE_USER->isAdmin() && $suggestedUid && $this->suggestedInsertUids[$table.':'.$suggestedUid]) {
                                                // When the value of ->suggestedInsertUids[...] is "DELETE" it will try to remove the previous record
                                        if ($this->suggestedInsertUids[$table.':'.$suggestedUid]==='DELETE')    {
                                                        // DELETE:
                                                $GLOBALS['TYPO3_DB']->exec_DELETEquery($table, 'uid='.intval($suggestedUid));
                                        }
                                        $fieldArray['uid'] = $suggestedUid;
                                }

                                        // Execute the INSERT query:
                                $GLOBALS['TYPO3_DB']->exec_INSERTquery($table, $fieldArray);

                                        // If succees, do...:
                                if (!$GLOBALS['TYPO3_DB']->sql_error()) {

                                                // Set mapping for NEW... -> real uid:
                                        $NEW_id = $id;          // the NEW_id now holds the 'NEW....' -id
                                        $id = $GLOBALS['TYPO3_DB']->sql_insert_id();
                                        if (!$dontSetNewIdIndex)        {
                                                $this->substNEWwithIDs[$NEW_id] = $id;
                                                $this->substNEWwithIDs_table[$NEW_id] = $table;
                                        }

                                                // Checking the record is properly saved and writing to log
                                        if ($this->checkStoredRecords)  {
                                                $newRow = $this->checkStoredRecord($table,$id,$fieldArray,1);
                                        }

                                                // Update reference index:
                                        $this->updateRefIndex($table,$id);

                                        if ($newVersion)        {
                                                $this->log($table,$id,1,0,0,"New version created of table '%s', uid '%s'",10,array($table,$fieldArray['t3ver_oid']),$newRow['pid'],$NEW_id);
                                        } else {
                                                $propArr = $this->getRecordPropertiesFromRow($table,$newRow);
                                                $page_propArr = $this->getRecordProperties('pages',$propArr['pid']);
                                                $this->log($table,$id,1,0,0,"Record '%s' (%s) was inserted on page '%s' (%s)",10,array($propArr['header'],$table.':'.$id,$page_propArr['header'],$newRow['pid']),$newRow['pid'],$NEW_id);

                                                        // Clear cache for relavant pages:
                                                $this->clear_cache($table,$id);
                                        }

                                        return $id;
                                } else {
                                        $this->log($table,$id,1,0,2,"SQL error: '%s' (%s)",12,array($GLOBALS['TYPO3_DB']->sql_error(),$table.':'.$id));
                                }
                        }
                }
        }

        function checkStoredRecord($table,$id,$fieldArray,$action)      {
                global $TCA;

                $id = intval($id);
                if (is_array($TCA[$table]) && $id)      {
                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('*', $table, 'uid='.intval($id));
                        if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {
                                        // Traverse array of values that was inserted into the database and compare with the actually stored value:
                                $errorString = array();
                                foreach($fieldArray as $key => $value)  {
                                        if ($this->checkStoredRecords_loose && !$value && !$row[$key])  {
                                                // Nothing...
                                        } elseif (strcmp($value,$row[$key]))    {
                                                $errorString[] = $key;
                                        }
                                }

                                        // Set log message if there were fields with unmatching values:
                                if (count($errorString))        {
                                        $this->log($table,$id,$action,0,102,'These fields are not properly updated in database: ('.implode(',',$errorString).') Probably value mismatch with fieldtype.');
                                }

                                        // Return selected rows:
                                return $row;
                        }
                        $GLOBALS['TYPO3_DB']->sql_free_result($res);
                }
        }

        function setHistory($table,$id,$logId)          {
                if (isset($this->historyRecords[$table.':'.$id]))       {

                                // Initialize settings:
                        list($tscPID) = t3lib_BEfunc::getTSCpid($table,$id,'');
                        $TSConfig = $this->getTCEMAIN_TSconfig($tscPID);

                        $tE = $this->getTableEntries($table,$TSConfig);
                        $maxAgeSeconds = 60*60*24*(strcmp($tE['history.']['maxAgeDays'],'') ? t3lib_div::intInRange($tE['history.']['maxAgeDays'],0,365) : 30); // one month

                                // Garbage collect old entries:
                        $this->clearHistory($maxAgeSeconds, $table);

                                // Set history data:
                                $fields_values = array();
                                $fields_values['history_data'] = serialize($this->historyRecords[$table.':'.$id]);
                                $fields_values['fieldlist'] = implode(',',array_keys($this->historyRecords[$table.':'.$id]['newRecord']));
                                $fields_values['tstamp'] = time();
                                $fields_values['tablename'] = $table;
                                $fields_values['recuid'] = $id;
                                $fields_values['sys_log_uid'] = $logId;

                                $GLOBALS['TYPO3_DB']->exec_INSERTquery('sys_history', $fields_values);
                        }
                }

        function clearHistory($maxAgeSeconds=604800,$table)     {
                $tstampLimit = $maxAgeSeconds ? time()-$maxAgeSeconds : 0;

                $GLOBALS['TYPO3_DB']->exec_DELETEquery('sys_history', 'tstamp<'.intval($tstampLimit).' AND tablename='.$GLOBALS['TYPO3_DB']->fullQuoteStr($table, 'sys_history'));
                }

        function updateRefIndex($table,$id)     {
                $refIndexObj = t3lib_div::makeInstance('t3lib_refindex');
                $result = $refIndexObj->updateRefIndexTable($table,$id);
        }













        /*********************************************
         *
         * Misc functions
         *
         ********************************************/

        function getSortNumber($table,$uid,$pid)        {
                global $TCA;
                if ($TCA[$table] && $TCA[$table]['ctrl']['sortby'])     {
                        $sortRow = $TCA[$table]['ctrl']['sortby'];
                        if ($pid>=0)    {       // Sorting number is in the top
                                $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery($sortRow.',pid,uid', $table, 'pid='.intval($pid).$this->deleteClause($table), '', $sortRow.' ASC', '1');          // Fetches the first record under this pid
                                if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {       // There was an element
                                        if ($row['uid']==$uid)  {       // The top record was the record it self, so we return its current sortnumber
                                                return $row[$sortRow];
                                        }
                                        if ($row[$sortRow] < 1) {       // If the pages sortingnumber < 1 we must resort the records under this pid
                                                $this->resorting($table,$pid,$sortRow,0);
                                                return $this->sortIntervals;    // First sorting number after resorting
                                        } else {
                                                return floor($row[$sortRow]/2); // Sorting number between current top element and zero
                                        }
                                } else {        // No pages, so we choose the default value as sorting-number
                                        return $this->sortIntervals;    // First sorting number if no elements.
                                }
                        } else {        // Sorting number is inside the list
                                $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery($sortRow.',pid,uid', $table, 'uid='.abs($pid).$this->deleteClause($table));               // Fetches the record which is supposed to be the prev record
                                if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {       // There was a record

                                                // Look, if the record UID happens to be an offline record. If so, find its live version. Offline uids will be used when a page is versionized as "branch" so this is when we must correct - otherwise a pid of "-1" and a wrong sort-row number is returned which we don't want.
                                        if ($lookForLiveVersion = t3lib_BEfunc::getLiveVersionOfRecord($table,$row['uid'],$sortRow.',pid,uid')) {
                                                $row =  $lookForLiveVersion;
                                        }

                                                // If the record happends to be it self
                                        if ($row['uid']==$uid)  {
                                                $sortNumber = $row[$sortRow];
                                        } else {
                                                $subres = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                                                                                $sortRow.',pid,uid',
                                                                                $table,
                                                                                'pid='.intval($row['pid']).' AND '.$sortRow.'>='.intval($row[$sortRow]).$this->deleteClause($table),
                                                                                '',
                                                                                $sortRow.' ASC',
                                                                                '2'
                                                                        );              // Fetches the next record in order to calculate the in between sortNumber
                                                if ($GLOBALS['TYPO3_DB']->sql_num_rows($subres)==2)     {       // There was a record afterwards
                                                        $GLOBALS['TYPO3_DB']->sql_fetch_assoc($subres);                         // Forward to the second result...
                                                        $subrow = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($subres);       // There was a record afterwards
                                                        $sortNumber = $row[$sortRow]+ floor(($subrow[$sortRow]-$row[$sortRow])/2);      // The sortNumber is found in between these values
                                                        if ($sortNumber<=$row[$sortRow] || $sortNumber>=$subrow[$sortRow])      {       // The sortNumber happend NOT to be between the two surrounding numbers, so we'll have to resort the list
                                                                $sortNumber = $this->resorting($table,$row['pid'],$sortRow,  $row['uid']);      // By this special param, resorting reserves and returns the sortnumber after the uid
                                                        }
                                                } else {        // If after the last record in the list, we just add the sortInterval to the last sortvalue
                                                        $sortNumber = $row[$sortRow]+$this->sortIntervals;
                                                }
                                        }
                                        return Array('pid' => $row['pid'], 'sortNumber' => $sortNumber);
                                } else {
                                        $propArr = $this->getRecordProperties($table,$uid);
                                        $this->log($table,$uid,4,0,1,"Attempt to move record '%s' (%s) to after a non-existing record (uid=%s)",1,array($propArr['header'],$table.':'.$uid,abs($pid)),$propArr['pid']); // OK, dont insert $propArr['event_pid'] here...
                                        return false;   // There MUST be a page or else this cannot work
                                }
                        }
                }
        }

        function resorting($table,$pid,$sortRow, $return_SortNumber_After_This_Uid) {
                global $TCA;
                if ($TCA[$table] && $sortRow && $TCA[$table]['ctrl']['sortby']==$sortRow)       {
                        $returnVal = 0;
                        $intervals = $this->sortIntervals;
                        $i = $intervals*2;

                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, 'pid='.intval($pid).$this->deleteClause($table), '', $sortRow.' ASC');
                        while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {
                                $uid=intval($row['uid']);
                                if ($uid)       {
                                        $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid='.intval($uid), array($sortRow=>$i));
                                        if ($uid==$return_SortNumber_After_This_Uid)    {               // This is used to return a sortingValue if the list is resorted because of inserting records inside the list and not in the top
                                                $i = $i+$intervals;
                                                $returnVal=$i;
                                        }
                                } else {die ('Fatal ERROR!! No Uid at resorting.');}
                                $i = $i+$intervals;
                        }
                        return $returnVal;
                }
        }

        function setTSconfigPermissions($fieldArray,$TSConfig_p)        {
                if (strcmp($TSConfig_p['userid'],''))   $fieldArray['perms_userid']=intval($TSConfig_p['userid']);
                if (strcmp($TSConfig_p['groupid'],''))  $fieldArray['perms_groupid']=intval($TSConfig_p['groupid']);
                if (strcmp($TSConfig_p['user'],''))                     $fieldArray['perms_user']=t3lib_div::testInt($TSConfig_p['user']) ? $TSConfig_p['user'] : $this->assemblePermissions($TSConfig_p['user']);
                if (strcmp($TSConfig_p['group'],''))            $fieldArray['perms_group']=t3lib_div::testInt($TSConfig_p['group']) ? $TSConfig_p['group'] : $this->assemblePermissions($TSConfig_p['group']);
                if (strcmp($TSConfig_p['everybody'],''))        $fieldArray['perms_everybody']=t3lib_div::testInt($TSConfig_p['everybody']) ? $TSConfig_p['everybody'] : $this->assemblePermissions($TSConfig_p['everybody']);

                return $fieldArray;
        }

        function newFieldArray($table)  {
                global $TCA;

                t3lib_div::loadTCA($table);
                $fieldArray=Array();
                if (is_array($TCA[$table]['columns']))  {
                        reset ($TCA[$table]['columns']);
                        while (list($field,$content)=each($TCA[$table]['columns']))     {
                                if (isset($this->defaultValues[$table][$field]))        {
                                        $fieldArray[$field] = $this->defaultValues[$table][$field];
                                } elseif (isset($content['config']['default'])) {
                                        $fieldArray[$field] = $content['config']['default'];
                                }
                        }
                }
                if ($table==='pages')   {               // Set default permissions for a page.
                        $fieldArray['perms_userid'] = $this->userid;
                        $fieldArray['perms_groupid'] = intval($this->BE_USER->firstMainGroup);
                        $fieldArray['perms_user'] = $this->assemblePermissions($this->defaultPermissions['user']);
                        $fieldArray['perms_group'] = $this->assemblePermissions($this->defaultPermissions['group']);
                        $fieldArray['perms_everybody'] = $this->assemblePermissions($this->defaultPermissions['everybody']);
                }
                return $fieldArray;
        }

        function addDefaultPermittedLanguageIfNotSet($table,&$incomingFieldArray)       {
                global $TCA;

                        // Checking languages:
                if ($TCA[$table]['ctrl']['languageField'])      {
                        if (!isset($incomingFieldArray[$TCA[$table]['ctrl']['languageField']])) {       // Language field must be found in input row - otherwise it does not make sense.
                                $rows = array_merge(array(array('uid'=>0)),$GLOBALS['TYPO3_DB']->exec_SELECTgetRows('uid','sys_language','pid=0'.t3lib_BEfunc::deleteClause('sys_language')),array(array('uid'=>-1)));
                                foreach($rows as $r)    {
                                        if ($this->BE_USER->checkLanguageAccess($r['uid']))             {
                                                $incomingFieldArray[$TCA[$table]['ctrl']['languageField']] = $r['uid'];
                                                break;
                                        }
                                }
                        }
                }
        }

        function overrideFieldArray($table,$data)       {
                if (is_array($this->overrideValues[$table]))    {
                        $data = array_merge($data,$this->overrideValues[$table]);
                }
                return $data;
        }

        function compareFieldArrayWithCurrentAndUnset($table,$id,$fieldArray)   {

                        // Fetch the original record:
                $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('*', $table, 'uid='.intval($id));
                $currentRecord = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res);

                        // If the current record exists (which it should...), begin comparison:
                if (is_array($currentRecord))   {

                                // Read all field types:
                        $c = 0;
                        $cRecTypes = array();
                        foreach($currentRecord as $col => $val) {
                                $cRecTypes[$col] = $GLOBALS['TYPO3_DB']->sql_field_type($res,$c);
                                $c++;
                        }

                                // Free result:
                        $GLOBALS['TYPO3_DB']->sql_free_result($res);

                                // Unset the fields which are similar:
                        foreach($fieldArray as $col => $val)    {
                                if (
                                                !strcmp($val,$currentRecord[$col]) ||   // Unset fields which matched exactly.
                                                ($cRecTypes[$col]=='int' && $currentRecord[$col]==0 && !strcmp($val,''))        // Now, a situation where TYPO3 tries to put an empty string into an integer field, we should not strcmp the integer-zero and '', but rather accept them to be similar.
                                        )       {
                                        unset($fieldArray[$col]);
                                } else {
                                        $this->historyRecords[$table.':'.$id]['oldRecord'][$col] = $currentRecord[$col];
                                        $this->historyRecords[$table.':'.$id]['newRecord'][$col] = $fieldArray[$col];
                                }
                        }
                } else {        // If the current record does not exist this is an error anyways and we just return an empty array here.
                        $fieldArray = array();
                }

                return $fieldArray;
        }

        function assemblePermissions($string)   {
                $keyArr = t3lib_div::trimExplode(',',$string,1);
                $value=0;
                while(list(,$key)=each($keyArr))        {
                        if ($key && isset($this->pMap[$key]))   {
                                $value |= $this->pMap[$key];
                        }
                }
                return $value;
        }

        function rmComma($input)        {
                return ereg_replace(',$','',$input);
        }

        function convNumEntityToByteValue($input)       {
                $token = md5(microtime());
                $parts = explode($token,ereg_replace('(&#([0-9]+);)',$token.'\2'.$token,$input));

                foreach($parts as $k => $v)     {
                        if ($k%2)       {
                                $v = intval($v);
                                if ($v > 32)    {       // Just to make sure that control bytes are not converted.
                                        $parts[$k] =chr(intval($v));
                                }
                        }
                }

                return implode('',$parts);
        }

        function destPathFromUploadFolder($folder)      {
                return PATH_site.$folder;
        }

        function deleteClause($table)   {
                        // Returns the proper delete-clause if any for a table from TCA
                global $TCA;
                if ($TCA[$table]['ctrl']['delete'])     {
                        return ' AND '.$table.'.'.$TCA[$table]['ctrl']['delete'].'=0';
                } else {
                        return '';
                }
        }

        function getTCEMAIN_TSconfig($tscPID)   {
                if (!isset($this->cachedTSconfig[$tscPID]))     {
                        $this->cachedTSconfig[$tscPID] = $this->BE_USER->getTSConfig('TCEMAIN',t3lib_BEfunc::getPagesTSconfig($tscPID));
                }
                return $this->cachedTSconfig[$tscPID]['properties'];
        }

        function getTableEntries($table,$TSconfig)      {
                $tA = is_array($TSconfig['table.'][$table.'.']) ? $TSconfig['table.'][$table.'.'] : array();;
                $dA = is_array($TSconfig['default.']) ? $TSconfig['default.'] : array();
                return t3lib_div::array_merge_recursive_overrule($dA,$tA);
        }

        function getPID($table,$uid)    {
                $res_tmp = $GLOBALS['TYPO3_DB']->exec_SELECTquery('pid', $table, 'uid='.intval($uid));
                if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res_tmp))     {
                        return $row['pid'];
                }
        }

        function dbAnalysisStoreExec()  {
                reset($this->dbAnalysisStore);
                while(list($k,$v)=each($this->dbAnalysisStore)) {
                        $id = $this->substNEWwithIDs[$v[2]];
                        if ($id)        {
                                $v[2] = $id;
                                $v[0]->writeMM($v[1],$v[2],$v[3]);
                        }
                }
        }

        function removeRegisteredFiles()        {
                reset($this->removeFilesStore);
                while(list($k,$v)=each($this->removeFilesStore))        {
                        unlink($v);
                }
        }

        function removeCacheFiles()     {
                return t3lib_extMgm::removeCacheFiles();
        }

        function int_pageTreeInfo($CPtable,$pid,$counter, $rootID)      {
                if ($counter)   {
                        $addW =  !$this->admin ? ' AND '.$this->BE_USER->getPagePermsClause($this->pMap['show']) : '';
                        $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', 'pages', 'pid='.intval($pid).$this->deleteClause('pages').$addW, '', 'sorting DESC');
                        while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($mres))      {
                                if ($row['uid']!=$rootID)       {
                                        $CPtable[$row['uid']] = $pid;
                                        if ($counter-1) {       // If the uid is NOT the rootID of the copyaction and if we are supposed to walk further down
                                                $CPtable = $this->int_pageTreeInfo($CPtable,$row['uid'],$counter-1, $rootID);
                                        }
                                }
                        }
                }
                return $CPtable;
        }

        function compileAdminTables()   {
                global $TCA;
                reset ($TCA);
                $listArr = array();
                while (list($table)=each($TCA)) {
                        $listArr[]=$table;
                }
                return $listArr;
        }

        function fixUniqueInPid($table,$uid)    {
                global $TCA;
                if ($TCA[$table])       {
                        t3lib_div::loadTCA($table);
                        reset ($TCA[$table]['columns']);
                        $curData=$this->recordInfo($table,$uid,'*');
                        $newData=array();
                        while (list($field,$conf)=each($TCA[$table]['columns']))        {
                                if ($conf['config']['type']=='input')   {
                                        $evalCodesArray = t3lib_div::trimExplode(',',$conf['config']['eval'],1);
                                        if (in_array('uniqueInPid',$evalCodesArray))    {
                                                $newV = $this->getUnique($table,$field,$curData[$field],$uid,$curData['pid']);
                                                if (strcmp($newV,$curData[$field]))     {
                                                        $newData[$field]=$newV;
                                                }
                                        }
                                }
                        }
                                // IF there are changed fields, then update the database
                        if (count($newData))    {
                                $this->updateDB($table,$uid,$newData);
                        }
                }
        }

        function fixCopyAfterDuplFields($table,$uid,$prevUid,$update, $newData=array()) {
                global $TCA;
                if ($TCA[$table] && $TCA[$table]['ctrl']['copyAfterDuplFields'])        {
                        t3lib_div::loadTCA($table);
                        $prevData=$this->recordInfo($table,$prevUid,'*');
                        $theFields = t3lib_div::trimExplode(',',$TCA[$table]['ctrl']['copyAfterDuplFields'],1);
                        reset($theFields);
                        while(list(,$field)=each($theFields))   {
                                if ($TCA[$table]['columns'][$field] && ($update || !isset($newData[$field])))   {
                                        $newData[$field]=$prevData[$field];
                                }
                        }
                        if ($update && count($newData)) {
                                $this->updateDB($table,$uid,$newData);
                        }
                }
                return $newData;
        }

        function extFileFields($table)  {
                global $TCA;
                $listArr=array();
                t3lib_div::loadTCA($table);
                if ($TCA[$table]['columns'])    {
                        reset($TCA[$table]['columns']);
                        while (list($field,$configArr)=each($TCA[$table]['columns']))   {
                                if ($configArr['config']['type']=='group' && $configArr['config']['internal_type']=='file')     {
                                        $listArr[]=$field;
                                }
                        }
                }
                return $listArr;
        }

        function getUniqueFields($table)        {
                global $TCA;

                $listArr=array();
                t3lib_div::loadTCA($table);
                if ($TCA[$table]['columns'])    {
                        reset($TCA[$table]['columns']);
                        while (list($field,$configArr)=each($TCA[$table]['columns']))   {
                                if ($configArr['config']['type']==='input')     {
                                        $evalCodesArray = t3lib_div::trimExplode(',',$configArr['config']['eval'],1);
                                        if (in_array('uniqueInPid',$evalCodesArray) || in_array('unique',$evalCodesArray))      {
                                                $listArr[]=$field;
                                        }
                                }
                        }
                }
                return $listArr;
        }

        function isReferenceField($conf)        {
                return ($conf['type']=='group' && $conf['internal_type']=='db') ||      ($conf['type']=='select' && $conf['foreign_table']);
        }

        function getInlineFieldType($conf) {
                if ($conf['type'] == 'inline' && $conf['foreign_table']) {
                        if ($conf['foreign_field'])
                                return 'field';         // the reference to the parent is stored in a pointer field in the child record
                        elseif ($conf['MM'])
                                return 'mm';            // regular MM intermediate table is used to store data
                        else
                                return 'list';          // an item list (separated by comma) is stored (like select type is doing)
                }
                return false;
        }

        function getCopyHeader($table,$pid,$field,$value,$count,$prevTitle='')  {
                global $TCA;

                        // Set title value to check for:
                if ($count)     {
                        $checkTitle = $value.rtrim(' '.sprintf($this->prependLabel($table),$count));
                }       else {
                        $checkTitle = $value;
                }

                        // Do check:
                if ($prevTitle != $checkTitle || $count<100)    {
                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid', $table, 'pid='.intval($pid).' AND '.$field.'='.$GLOBALS['TYPO3_DB']->fullQuoteStr($checkTitle, $table).$this->deleteClause($table), '', '', '1');
                        if ($GLOBALS['TYPO3_DB']->sql_num_rows($res))   {
                                return $this->getCopyHeader($table,$pid,$field,$value,$count+1,$checkTitle);
                        }
                }

                        // Default is to just return the current input title if no other was returned before:
                return $checkTitle;
        }

        function prependLabel($table)   {
                global $TCA;
                if (is_object($GLOBALS['LANG']))        {
                        $label = $GLOBALS['LANG']->sL($TCA[$table]['ctrl']['prependAtCopy']);
                } else {
                        list($label) = explode('|',$TCA[$table]['ctrl']['prependAtCopy']);
                }
                return $label;
        }

        function resolvePid($table,$pid)        {
                global $TCA;
                $pid = intval($pid);
                if ($pid < 0)   {
                        $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('pid', $table, 'uid='.abs($pid));
                        $row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res);

                                // Look, if the record UID happens to be an offline record. If so, find its live version. Offline uids will be used when a page is versionized as "branch" so this is when we must correct - otherwise a pid of "-1" and a wrong sort-row number is returned which we don't want.
                        if ($lookForLiveVersion = t3lib_BEfunc::getLiveVersionOfRecord($table,abs($pid),'pid')) {
                                $row = $lookForLiveVersion;
                        }

                        $pid = intval($row['pid']);
                } elseif ($this->BE_USER->workspace!==0 && $TCA[$table]['ctrl']['versioning_followPages']) { // PID points to page, the workspace is an offline space and the table follows page during versioning: This means we must check if the PID page has a version in the workspace with swapmode set to 0 (zero = page+content) and if so, change the pid to the uid of that version.
                        if ($WSdestPage = t3lib_BEfunc::getWorkspaceVersionOfRecord($this->BE_USER->workspace, 'pages', $pid, 'uid,t3ver_swapmode'))    {       // Looks for workspace version of page.
                                if ($WSdestPage['t3ver_swapmode']==0)   {       // if swapmode is zero, then change pid value.
                                        $pid = $WSdestPage['uid'];
                                }
                        }
                }
                return $pid;
        }

        function clearPrefixFromValue($table,$value)    {
                global $TCA;
                $regex = sprintf(quotemeta($this->prependLabel($table)),'[0-9]*').'$';
                return @ereg_replace($regex,'',$value);
        }

        function extFileFunctions($table,$field,$filelist,$func)        {
                global $TCA;
                t3lib_div::loadTCA($table);
                $uploadFolder = $TCA[$table]['columns'][$field]['config']['uploadfolder'];
                if ($uploadFolder && trim($filelist))   {
                        $uploadPath = $this->destPathFromUploadFolder($uploadFolder);
                        $fileArray = explode(',',$filelist);
                        while (list(,$theFile)=each($fileArray))        {
                                $theFile=trim($theFile);
                                if ($theFile)   {
                                        switch($func)   {
                                                case 'deleteAll':
                                                        if (@is_file($uploadPath.'/'.$theFile)) {
                                                                unlink ($uploadPath.'/'.$theFile);
                                                        } else {
                                                                $this->log($table,0,3,0,100,"Delete: Referenced file that was supposed to be deleted together with it's record didn't exist");
                                                        }
                                                break;
                                        }
                                }
                        }
                }
        }

        function noRecordsFromUnallowedTables($inList)  {
                global $TCA;
                reset ($TCA);
                $inList = trim($this->rmComma(trim($inList)));
                if ($inList && !$this->admin)   {
                        while (list($table) = each($TCA))       {
                                $mres = $GLOBALS['TYPO3_DB']->exec_SELECTquery('count(*)', $table, 'pid IN ('.$inList.')'.t3lib_BEfunc::deleteClause($table));
                                $count = $GLOBALS['TYPO3_DB']->sql_fetch_row($mres);
                                if ($count[0] && ($this->tableReadOnly($table) || !$this->checkModifyAccessList($table)))       {
                                        return FALSE;
                                }
                        }
                }
                return TRUE;
        }

        function notifyStageChange($stat,$stageId,$table,$id,$comment)  {
                $workspaceRec = t3lib_BEfunc::getRecord('sys_workspace', $stat['uid']);

                if (is_array($workspaceRec))    {

                                // Compile label:
                        switch((int)$stageId)   {
                                case 1:
                                        $newStage = 'Ready for review';
                                break;
                                case 10:
                                        $newStage = 'Ready for publishing';
                                break;
                                case -1:
                                        $newStage = 'Element was rejected!';
                                break;
                                case 0:
                                        $newStage = 'Rejected element was noticed and edited';
                                break;
                                default:
                                        $newStage = 'Unknown state change!?';
                                break;
                        }

                                // Compile list of recipients:
                        $emails = array();
                        switch((int)$stat['stagechg_notification'])     {
                                case 1:
                                        switch((int)$stageId)   {
                                                case 1:
                                                        $emails = $this->notifyStageChange_getEmails($workspaceRec['reviewers']);
                                                break;
                                                case 10:
                                                        $emails = $this->notifyStageChange_getEmails($workspaceRec['adminusers'], TRUE);
                                                break;
                                                case -1:
                                                        $emails = $this->notifyStageChange_getEmails($workspaceRec['reviewers']);
                                                        $emails = array_merge($emails,$this->notifyStageChange_getEmails($workspaceRec['members']));
                                                break;
                                                case 0:
                                                        $emails = $this->notifyStageChange_getEmails($workspaceRec['members']);
                                                break;
                                                default:
                                                        $emails = $this->notifyStageChange_getEmails($workspaceRec['adminusers'], TRUE);
                                                break;
                                        }
                                break;
                                case 10:
                                        $emails = $this->notifyStageChange_getEmails($workspaceRec['adminusers'], TRUE);
                                        $emails = array_merge($emails,$this->notifyStageChange_getEmails($workspaceRec['reviewers']));
                                        $emails = array_merge($emails,$this->notifyStageChange_getEmails($workspaceRec['members']));
                                break;
                        }
                        $emails = array_unique($emails);

                                // Send email:
                        if (count($emails))     {
                                $message = sprintf('
At the TYPO3 site "%s" (%s)
in workspace "%s" (#%s)
the stage has changed for the element "%s":

==> %s

User Comment:
"%s"

State was change by %s (username: %s)
                                ',
                                $GLOBALS['TYPO3_CONF_VARS']['SYS']['sitename'],
                                t3lib_div::getIndpEnv('TYPO3_SITE_URL').TYPO3_mainDir,
                                $workspaceRec['title'],
                                $workspaceRec['uid'],
                                $table.':'.$id,
                                $newStage,
                                $comment,
                                $this->BE_USER->user['realName'],
                                $this->BE_USER->user['username']);

                                t3lib_div::plainMailEncoded(
                                        implode(',',$emails),
                                        'TYPO3 Workspace Note: Stage Change for '.$table.':'.$id,
                                        trim($message)
                                );
                        }
                }
        }

        function notifyStageChange_getEmails($listOfUsers,$noTablePrefix=FALSE) {
                $users = t3lib_div::trimExplode(',',$listOfUsers,1);
                $emails = array();
                foreach($users as $userIdent)   {
                        if ($noTablePrefix)     {
                                $id = intval($userIdent);
                        } else {
                                list($table,$id) = t3lib_div::revExplode('_',$userIdent,2);
                        }
                        if ($table==='be_users' || $noTablePrefix)      {
                                if ($userRecord = t3lib_BEfunc::getRecord('be_users', $id, 'email'))    {
                                        if (strlen(trim($userRecord['email']))) {
                                                $emails[$id] = $userRecord['email'];
                                        }
                                }
                        }
                }
                return $emails;
        }












        /******************************
         *
         * Clearing cache
         *
         ******************************/

        function clear_cache($table,$uid) {
                global $TCA, $TYPO3_CONF_VARS;

                $uid = intval($uid);
                if (is_array($TCA[$table]) && $uid > 0) {

                                // Get Page TSconfig relavant:
                        list($tscPID) = t3lib_BEfunc::getTSCpid($table,$uid,'');
                        $TSConfig = $this->getTCEMAIN_TSconfig($tscPID);

                        if (!$TSConfig['clearCache_disable'])   {

                                        // If table is "pages":
                                if (t3lib_extMgm::isLoaded('cms'))      {
                                        $list_cache = array();
                                        if ($table=='pages')    {

                                                        // Builds list of pages on the SAME level as this page (siblings)
                                                $res_tmp = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                                                                                'A.pid AS pid, B.uid AS uid',
                                                                                'pages A, pages B',
                                                                                'A.uid='.intval($uid).' AND B.pid=A.pid AND B.deleted=0'
                                                                        );

                                                $pid_tmp = 0;
                                                while ($row_tmp = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res_tmp)) {
                                                        $list_cache[] = $row_tmp['uid'];
                                                        $pid_tmp = $row_tmp['pid'];

                                                                // Add children as well:
                                                        if ($TSConfig['clearCache_pageSiblingChildren'])        {
                                                                $res_tmp2 = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                                                                                                'uid',
                                                                                                'pages',
                                                                                                'pid='.intval($row_tmp['uid']).' AND deleted=0'
                                                                                        );
                                                                while ($row_tmp2 = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res_tmp2))    {
                                                                        $list_cache[] = $row_tmp2['uid'];
                                                                }
                                                        }
                                                }

                                                        // Finally, add the parent page as well:
                                                $list_cache[] = $pid_tmp;

                                                        // Add grand-parent as well:
                                                if ($TSConfig['clearCache_pageGrandParent'])    {
                                                        $res_tmp = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                                                                                        'pid',
                                                                                        'pages',
                                                                                        'uid='.intval($pid_tmp)
                                                                                );
                                                        if ($row_tmp = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res_tmp)) {
                                                                $list_cache[] = $row_tmp['pid'];
                                                        }
                                                }
                                        } else {        // For other tables than "pages", delete cache for the records "parent page".
                                                $list_cache[] = intval($this->getPID($table,$uid));
                                        }

                                                // Call pre-processing function for clearing of cache for page ids:
                                        if (is_array($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearPageCacheEval']))    {
                                                foreach($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearPageCacheEval'] as $funcName)     {
                                                        $_params = array('pageIdArray' => &$list_cache, 'table' => $table, 'uid' => $uid, 'functionID' => 'clear_cache()');
                                                                // Returns the array of ids to clear, false if nothing should be cleared! Never an empty array!
                                                        t3lib_div::callUserFunction($funcName,$_params,$this);
                                                }
                                        }

                                                // Delete cache for selected pages:
                                        if (is_array($list_cache))      {
                                                $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pages','page_id IN ('.implode(',',$GLOBALS['TYPO3_DB']->cleanIntArray($list_cache)).')');
                                                $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pagesection', 'page_id IN ('.implode(',',$GLOBALS['TYPO3_DB']->cleanIntArray($list_cache)).')');
                                        }
                                }
                        }

                                // Clear cache for pages entered in TSconfig:
                        if ($TSConfig['clearCacheCmd']) {
                                $Commands = t3lib_div::trimExplode(',',strtolower($TSConfig['clearCacheCmd']),1);
                                $Commands = array_unique($Commands);
                                foreach($Commands as $cmdPart)  {
                                        $this->clear_cacheCmd($cmdPart);
                                }
                        }

                                // Call post processing function for clear-cache:
                        global $TYPO3_CONF_VARS;
                        if (is_array($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearCachePostProc']))    {
// FIXME $uid_page is undefined
                                $_params = array('table' => $table,'uid' => $uid,'uid_page' => $uid_page,'TSConfig' => $TSConfig);
                                foreach($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearCachePostProc'] as $_funcRef)     {
                                        t3lib_div::callUserFunction($_funcRef,$_params,$this);
                                }
                        }
                }
        }

        function clear_cacheCmd($cacheCmd)      {
                global $TYPO3_CONF_VARS;

                        // Clear cache for either ALL pages or ALL tables!
                switch($cacheCmd)       {
                        case 'pages':
                                if ($this->admin || $this->BE_USER->getTSConfigVal('options.clearCache.pages')) {
                                        if (t3lib_extMgm::isLoaded('cms'))      {
                                                $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pages','');
                                        }
                                }
                        break;
                        case 'all':
                                if ($this->admin || $this->BE_USER->getTSConfigVal('options.clearCache.all'))   {
                                        if (t3lib_extMgm::isLoaded('cms'))      {
                                                $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pages','');
                                                $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pagesection','');
                                        }
                                        $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_hash','');

                                                // Clearing additional cache tables:
                                        if (is_array($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearAllCache_additionalTables']))        {
                                                foreach($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearAllCache_additionalTables'] as $tableName)        {
                                                        if (!ereg('[^[:alnum:]_]',$tableName) && substr($tableName,-5)=='cache')        {
                                                                $GLOBALS['TYPO3_DB']->exec_DELETEquery($tableName,'');
                                                        } else {
                                                                die('Fatal Error: Trying to flush table "'.$tableName.'" with "Clear All Cache"');
                                                        }
                                                }
                                        }
                                }
                        break;
                        case 'temp_CACHED':
                                if ($this->admin && $TYPO3_CONF_VARS['EXT']['extCache'])        {
                                        $this->removeCacheFiles();
                                }
                        break;
                }

                        // Clear cache for a page ID!
                if (t3lib_div::testInt($cacheCmd))      {
                        if (t3lib_extMgm::isLoaded('cms'))      {

                                $list_cache = array($cacheCmd);

                                        // Call pre-processing function for clearing of cache for page ids:
                                if (is_array($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearPageCacheEval']))    {
                                        foreach($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearPageCacheEval'] as $funcName)     {
                                                $_params = array('pageIdArray' => &$list_cache, 'cacheCmd' => $cacheCmd, 'functionID' => 'clear_cacheCmd()');
                                                        // Returns the array of ids to clear, false if nothing should be cleared! Never an empty array!
                                                t3lib_div::callUserFunction($funcName,$_params,$this);
                                        }
                                }

                                        // Delete cache for selected pages:
                                if (is_array($list_cache))      {
                                        $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pages','page_id IN ('.implode(',',$GLOBALS['TYPO3_DB']->cleanIntArray($list_cache)).')');
                                        $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_pagesection', 'page_id IN ('.implode(',',$GLOBALS['TYPO3_DB']->cleanIntArray($list_cache)).')');  // Originally, cache_pagesection was not cleared with cache_pages!
                                }
                        }
                }

                        // Call post processing function for clear-cache:
                if (is_array($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearCachePostProc']))    {
                        $_params = array('cacheCmd'=>$cacheCmd);
                        foreach($TYPO3_CONF_VARS['SC_OPTIONS']['t3lib/class.t3lib_tcemain.php']['clearCachePostProc'] as $_funcRef)     {
                                t3lib_div::callUserFunction($_funcRef,$_params,$this);
                        }
                }
        }














        /*****************************
         *
         * Logging
         *
         *****************************/

        function log($table,$recuid,$action,$recpid,$error,$details,$details_nr=-1,$data=array(),$event_pid=-1,$NEWid='') {
                if ($this->enableLogging)       {
                        $type=1;        // Type value for tce_db.php
                        if (!$this->storeLogMessages)   {$details='';}
                        if ($error>0)   $this->errorLog[] = '['.$type.'.'.$action.'.'.$details_nr.']: '.$details;
                        return $this->BE_USER->writelog($type,$action,$error,$details_nr,$details,$data,$table,$recuid,$recpid,$event_pid,$NEWid);
                }
        }

        function newlog($message, $error=0)     {
                return $this->log('',0,0,0,$error,$message,-1);
        }

        function printLogErrorMessages($redirect)       {

                $res_log = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                                        '*',
                                        'sys_log',
                                        'type=1 AND userid='.intval($this->BE_USER->user['uid']).' AND tstamp='.intval($GLOBALS['EXEC_TIME']).' AND error!=0'
                                );
                $errorJS = array();
                while ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res_log)) {
                        $log_data = unserialize($row['log_data']);
                        $errorJS[] = $row['error'].': '.sprintf($row['details'], $log_data[0],$log_data[1],$log_data[2],$log_data[3],$log_data[4]);
                }

                if (count($errorJS))    {
                        $error_doc = t3lib_div::makeInstance('template');
                        $error_doc->backPath = $GLOBALS['BACK_PATH'];

                        $content.= $error_doc->startPage('tce_db.php Error output');

                        $lines[] = '
                                        <tr class="bgColor5">
                                                <td colspan="2" align="center"><strong>Errors:</strong></td>
                                        </tr>';

                        foreach($errorJS as $line)      {
                                $lines[] = '
                                        <tr class="bgColor4">
                                                <td valign="top"><img'.t3lib_iconWorks::skinImg($error_doc->backPath,'gfx/icon_fatalerror.gif','width="18" height="16"').' alt="" /></td>
                                                <td>'.htmlspecialchars($line).'</td>
                                        </tr>';
                        }

                        $lines[] = '
                                        <tr>
                                                <td colspan="2" align="center"><br />'.
                                                '<form action=""><input type="submit" value="Continue" onclick="'.htmlspecialchars('window.location.href=\''.$redirect.'\';return false;').'"></form>'.
                                                '</td>
                                        </tr>';

                        $content.= '
                                <br/><br/>
                                <table border="0" cellpadding="1" cellspacing="1" width="300" align="center">
                                        '.implode('',$lines).'
                                </table>';

                        $content.= $error_doc->endPage();
                        echo $content;
                        exit;
                }
        }
}



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

---