class.t3lib_befunc.php

Go to the documentation of this file.

<?php
/***************************************************************
*  Copyright notice
*
*  (c) 1999-2004 Kasper Skaarhoj (kasperYYYY@typo3.com)
*  All rights reserved
*
*  This script is part of the TYPO3 project. The TYPO3 project is
*  free software; you can redistribute it and/or modify
*  it under the terms of the GNU General Public License as published by
*  the Free Software Foundation; either version 2 of the License, or
*  (at your option) any later version.
*
*  The GNU General Public License can be found at
*  http://www.gnu.org/copyleft/gpl.html.
*  A copy is found in the textfile GPL.txt and important notices to the license
*  from the author is found in LICENSE.txt distributed with these scripts.
*
*
*  This script is distributed in the hope that it will be useful,
*  but WITHOUT ANY WARRANTY; without even the implied warranty of
*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
*  GNU General Public License for more details.
*
*  This copyright notice MUST APPEAR in all copies of the script!
***************************************************************/
class t3lib_BEfunc   {



   /*******************************************
    *
    * SQL-related, selecting records, searching
    *
    *******************************************/


   function deleteClause($table) {
      global $TCA;
      if ($TCA[$table]['ctrl']['delete']) {
         return ' AND NOT '.$table.'.'.$TCA[$table]['ctrl']['delete'];
      } else {
         return '';
      }
   }

   function getRecord($table,$uid,$fields='*',$where='') {
      if ($GLOBALS['TCA'][$table])  {
         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery($fields, $table, 'uid='.intval($uid).t3lib_BEfunc::deleteClause($table).$where);
         if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))  {
            return $row;
         }
      }
   }

   function getRecordRaw($table,$where='',$fields='*')   {
      $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery($fields, $table, $where);
      if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))  {
         return $row;
      }
   }

   function getRecordsByField($theTable,$theField,$theValue,$whereClause='',$groupBy='',$orderBy='',$limit='') {
      global $TCA;
      if (is_array($TCA[$theTable])) {
         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                  '*',
                  $theTable,
                  $theField.'="'.$GLOBALS['TYPO3_DB']->quoteStr($theValue, $theTable).'"'.
                     t3lib_BEfunc::deleteClause($theTable).' '.
                     $whereClause,  // whereClauseMightContainGroupOrderBy
                  $groupBy,
                  $orderBy,
                  $limit
               );
         $rows = array();
         while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
            $rows[] = $row;
         }
         $GLOBALS['TYPO3_DB']->sql_free_result($res);
         if (count($rows)) return $rows;
      }
   }

   function fixVersioningPid($table,&$rr) {
      global $TCA;

      if ($rr['pid']==-1 && $TCA[$table]['ctrl']['versioning'])   {
         if ($rr['t3ver_oid']>0) {  // If "t3ver_oid" is already a field, just set this:
            $oid = $rr['t3ver_oid'];
         } else { // Otherwise we have to expect "uid" to be in the record and look up based on this:
            $newPidRec = t3lib_BEfunc::getRecord($table,$rr['uid'],'t3ver_oid');
            if (is_array($newPidRec))  {
               $oid = $newPidRec['t3ver_oid'];
            }
         }

            // If ID of current online version is found, look up the PID value of that:
         if ($oid)   {
            $oidRec = t3lib_BEfunc::getRecord($table,$oid,'pid');
            if (is_array($oidRec))  {
               $rr['_ORIG_pid'] = $rr['pid'];
               $rr['pid'] = $oidRec['pid'];
            }
         }
      }
   }

   function searchQuery($searchWords,$fields,$table='')  {
      return $GLOBALS['TYPO3_DB']->searchQuery($searchWords,$fields,$table);
   }

   function listQuery($field,$value)   {
      return $GLOBALS['TYPO3_DB']->listQuery($field,$value,'');
   }

   function splitTable_Uid($str) {
      list($uid,$table) = explode('_',strrev($str),2);
      return array(strrev($table),strrev($uid));
   }

   function getSQLselectableList($in_list,$tablename,$default_tablename)   {
      $list = Array();
      if ((string)trim($in_list)!='')  {
         $tempItemArray = explode(',',trim($in_list));
         while(list($key,$val)=each($tempItemArray))  {
            $val = strrev($val);
            $parts = explode('_',$val,2);
            if ((string)trim($parts[0])!='') {
               $theID = intval(strrev($parts[0]));
               $theTable = trim($parts[1]) ? strrev(trim($parts[1])) : $default_tablename;
               if ($theTable==$tablename) {$list[]=$theID;}
            }
         }
      }
      return implode(',',$list);
   }

   function BEenableFields($table,$inv=0) {
      $ctrl = $GLOBALS['TCA'][$table]['ctrl'];
      $query=array();
      $invQuery=array();
      if (is_array($ctrl)) {
         if (is_array($ctrl['enablecolumns']))  {
            if ($ctrl['enablecolumns']['disabled'])   {
               $field = $table.'.'.$ctrl['enablecolumns']['disabled'];
               $query[]='NOT '.$field;
               $invQuery[]=$field;
            }
            if ($ctrl['enablecolumns']['starttime'])  {
               $field = $table.'.'.$ctrl['enablecolumns']['starttime'];
               $query[]='('.$field.'<='.$GLOBALS['SIM_EXEC_TIME'].')';
               $invQuery[]='('.$field.'!=0 AND '.$field.'>'.$GLOBALS['SIM_EXEC_TIME'].')';
            }
            if ($ctrl['enablecolumns']['endtime']) {
               $field = $table.'.'.$ctrl['enablecolumns']['endtime'];
               $query[]='('.$field.'=0 OR '.$field.'>'.$GLOBALS['SIM_EXEC_TIME'].')';
               $invQuery[]='('.$field.'!=0 AND '.$field.'<='.$GLOBALS['SIM_EXEC_TIME'].')';
            }
         }
      }
      $outQ = ' AND '.($inv ? '('.implode(' OR ',$invQuery).')' : implode(' AND ',$query));

      return $outQ;
   }










   /*******************************************
    *
    * SQL-related, DEPRECIATED functions
    * (use t3lib_DB functions instead)
    *
    *******************************************/


   function mm_query($select,$local_table,$mm_table,$foreign_table,$whereClause='',$groupBy='',$orderBy='',$limit='')   {
      $query = $GLOBALS['TYPO3_DB']->SELECTquery(
               $select,
               $local_table.','.$mm_table.($foreign_table?','.$foreign_table:''),
               $local_table.'.uid='.$mm_table.'.uid_local'.($foreign_table?' AND '.$foreign_table.'.uid='.$mm_table.'.uid_foreign':'').' '.
                  $whereClause,  // whereClauseMightContainGroupOrderBy
               $groupBy,
               $orderBy,
               $limit
            );
      return $query;
   }

   function DBcompileInsert($table,$fields_values) {
      return $GLOBALS['TYPO3_DB']->INSERTquery($table, $fields_values);
   }

   function DBcompileUpdate($table,$where,$fields_values)   {
      return $GLOBALS['TYPO3_DB']->UPDATEquery($table, $where, $fields_values);
   }










   /*******************************************
    *
    * Page tree, TCA related
    *
    *******************************************/

   function BEgetRootLine($uid,$clause='')   {
      $loopCheck = 100;
      $theRowArray = Array();
      $output=Array();
      while ($uid!=0 && $loopCheck>0)  {
         $loopCheck--;
         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                     'pid,uid,title,TSconfig,is_siteroot,storage_pid',
                     'pages',
                     'uid='.intval($uid).' '.
                        t3lib_BEfunc::deleteClause('pages').' '.
                        $clause     // whereClauseMightContainGroupOrderBy
                  );
         if ($GLOBALS['TYPO3_DB']->sql_error()) {
            debug($GLOBALS['TYPO3_DB']->sql_error(),1);
         }
         if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))  {
            t3lib_BEfunc::fixVersioningPid('pages',$row);
            $uid = $row['pid'];
            $theRowArray[]=$row;
         } else {
            break;
         }
      }
      if ($uid==0) {$theRowArray[]=Array('uid'=>0,'title'=>'');}
      if (is_array($theRowArray))   {
         reset($theRowArray);
         $c=count($theRowArray);
         while(list($key,$val)=each($theRowArray)) {
            $c--;
            $output[$c]['uid'] = $val['uid'];
            $output[$c]['pid'] = $val['pid'];
            if (isset($val['_ORIG_pid'])) $output[$c]['_ORIG_pid'] = $val['_ORIG_pid'];
            $output[$c]['title'] = $val['title'];
            $output[$c]['TSconfig'] = $val['TSconfig'];
            $output[$c]['is_siteroot'] = $val['is_siteroot'];
            $output[$c]['storage_pid'] = $val['storage_pid'];
         }
      }
      return $output;
   }

   function openPageTree($pid,$clearExpansion)  {
      global $BE_USER;

         // Get current expansion data:
      if ($clearExpansion) {
         $expandedPages = array();
      } else {
         $expandedPages = unserialize($BE_USER->uc['browseTrees']['browsePages']);
      }

         // Get rootline:
      $rL = t3lib_BEfunc::BEgetRootLine($pid);

         // First, find out what mount index to use (if more than one DB mount exists):
      $mountIndex = 0;
      $mountKeys = array_flip($BE_USER->returnWebmounts());
      foreach($rL as $rLDat)  {
         if (isset($mountKeys[$rLDat['uid']]))  {
            $mountIndex = $mountKeys[$rLDat['uid']];
            break;
         }
      }

         // Traverse rootline and open paths:
      foreach($rL as $rLDat)  {
         $expandedPages[$mountIndex][$rLDat['uid']] = 1;
      }

         // Write back:
      $BE_USER->uc['browseTrees']['browsePages'] = serialize($expandedPages);
      $BE_USER->writeUC();
   }

   function getRecordPath($uid, $clause, $titleLimit, $fullTitleLimit=0)   {
      if (!$titleLimit) { $titleLimit=1000; }

      $loopCheck = 100;
      $output = $fullOutput = '/';
      while ($uid!=0 && $loopCheck>0)  {
         $loopCheck--;
         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                  'uid,pid,title',
                  'pages',
                  'uid='.intval($uid).
                     t3lib_BEfunc::deleteClause('pages').
                     (strlen(trim($clause)) ? ' AND '.$clause : '')
               );
         if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))  {
            t3lib_BEfunc::fixVersioningPid('pages',$row);

            if ($row['_ORIG_pid'])  {
               $output = ' [#VEP#]'.$output;    // Adding visual token - Versioning Entry Point - that tells that THIS position was where the versionized branch got connected to the main tree. I will have to find a better name or something...
            }
            $uid = $row['pid'];
            $output = '/'.t3lib_div::fixed_lgd_cs(strip_tags($row['title']),$titleLimit).$output;
            if ($fullTitleLimit) $fullOutput = '/'.t3lib_div::fixed_lgd_cs(strip_tags($row['title']),$fullTitleLimit).$fullOutput;
         } else {
            break;
         }
      }

      if ($fullTitleLimit) {
         return array($output, $fullOutput);
      } else {
         return $output;
      }
   }

   function getExcludeFields()   {
      global $TCA;
         // All TCA keys:
      $theExcludeArray = Array();
      $tc_keys = array_keys($TCA);
      foreach($tc_keys as $table)   {
            // Load table
         t3lib_div::loadTCA($table);
            // All field names configured:
         if (is_array($TCA[$table]['columns'])) {
            $f_keys = array_keys($TCA[$table]['columns']);
            foreach($f_keys as $field) {
               if ($TCA[$table]['columns'][$field]['exclude']) {
                     // Get Human Readable names of fields and table:
                  $Fname=$GLOBALS['LANG']->sl($TCA[$table]['ctrl']['title']).': '.$GLOBALS['LANG']->sl($TCA[$table]['columns'][$field]['label']);
                     // add entry:
                  $theExcludeArray[] = Array($Fname , $table.':'.$field);
               }
            }
         }
      }
      return $theExcludeArray;
   }

   function getExplicitAuthFieldValues()  {
      global $TCA;

         // Initialize:
      $adLabel = array(
         'ALLOW' => $GLOBALS['LANG']->sl('LLL:EXT:lang/locallang_core.xml:labels.allow'),
         'DENY' => $GLOBALS['LANG']->sl('LLL:EXT:lang/locallang_core.xml:labels.deny'),
      );

         // All TCA keys:
      $allowDenyOptions = Array();
      $tc_keys = array_keys($TCA);
      foreach($tc_keys as $table)   {

            // Load table
         t3lib_div::loadTCA($table);

            // All field names configured:
         if (is_array($TCA[$table]['columns'])) {
            $f_keys = array_keys($TCA[$table]['columns']);
            foreach($f_keys as $field) {
               $fCfg = $TCA[$table]['columns'][$field]['config'];
               if ($fCfg['type']=='select' && $fCfg['authMode'])  {

                     // Check for items:
                  if (is_array($fCfg['items'])) {
                        // Get Human Readable names of fields and table:
                     $allowDenyOptions[$table.':'.$field]['tableFieldLabel'] = $GLOBALS['LANG']->sl($TCA[$table]['ctrl']['title']).': '.$GLOBALS['LANG']->sl($TCA[$table]['columns'][$field]['label']);

                        // Check for items:
                     foreach($fCfg['items'] as $iVal) {
                        if (strcmp($iVal[1],''))   {  // Values '' is not controlled by this setting.

                              // Find iMode:
                           $iMode = '';
                           switch((string)$fCfg['authMode'])   {
                              case 'explicitAllow':
                                 $iMode = 'ALLOW';
                              break;
                              case 'explicitDeny':
                                 $iMode = 'DENY';
                              break;
                              case 'individual':
                                 if (!strcmp($iVal[4],'EXPL_ALLOW')) {
                                    $iMode = 'ALLOW';
                                 } elseif (!strcmp($iVal[4],'EXPL_DENY'))  {
                                    $iMode = 'DENY';
                                 }
                              break;
                           }

                              // Set iMode:
                           if ($iMode) {
                              $allowDenyOptions[$table.':'.$field]['items'][$iVal[1]] = array($iMode, $GLOBALS['LANG']->sl($iVal[0]), $adLabel[$iMode]);
                           }
                        }
                     }
                  }
               }
            }
         }
      }

      return $allowDenyOptions;
   }

   function getSystemLanguages() {

         // Initialize, add default language:
      $sysLanguages = array();
      $sysLanguages[] = array('Default language', 0);

         // Traverse languages
      $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('uid,title,flag','sys_language','pid=0'.t3lib_BEfunc::deleteClause('sys_language'));
      while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
         $sysLanguages[] = array($row['title'].' ['.$row['uid'].']', $row['uid'], ($row['flag'] ? '../t3lib/gfx/flags/'.$row['flag'] : ''));
      }

      return $sysLanguages;
   }

   function readPageAccess($id,$perms_clause)   {
      if ((string)$id!='') {
         $id = intval($id);
         if (!$id)   {
            if ($GLOBALS['BE_USER']->isAdmin()) {
               $path = '/';
               $pageinfo['_thePath'] = $path;
               return $pageinfo;
            }
         } else {
            $pageinfo = t3lib_BEfunc::getRecord('pages',$id,'*',($perms_clause ? ' AND '.$perms_clause : ''));
            if ($pageinfo['uid'] && $GLOBALS['BE_USER']->isInWebMount($id,$perms_clause)) {
               list($pageinfo['_thePath'],$pageinfo['_thePathFull']) = t3lib_BEfunc::getRecordPath(intval($pageinfo['uid']), $perms_clause, 15, 1000);
               return $pageinfo;
            }
         }
      }
      return false;
   }

   function getTCAtypes($table,$rec,$useFieldNameAsKey=0)   {
      global $TCA;

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

            // Get type value:
         $fieldValue = t3lib_BEfunc::getTCAtypeValue($table,$rec);

            // Get typesConf
         $typesConf = $TCA[$table]['types'][$fieldValue];

            // Get fields list and traverse it
         $fieldList = explode(',', $typesConf['showitem']);
         $altFieldList = array();

            // Traverse fields in types config and parse the configuration into a nice array:
         foreach($fieldList as $k => $v)  {
            list($pFieldName, $pAltTitle, $pPalette, $pSpec) = t3lib_div::trimExplode(';', $v);
            $defaultExtras = is_array($TCA[$table]['columns'][$pFieldName]) ? $TCA[$table]['columns'][$pFieldName]['defaultExtras'] : '';
            $specConfParts = t3lib_BEfunc::getSpecConfParts($pSpec, $defaultExtras);

            $fieldList[$k]=array(
               'field' => $pFieldName,
               'title' => $pAltTitle,
               'palette' => $pPalette,
               'spec' => $specConfParts,
               'origString' => $v
            );
            if ($useFieldNameAsKey) {
               $altFieldList[$fieldList[$k]['field']] = $fieldList[$k];
            }
         }
         if ($useFieldNameAsKey) {
            $fieldList = $altFieldList;
         }

            // Return array:
         return $fieldList;
      }
   }

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

         // If no field-value, set it to zero. If there is no type matching the field-value (which now may be zero...) test field-value '1' as default.
      t3lib_div::loadTCA($table);
      if ($TCA[$table]) {
         $field = $TCA[$table]['ctrl']['type'];
         $fieldValue = $field ? ($rec[$field] ? $rec[$field] : 0) : 0;
         if (!is_array($TCA[$table]['types'][$fieldValue])) $fieldValue = 1;
         return $fieldValue;
      }
   }

   function getSpecConfParts($str, $defaultExtras) {

         // Add defaultExtras:
      $specConfParts = t3lib_div::trimExplode(':', $defaultExtras.':'.$str, 1);

      if (count($specConfParts)) {
         foreach($specConfParts as $k2 => $v2)  {
            unset($specConfParts[$k2]);
            if (ereg('(.*)\[(.*)\]',$v2,$reg))  {
               $specConfParts[trim($reg[1])] = array(
                  'parameters' => t3lib_div::trimExplode('|', $reg[2], 1)
               );
            } else {
               $specConfParts[trim($v2)] = 1;
            }
         }
      } else {
         $specConfParts = array();
      }
      return $specConfParts;
   }

   function getSpecConfParametersFromArray($pArr)  {
      $out=array();
      if (is_array($pArr)) {
         reset($pArr);
         while(list($k,$v)=each($pArr))   {
            $parts=explode('=',$v,2);
            if (count($parts)==2)   {
               $out[trim($parts[0])]=trim($parts[1]);
            } else {
               $out[$k]=$v;
            }
         }
      }
      return $out;
   }

   function getFlexFormDS($conf,$row,$table) {

         // Get pointer field etc from TCA-config:
      $ds_pointerField =   $conf['ds_pointerField'];
      $ds_array =       $conf['ds'];
      $ds_tableField =  $conf['ds_tableField'];
      $ds_searchParentField =    $conf['ds_pointerField_searchParent'];

         // Find source value:
      $dataStructArray='';
      if (is_array($ds_array))   {  // If there is a data source array, that takes precedence
            // If a pointer field is set, take the value from that field in the $row array and use as key.
         if ($ds_pointerField)   {
            $srcPointer = $row[$ds_pointerField];
            $srcPointer = isset($ds_array[$srcPointer]) ? $srcPointer : 'default';
         } else $srcPointer='default';

            // Get Data Source: Detect if it's a file reference and in that case read the file and parse as XML. Otherwise the value is expected to be XML.
         if (substr($ds_array[$srcPointer],0,5)=='FILE:')   {
            $file = t3lib_div::getFileAbsFileName(substr($ds_array[$srcPointer],5));
            if ($file && @is_file($file)) {
               $dataStructArray = t3lib_div::xml2array(t3lib_div::getUrl($file));
            } else $dataStructArray = 'The file "'.substr($dsSrc,5).'" in ds-array key "'.$srcPointer.'" was not found ("'.$file.'")'; // Error message.
         } else {
            $dataStructArray = t3lib_div::xml2array($ds_array[$srcPointer]);
         }

      } elseif ($ds_pointerField) { // If pointer field AND possibly a table/field is set:
            // Value of field pointed to:
         $srcPointer = $row[$ds_pointerField];

            // Searching recursively back if 'ds_pointerField_searchParent' is defined (typ. a page rootline, or maybe a tree-table):
         if ($ds_searchParentField && !$srcPointer)   {
            $rr = t3lib_BEfunc::getRecord($table,$row['uid'],'uid,'.$ds_searchParentField);  // Get the "pid" field - we cannot know that it is in the input record!
            t3lib_BEfunc::fixVersioningPid($table,$rr);
            $uidAcc=array();  // Used to avoid looping, if any should happen.
            $subFieldPointer = $conf['ds_pointerField_searchParent_subField'];
            while(!$srcPointer)     {
               $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                           'uid,'.$ds_pointerField.','.$ds_searchParentField.($subFieldPointer?','.$subFieldPointer:''),
                           $table,
                           'uid='.intval($rr[$ds_searchParentField]).t3lib_BEfunc::deleteClause($table)
                        );
               $rr = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res);

                  // break if no result from SQL db or if looping...
               if (!is_array($rr) || isset($uidAcc[$rr['uid']]))  break;
               $uidAcc[$rr['uid']]=1;

               t3lib_BEfunc::fixVersioningPid($table,$rr);
               $srcPointer = ($subFieldPointer && $rr[$subFieldPointer]) ? $rr[$subFieldPointer] : $rr[$ds_pointerField];
            }
         }

            // If there is a srcPointer value:
         if ($srcPointer)  {
            if (t3lib_div::testInt($srcPointer))   {  // If integer, then its a record we will look up:
               list($tName,$fName) = explode(':',$ds_tableField,2);
               if ($tName && $fName && is_array($GLOBALS['TCA'][$tName]))  {
                  $dataStructRec = t3lib_BEfunc::getRecord($tName, $srcPointer);
                  $dataStructArray = t3lib_div::xml2array($dataStructRec[$fName]);
               } else $dataStructArray = 'No tablename ('.$tName.') or fieldname ('.$fName.') was found an valid!';
            } else { // Otherwise expect it to be a file:
               $file = t3lib_div::getFileAbsFileName($srcPointer);
               if ($file && @is_file($file)) {
                  $dataStructArray = t3lib_div::xml2array(t3lib_div::getUrl($file));
               } else $dataStructArray='The file "'.$srcPointer.'" was not found ("'.$file.'")';   // Error message.
            }
         } else $dataStructArray='No source value in fieldname "'.$ds_pointerField.'"';   // Error message.
      } else $dataStructArray='No proper configuration!';
      return $dataStructArray;
   }


















   /*******************************************
    *
    * Caching related
    *
    *******************************************/

   function storeHash($hash,$data,$ident) {
      $insertFields = array(
         'hash' => $hash,
         'content' => $data,
         'ident' => $ident,
         'tstamp' => time()
      );
      $GLOBALS['TYPO3_DB']->exec_DELETEquery('cache_hash', 'hash="'.$GLOBALS['TYPO3_DB']->quoteStr($hash, 'cache_hash').'"');
      $GLOBALS['TYPO3_DB']->exec_INSERTquery('cache_hash', $insertFields);
   }

   function getHash($hash,$expTime) {
         // if expTime is not set, the hash will never expire
      $expTime = intval($expTime);
      if ($expTime)  {
         $whereAdd = ' AND tstamp > '.(time()-$expTime);
      }
      $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('content', 'cache_hash', 'hash="'.$GLOBALS['TYPO3_DB']->quoteStr($hash, 'cache_hash').'"'.$whereAdd);
      if ($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))  {
         return $row['content'];
      }
   }








   /*******************************************
    *
    * TypoScript related
    *
    *******************************************/

   function getPagesTSconfig($id,$rootLine='',$returnPartArray=0) {
      $id=intval($id);
      if (!is_array($rootLine))  {
         $rootLine = t3lib_BEfunc::BEgetRootLine($id,'');
      }
      ksort($rootLine); // Order correctly, changed 030102
      reset($rootLine);
      $TSdataArray = array();
      $TSdataArray['defaultPageTSconfig']=$GLOBALS['TYPO3_CONF_VARS']['BE']['defaultPageTSconfig'];   // Setting default configuration:
      while(list($k,$v)=each($rootLine))  {
         $TSdataArray['uid_'.$v['uid']]=$v['TSconfig'];
      }
      $TSdataArray = t3lib_TSparser::checkIncludeLines_array($TSdataArray);
      if ($returnPartArray)   {
         return $TSdataArray;
      }

         // Parsing the user TS (or getting from cache)
      $userTS = implode($TSdataArray,chr(10).'[GLOBAL]'.chr(10));
      $hash = md5('pageTS:'.$userTS);
      $cachedContent = t3lib_BEfunc::getHash($hash,0);
      $TSconfig = array();
      if (isset($cachedContent)) {
         $TSconfig = unserialize($cachedContent);
      } else {
         $parseObj = t3lib_div::makeInstance('t3lib_TSparser');
         $parseObj->parse($userTS);
         $TSconfig = $parseObj->setup;
         t3lib_BEfunc::storeHash($hash,serialize($TSconfig),'PAGES_TSconfig');
      }
      return $TSconfig;
   }

   function updatePagesTSconfig($id,$pageTS,$TSconfPrefix,$impParams='')   {
      $id=intval($id);
      if (is_array($pageTS) && $id>0)  {
         if (!is_array($impParams)) {
            $impParams =t3lib_BEfunc::implodeTSParams(t3lib_BEfunc::getPagesTSconfig($id));
         }
         reset($pageTS);
         $set=array();
         while(list($f,$v)=each($pageTS)) {
            $f = $TSconfPrefix.$f;
            if ((!isset($impParams[$f])&&trim($v)) || strcmp(trim($impParams[$f]),trim($v))) {
               $set[$f]=trim($v);
            }
         }
         if (count($set))  {
               // Get page record and TS config lines
            $pRec = t3lib_befunc::getRecord('pages',$id);
            $TSlines = explode(chr(10),$pRec['TSconfig']);
            $TSlines = array_reverse($TSlines);
               // Reset the set of changes.
            reset($set);
            while(list($f,$v)=each($set)) {
               reset($TSlines);
               $inserted=0;
               while(list($ki,$kv)=each($TSlines)) {
                  if (substr($kv,0,strlen($f)+1)==$f.'=')   {
                     $TSlines[$ki]=$f.'='.$v;
                     $inserted=1;
                     break;
                  }
               }
               if (!$inserted)   {
                  $TSlines = array_reverse($TSlines);
                  $TSlines[]=$f.'='.$v;
                  $TSlines = array_reverse($TSlines);
               }
            }
            $TSlines = array_reverse($TSlines);

               // store those changes
            $TSconf = implode(chr(10),$TSlines);

            $GLOBALS['TYPO3_DB']->exec_UPDATEquery('pages', 'uid='.intval($id), array('TSconfig' => $TSconf));
         }
      }
   }

   function implodeTSParams($p,$k='')  {
      $implodeParams=array();
      if (is_array($p)) {
         reset($p);
         while(list($kb,$val)=each($p))   {
            if (is_array($val))  {
               $implodeParams = array_merge($implodeParams,t3lib_BEfunc::implodeTSParams($val,$k.$kb));
            } else {
               $implodeParams[$k.$kb]=$val;
            }
         }
      }
      return $implodeParams;
   }








   /*******************************************
    *
    * Users / Groups related
    *
    *******************************************/

   function getUserNames($fields='username,usergroup,usergroup_cached_list,uid',$where='')   {
      $be_user_Array=Array();

      $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery($fields, 'be_users', 'pid=0 '.$where.t3lib_BEfunc::deleteClause('be_users'), '', 'username');
      while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
         $be_user_Array[$row['uid']]=$row;
      }
      return $be_user_Array;
   }

   function getGroupNames($fields='title,uid', $where='')   {
      $be_group_Array = Array();
      $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery($fields, 'be_groups', 'pid=0 '.$where.t3lib_BEfunc::deleteClause('be_groups'), '', 'title');
      while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
         $be_group_Array[$row['uid']] = $row;
      }
      return $be_group_Array;
   }

   function getListGroupNames($fields='title,uid') {
      $exQ=' AND hide_in_lists=0';
      if (!$GLOBALS['BE_USER']->isAdmin())   {
         $exQ.=' AND uid IN ('.($GLOBALS['BE_USER']->user['usergroup_cached_list']?$GLOBALS['BE_USER']->user['usergroup_cached_list']:0).')';
      }
      return t3lib_BEfunc::getGroupNames($fields,$exQ);
   }

   function blindUserNames($usernames,$groupArray,$excludeBlindedFlag=0)   {
      if (is_array($usernames) && is_array($groupArray)) {
         while(list($uid,$row)=each($usernames))   {
            $userN=$uid;
            $set=0;
            if ($row['uid']!=$GLOBALS['BE_USER']->user['uid']) {
               reset($groupArray);
               while(list(,$v)=each($groupArray))  {
                  if ($v && t3lib_div::inList($row['usergroup_cached_list'],$v)) {
                     $userN = $row['username'];
                     $set=1;
                  }
               }
            } else {
               $userN = $row['username'];
               $set=1;
            }
            $usernames[$uid]['username']=$userN;
            if ($excludeBlindedFlag && !$set) {unset($usernames[$uid]);}
         }
      }
      return $usernames;
   }

   function blindGroupNames($groups,$groupArray,$excludeBlindedFlag=0)  {
      if (is_array($groups) && is_array($groupArray)) {
         while(list($uid,$row)=each($groups))   {
            $groupN=$uid;
            $set=0;
            if (t3lib_div::inArray($groupArray,$uid)) {
               $groupN=$row['title'];
               $set=1;
            }
            $groups[$uid]['title']=$groupN;
            if ($excludeBlindedFlag && !$set) {unset($groups[$uid]);}
         }
      }
      return $groups;
   }













   /*******************************************
    *
    * Output related
    *
    *******************************************/



   function daysUntil($tstamp)   {
      $delta_t = $tstamp-$GLOBALS['EXEC_TIME'];
      return ceil($delta_t/(3600*24));
   }

   function date($tstamp)  {
      return Date($GLOBALS['TYPO3_CONF_VARS']['SYS']['ddmmyy'],$tstamp);
   }

   function datetime($value)  {
      return Date($GLOBALS['TYPO3_CONF_VARS']['SYS']['ddmmyy'].' '.$GLOBALS['TYPO3_CONF_VARS']['SYS']['hhmm'],$value);
   }

   function time($value)   {
      $hh = floor($value/3600);
      $min = floor(($value-$hh*3600)/60);
      $sec = $value-$hh*3600-$min*60;
      $l = sprintf('%02d',$hh).':'.sprintf('%02d',$min).':'.sprintf('%02d',$sec);
      return $l;
   }

   function calcAge($seconds,$labels = 'min|hrs|days|yrs')  {
      $labelArr = explode('|',$labels);
      $prefix='';
      if ($seconds<0)   {$prefix='-'; $seconds=abs($seconds);}
      if ($seconds<3600)   {
         $seconds = round ($seconds/60).' '.trim($labelArr[0]);
      } elseif ($seconds<24*3600)   {
         $seconds = round ($seconds/3600).' '.trim($labelArr[1]);
      } elseif ($seconds<365*24*3600)  {
         $seconds = round ($seconds/(24*3600)).' '.trim($labelArr[2]);
      } else {
         $seconds = round ($seconds/(365*24*3600)).' '.trim($labelArr[3]);
      }
      return $prefix.$seconds;
   }

   function dateTimeAge($tstamp,$prefix=1,$date='')   {
      return $tstamp ?
            ($date=='date' ? t3lib_BEfunc::date($tstamp) : t3lib_BEfunc::datetime($tstamp)).
            ' ('.t3lib_BEfunc::calcAge($prefix*(time()-$tstamp),$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.minutesHoursDaysYears')).')' : '';
   }

   function titleAttrib($content='',$hsc=0)  {
      global $CLIENT;
      $attrib= ($CLIENT['BROWSER']=='net'&&$CLIENT['VERSION']<5)||$CLIENT['BROWSER']=='konqu' ? 'alt' : 'title';
      return strcmp($content,'')?' '.$attrib.'="'.($hsc?htmlspecialchars($content):$content).'"' : $attrib;
   }

   function titleAltAttrib($content)   {
      $out='';
      $out.=' alt="'.htmlspecialchars($content).'"';
      $out.=' title="'.htmlspecialchars($content).'"';
      return $out;
   }

   function thumbCode($row,$table,$field,$backPath,$thumbScript='',$uploaddir=NULL,$abs=0,$tparams='',$size='')   {
      global $TCA;
         // Load table.
      t3lib_div::loadTCA($table);

         // Find uploaddir automatically
      $uploaddir = (is_null($uploaddir)) ? $TCA[$table]['columns'][$field]['config']['uploadfolder'] : $uploaddir;
      $uploaddir = preg_replace('#/$#','',$uploaddir);

         // Set thumbs-script:
      if (!$GLOBALS['TYPO3_CONF_VARS']['GFX']['thumbnails'])   {
         $thumbScript='gfx/notfound_thumb.gif';
      } elseif(!$thumbScript) {
         $thumbScript='thumbs.php';
      }
         // Check and parse the size parameter
      $sizeParts=array();
      if ($size = trim($size)) {
         $sizeParts = explode('x', $size.'x'.$size);
         if(!intval($sizeParts[0])) $size='';
      }

         // Traverse files:
      $thumbs = explode(',', $row[$field]);
      $thumbData='';
      while(list(,$theFile)=each($thumbs))   {
         if (trim($theFile))  {
            $fI = t3lib_div::split_fileref($theFile);
            $ext = $fI['fileext'];
                  // New 190201 start
            $max=0;
            if (t3lib_div::inList('gif,jpg,png',$ext)) {
               $imgInfo=@getimagesize(PATH_site.$uploaddir.'/'.$theFile);
               if (is_array($imgInfo)) {$max = max($imgInfo[0],$imgInfo[1]);}
            }
               // use the original image if it's size fits to the thumbnail size
            if ($max && $max<=(count($sizeParts)&&max($sizeParts)?max($sizeParts):56)) {
               $url = $uploaddir.'/'.trim($theFile);
               $theFile = '../'.$url;
               $onClick='top.launchView(\''.$theFile.'\',\'\',\''.$backPath.'\');return false;';
               $thumbData.='<a href="#" onclick="'.htmlspecialchars($onClick).'"><img src="../'.$backPath.$url.'" '.$imgInfo[3].' hspace="2" border="0" title="'.trim($url).'"'.$tparams.' alt="" /></a> ';
                  // New 190201 stop
            } elseif ($ext=='ttf' || t3lib_div::inList($GLOBALS['TYPO3_CONF_VARS']['GFX']['imagefile_ext'],$ext)) {
               $theFile = ($abs?'':'../').($uploaddir?$uploaddir.'/':'').trim($theFile);
               $params = '&file='.rawurlencode($theFile);
               $params .= $size?'&size='.$size:'';
               $url = $thumbScript.'?&dummy='.$GLOBALS['EXEC_TIME'].$params;
               $onClick='top.launchView(\''.$theFile.'\',\'\',\''.$backPath.'\');return false;';
               $thumbData.='<a href="#" onclick="'.htmlspecialchars($onClick).'"><img src="'.htmlspecialchars($backPath.$url).'" hspace="2" border="0" title="'.trim($theFile).'"'.$tparams.' alt="" /></a> ';
            } else {
               $icon = t3lib_BEfunc::getFileIcon($ext);
               $url = 'gfx/fileicons/'.$icon;
               $thumbData.='<img src="'.$backPath.$url.'" hspace="2" border="0" title="'.trim($theFile).'"'.$tparams.' alt="" /> ';
            }
         }
      }
      return $thumbData;
   }

   function getThumbNail($thumbScript,$theFile,$tparams='',$size='') {
      $params = '&file='.rawurlencode($theFile);
      $params .= trim($size)?'&size='.trim($size):'';
      $url = $thumbScript.'?&dummy='.$GLOBALS['EXEC_TIME'].$params;
      $th='<img src="'.htmlspecialchars($url).'" title="'.trim(basename($theFile)).'"'.($tparams?" ".$tparams:"").' alt="" />';
      return $th;
   }

   function titleAttribForPages($row,$perms_clause='',$includeAttrib=1) {
      global $TCA,$LANG;
      $parts=array();
      $parts[] = 'id='.$row['uid'];
      if ($row['alias'])   $parts[]=$LANG->sL($TCA['pages']['columns']['alias']['label']).' '.$row['alias'];
      if ($row['t3ver_id'])   $parts[] = 'v#'.$row['t3ver_id'];
      if ($row['doktype']=='3')  {
         $parts[]=$LANG->sL($TCA['pages']['columns']['url']['label']).' '.$row['url'];
      } elseif ($row['doktype']=='4')  {
         if ($perms_clause)   {
            $label = t3lib_BEfunc::getRecordPath(intval($row['shortcut']),$perms_clause,20);
         } else {
            $lRec = t3lib_BEfunc::getRecord('pages',intval($row['shortcut']),'title');
            $label = $lRec['title'];
         }
         if ($row['shortcut_mode']>0)  {
            $label.=', '.$LANG->sL($TCA['pages']['columns']['shortcut_mode']['label']).' '.
                     $LANG->sL(t3lib_BEfunc::getLabelFromItemlist('pages','shortcut_mode',$row['shortcut_mode']));
         }
         $parts[]=$LANG->sL($TCA['pages']['columns']['shortcut']['label']).' '.$label;
      } elseif ($row['doktype']=='7')  {
         if ($perms_clause)   {
            $label = t3lib_BEfunc::getRecordPath(intval($row['mount_pid']),$perms_clause,20);
         } else {
            $lRec = t3lib_BEfunc::getRecord('pages',intval($row['mount_pid']),'title');
            $label = $lRec['title'];
         }
         $parts[]=$LANG->sL($TCA['pages']['columns']['mount_pid']['label']).' '.$label;
         if ($row['mount_pid_ol'])  {
            $parts[] = $LANG->sL($TCA['pages']['columns']['mount_pid_ol']['label']);
         }
      }
      if ($row['nav_hide'])   $parts[] = ereg_replace(':$','',$LANG->sL($TCA['pages']['columns']['nav_hide']['label']));
      if ($row['hidden'])  $parts[] = $LANG->sL('LLL:EXT:lang/locallang_core.php:labels.hidden');
      if ($row['starttime'])  $parts[] = $LANG->sL($TCA['pages']['columns']['starttime']['label']).' '.t3lib_BEfunc::dateTimeAge($row['starttime'],-1,'date');
      if ($row['endtime']) $parts[] = $LANG->sL($TCA['pages']['columns']['endtime']['label']).' '.t3lib_BEfunc::dateTimeAge($row['endtime'],-1,'date');
      if ($row['fe_group'])   {
         if ($row['fe_group']<0) {
            $label = $LANG->sL(t3lib_BEfunc::getLabelFromItemlist('pages','fe_group',$row['fe_group']));
         } else {
            $lRec = t3lib_BEfunc::getRecord('fe_groups',$row['fe_group'],'title');
            $label = $lRec['title'];
         }
         $parts[] = $LANG->sL($TCA['pages']['columns']['fe_group']['label']).' '.$label;
      }
      $out = htmlspecialchars(implode(' - ',$parts));
      return $includeAttrib ? 'title="'.$out.'"' : $out;
   }

   function getRecordIconAltText($row,$table='pages') {
      if ($table=='pages') {
         $out = t3lib_BEfunc::titleAttribForPages($row,'',0);
      } else {
         $ctrl = $GLOBALS['TCA'][$table]['ctrl']['enablecolumns'];

         $out='id='.$row['uid']; // Uid is added
         if ($table=='pages' && $row['alias'])  {
            $out.=' / '.$row['alias'];
         }
         if ($GLOBALS['TCA'][$table]['ctrl']['versioning'] && $row['t3ver_id'])  {
            $out.=' - v#'.$row['t3ver_id'];
         }
         if ($ctrl['disabled'])  {     // Hidden ...
            $out.=($row[$ctrl['disabled']]?' - '.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.hidden'):'');
         }
         if ($ctrl['starttime']) {
            if ($row[$ctrl['starttime']] > $GLOBALS['EXEC_TIME']) {
               $out.=' - '.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.starttime').':'.t3lib_BEfunc::date($row[$ctrl['starttime']]).' ('.t3lib_BEfunc::daysUntil($row[$ctrl['starttime']]).' '.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.days').')';
            }
         }
         if ($row[$ctrl['endtime']])   {
            $out.=' - '.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.endtime').': '.t3lib_BEfunc::date($row[$ctrl['endtime']]).' ('.t3lib_BEfunc::daysUntil($row[$ctrl['endtime']]).' '.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.days').')';
         }
      }
      return htmlspecialchars($out);
   }

   function getLabelFromItemlist($table,$col,$key) {
      global $TCA;
         // Load full TCA for $table
      t3lib_div::loadTCA($table);

         // Check, if there is an "items" array:
      if (is_array($TCA[$table]) && is_array($TCA[$table]['columns'][$col]) && is_array($TCA[$table]['columns'][$col]['config']['items']))   {
            // Traverse the items-array...
         reset($TCA[$table]['columns'][$col]['config']['items']);
         while(list($k,$v)=each($TCA[$table]['columns'][$col]['config']['items']))  {
               // ... and return the first found label where the value was equal to $key
            if (!strcmp($v[1],$key))   return $v[0];
         }
      }
   }

   function getItemLabel($table,$col,$printAllWrap='')   {
      global $TCA;
         // Load full TCA for $table
      t3lib_div::loadTCA($table);
         // Check if column exists
      if (is_array($TCA[$table]) && is_array($TCA[$table]['columns'][$col]))  {
            // Re
         return $TCA[$table]['columns'][$col]['label'];
      }
      if ($printAllWrap)   {
         $parts = explode('|',$printAllWrap);
         return $parts[0].$col.$parts[1];
      }
   }

   function getRecordTitle($table,$row,$prep=0) {
      global $TCA;
      if (is_array($TCA[$table]))   {
         $t = $row[$TCA[$table]['ctrl']['label']];
         if ($TCA[$table]['ctrl']['label_alt'] && ($TCA[$table]['ctrl']['label_alt_force'] || !strcmp($t,''))) {
            $altFields=t3lib_div::trimExplode(',',$TCA[$table]['ctrl']['label_alt'],1);
            $tA=array();
            $tA[]=$t;
            while(list(,$fN)=each($altFields))  {
               $t = $tA[] = trim(strip_tags($row[$fN]));
               if (strcmp($t,'') && !$TCA[$table]['ctrl']['label_alt_force']) break;
            }
            if ($TCA[$table]['ctrl']['label_alt_force']) $t=implode(', ',$tA);
         }
         if ($prep)  {
            $t = htmlspecialchars(t3lib_div::fixed_lgd_cs($t,$GLOBALS['BE_USER']->uc['titleLen']));
            if (!strcmp(trim($t),''))  $t='<em>['.$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.no_title',1).']</em>';
         }
         return $t;
      }
   }

   function getProcessedValue($table,$col,$value,$fixed_lgd_chars=0,$defaultPassthrough=0)   {
      global $TCA;
         // Load full TCA for $table
      t3lib_div::loadTCA($table);
         // Check if table and field is configured:
      if (is_array($TCA[$table]) && is_array($TCA[$table]['columns'][$col]))  {
            // Depending on the fields configuration, make a meaningful output value.
         $theColConf = $TCA[$table]['columns'][$col]['config'];
         $l='';
         switch((string)$theColConf['type']) {
            case 'radio':
               $l=t3lib_BEfunc::getLabelFromItemlist($table,$col,$value);
            break;
            case 'select':
               if ($theColConf['MM'])  {
                  $l='N/A';
               } else {
                  $l=t3lib_BEfunc::getLabelFromItemlist($table,$col,$value);
                  $l=$GLOBALS['LANG']->sL($l);
                  if ($theColConf['foreign_table'] && !$l && $TCA[$theColConf['foreign_table']])   {
                     $rParts = t3lib_div::trimExplode(',',$value,1);
                     reset($rParts);
                     $lA=array();
                     while(list(,$rVal)=each($rParts))   {
                        $rVal = intval($rVal);
                        if ($rVal>0) {
                           $r=t3lib_BEfunc::getRecord($theColConf['foreign_table'],$rVal);
                        } else {
                           $r=t3lib_BEfunc::getRecord($theColConf['neg_foreign_table'],-$rVal);
                        }
                        if (is_array($r)) {
                           $lA[]=$GLOBALS['LANG']->sL($rVal>0?$theColConf['foreign_table_prefix']:$theColConf['neg_foreign_table_prefix']).t3lib_BEfunc::getRecordTitle($rVal>0?$theColConf['foreign_table']:$theColConf['neg_foreign_table'],$r);
                        } else {
                           $lA[]=$rVal?'['.$rVal.'!]':'';
                        }
                     }
                     $l=implode(',',$lA);
                  }
               }
            break;
            case 'check':
               if (!is_array($theColConf['items']) || count($theColConf['items'])==1)  {
                  $l = $value ? 'Yes' : '';
               } else {
                  reset($theColConf['items']);
                  $lA=Array();
                  while(list($key,$val)=each($theColConf['items']))  {
                     if ($value & pow(2,$key))  {$lA[]=$GLOBALS['LANG']->sL($val[0]);}
                  }
                  $l = implode($lA,', ');
               }
            break;
            case 'input':
               if ($value) {
                  if (t3lib_div::inList($theColConf['eval'],'date')) {
                     $l = t3lib_BEfunc::date($value).' ('.(time()-$value>0?'-':'').t3lib_BEfunc::calcAge(abs(time()-$value), $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.minutesHoursDaysYears')).')';
                  } elseif (t3lib_div::inList($theColConf['eval'],'time')) {
                     $l = t3lib_BEfunc::time($value);
                  } elseif (t3lib_div::inList($theColConf['eval'],'datetime'))   {
                     $l = t3lib_BEfunc::datetime($value);
                  } else {
                     $l = $value;
                  }
               }
            break;
            default:
               if ($defaultPassthrough)   {
                  $l=$value;
               } elseif ($theColConf['MM'])  {
                  $l='N/A';
               } elseif ($value) {
                  $l=t3lib_div::fixed_lgd_cs(strip_tags($value),200);
               }
            break;
         }
         if ($fixed_lgd_chars)   {
            return t3lib_div::fixed_lgd_cs($l,$fixed_lgd_chars);
         } else {
            return $l;
         }
      }
   }

   function getProcessedValueExtra($table,$fN,$fV,$fixed_lgd_chars=0)   {
      global $TCA;
      $fVnew = t3lib_BEfunc::getProcessedValue($table,$fN,$fV,$fixed_lgd_chars);
      if (!isset($fVnew))  {
         if (is_array($TCA[$table]))   {
            if ($fN==$TCA[$table]['ctrl']['tstamp'] || $fN==$TCA[$table]['ctrl']['crdate'])  {
               $fVnew = t3lib_BEfunc::datetime($fV);
            } elseif ($fN=='pid'){
               $fVnew = t3lib_BEfunc::getRecordPath($fV,'1',20);  // Fetches the path with no regard to the users permissions to select pages.
            } else {
               $fVnew = $fV;
            }
         }
      }
      return $fVnew;
   }

   function getFileIcon($ext) {
      return $GLOBALS['FILEICONS'][$ext] ? $GLOBALS['FILEICONS'][$ext] : $GLOBALS['FILEICONS']['default'];
   }

   function getCommonSelectFields($table,$prefix)  {
      global $TCA;
      $fields = array();
      $fields[] = $prefix.'uid';
      $fields[] = $prefix.$TCA[$table]['ctrl']['label'];

      if ($TCA[$table]['ctrl']['label_alt']) {
         $secondFields = t3lib_div::trimExplode(',',$TCA[$table]['ctrl']['label_alt'],1);
         foreach($secondFields as $fieldN)   {
            $fields[] = $prefix.$fieldN;
         }
      }
      if ($TCA[$table]['ctrl']['versioning'])   {
         $fields[] = $prefix.'t3ver_id';
      }

      if ($TCA[$table]['ctrl']['selicon_field'])   $fields[] = $prefix.$TCA[$table]['ctrl']['selicon_field'];
      if ($TCA[$table]['ctrl']['typeicon_column']) $fields[] = $prefix.$TCA[$table]['ctrl']['typeicon_column'];

      if (is_array($TCA[$table]['ctrl']['enablecolumns']))     {
         if ($TCA[$table]['ctrl']['enablecolumns']['disabled'])   $fields[] = $prefix.$TCA[$table]['ctrl']['enablecolumns']['disabled'];
         if ($TCA[$table]['ctrl']['enablecolumns']['starttime'])  $fields[] = $prefix.$TCA[$table]['ctrl']['enablecolumns']['starttime'];
         if ($TCA[$table]['ctrl']['enablecolumns']['endtime']) $fields[] = $prefix.$TCA[$table]['ctrl']['enablecolumns']['endtime'];
         if ($TCA[$table]['ctrl']['enablecolumns']['fe_group'])   $fields[] = $prefix.$TCA[$table]['ctrl']['enablecolumns']['fe_group'];
      }

      return implode(',',array_unique($fields));
   }

   function makeConfigForm($configArray,$defaults,$dataPrefix) {
      $params = $defaults;
      if (is_array($configArray))   {
         reset($configArray);
         $lines=array();
         while(list($fname,$config)=each($configArray))  {
            if (is_array($config))  {
               $lines[$fname]='<strong>'.htmlspecialchars($config[1]).'</strong><br />';
               $lines[$fname].=$config[2].'<br />';
               switch($config[0])   {
                  case 'string':
                  case 'short':
                     $formEl = '<input type="text" name="'.$dataPrefix.'['.$fname.']" value="'.$params[$fname].'"'.$GLOBALS['TBE_TEMPLATE']->formWidth($config[0]=='short'?24:48).' />';
                  break;
                  case 'check':
                     $formEl = '<input type="hidden" name="'.$dataPrefix.'['.$fname.']" value="0" /><input type="checkbox" name="'.$dataPrefix.'['.$fname.']" value="1"'.($params[$fname]?' checked="checked"':'').' />';
                  break;
                  case 'comment':
                     $formEl = '';
                  break;
                  case 'select':
                     reset($config[3]);
                     $opt=array();
                     while(list($k,$v)=each($config[3])) {
                        $opt[]='<option value="'.htmlspecialchars($k).'"'.($params[$fname]==$k?' selected="selected"':'').'>'.htmlspecialchars($v).'</option>';
                     }
                     $formEl = '<select name="'.$dataPrefix.'['.$fname.']">'.implode('',$opt).'</select>';
                  break;
                  default:
                     debug($config);
                  break;
               }
               $lines[$fname].=$formEl;
               $lines[$fname].='<br /><br />';
            } else {
               $lines[$fname]='<hr />';
               if ($config)   $lines[$fname].='<strong>'.strtoupper(htmlspecialchars($config)).'</strong><br />';
               if ($config)   $lines[$fname].='<br />';
            }
         }
      }
      $out = implode('',$lines);
      $out.='<input type="submit" name="submit" value="Update configuration" />';
      return $out;
   }













   /*******************************************
    *
    * Backend Modules API functions
    *
    *******************************************/

   function helpTextIcon($table,$field,$BACK_PATH,$force=0) {
      global $TCA_DESCR,$BE_USER;
      if (is_array($TCA_DESCR[$table]) && is_array($TCA_DESCR[$table]['columns'][$field]) && ($BE_USER->uc['edit_showFieldHelp']=='icon' || $force))  {
         $onClick = 'vHWin=window.open(\''.$BACK_PATH.'view_help.php?tfID='.($table.'.'.$field).'\',\'viewFieldHelp\',\'height=400,width=600,status=0,menubar=0,scrollbars=1\');vHWin.focus();return false;';
         return '<a href="#" onclick="'.htmlspecialchars($onClick).'">'.
               '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/helpbubble.gif','width="14" height="14"').' hspace="2" border="0" class="typo3-csh-icon" alt="" />'.
               '</a>';
      }
   }

   function helpText($table,$field,$BACK_PATH,$styleAttrib='') {
      global $TCA_DESCR,$BE_USER;
      if (is_array($TCA_DESCR[$table]) && is_array($TCA_DESCR[$table]['columns'][$field]) && $BE_USER->uc['edit_showFieldHelp']=='text')  {
         $fDat = $TCA_DESCR[$table]['columns'][$field];

            // Get Icon:
         $editIcon = t3lib_BEfunc::helpTextIcon(
                           $table,
                           $field,
                           $BACK_PATH,
                           TRUE
                        );
            // Add title?
         $onClick = 'vHWin=window.open(\''.$BACK_PATH.'view_help.php?tfID='.($table.'.'.$field).'\',\'viewFieldHelp\',\'height=400,width=600,status=0,menubar=0,scrollbars=1\');vHWin.focus();return false;';
         $text =
               ($fDat['alttitle'] ? '<h4><a href="#" onclick="'.htmlspecialchars($onClick).'">'.$fDat['alttitle'].'</a></h4>' : '').
               $fDat['description'];

            // More information to get?
         if ($fDat['image_descr'] || $fDat['seeAlso'] || $fDat['details'] || $fDat['syntax'])   { // || $fDat['image'];
            $text.=' <a href="#" onclick="'.htmlspecialchars($onClick).'">'.
                  '<img'.t3lib_iconWorks::skinImg($BACK_PATH,'gfx/rel_db.gif','width="13" height="12"').' class="absmiddle typo3-csh-more" alt="" />'.
                  '</a>';
         }

            // Additional styles?
         $params = $styleAttrib ? ' style="'.$styleAttrib.'"' : '';

            // Compile table with CSH information:
         return '<table border="0" cellpadding="2" cellspacing="0" class="typo3-csh-inline"'.$params.'>
                  <tr>
                     <td valign="top" width="14">'.$editIcon.'</td>
                     <td valign="top">'.$text.'</td>
                  </tr>
               </table>';
      }
   }

   function cshItem($table,$field,$BACK_PATH,$wrap='',$onlyIconMode=FALSE, $styleAttrib='')  {
      global $TCA_DESCR, $LANG, $BE_USER;
      if ($BE_USER->uc['edit_showFieldHelp'])   {
         $LANG->loadSingleTableDescription($table);

         if (is_array($TCA_DESCR[$table]))   {
               // Creating CSH icon and short description:
            $fullText = t3lib_BEfunc::helpText($table,$field,$BACK_PATH,$styleAttrib);
            $icon = t3lib_BEfunc::helpTextIcon($table,$field,$BACK_PATH,$onlyIconMode);

            if ($fullText && !$onlyIconMode) {
               $output = $fullText;
            } else {
               #$output = '<span style="position:absolute; filter: alpha(opacity=50); -moz-opacity: 0.50;">'.$icon.'</span>';
               $output = $icon;

               if ($output && $wrap)   {
                  $wrParts = explode('|',$wrap);
                  $output = $wrParts[0].$output.$wrParts[1];
               }
            }

            return $output;
         }
      }
   }

   function editOnClick($params,$backPath='',$requestUri='')   {
      $retUrl = 'returnUrl='.($requestUri==-1?"'+T3_THIS_LOCATION+'":rawurlencode($requestUri?$requestUri:t3lib_div::getIndpEnv('REQUEST_URI')));
      return "document.location='".$backPath."alt_doc.php?".$retUrl.$params."'; return false;";
   }

   function viewOnClick($id,$backPath='',$rootLine='',$anchor='',$altUrl='',$addGetVars='')  {
      if ($altUrl)   {
         $url = $altUrl;
      } else {
         if ($rootLine) {
            $parts = parse_url(t3lib_div::getIndpEnv('TYPO3_SITE_URL'));
            if (t3lib_BEfunc::getDomainStartPage($parts['host'],$parts['path'])) {
               $preUrl_temp = t3lib_BEfunc::firstDomainRecord($rootLine);
            }
         }
         $preUrl = $preUrl_temp ? 'http://'.$preUrl_temp : $backPath.'..';
         $url = $preUrl.'/index.php?id='.$id.$addGetVars.$anchor;
      }

      return "previewWin=window.open('".$url."','newTypo3FrontendWindow','status=1,menubar=1,resizable=1,location=1,scrollbars=1,toolbar=1');previewWin.focus();";
   }

   function getModTSconfig($id,$TSref) {
      $pageTS_modOptions = $GLOBALS['BE_USER']->getTSConfig($TSref,t3lib_BEfunc::getPagesTSconfig($id));
      $BE_USER_modOptions = $GLOBALS['BE_USER']->getTSConfig($TSref);
      $modTSconfig = t3lib_div::array_merge_recursive_overrule($pageTS_modOptions,$BE_USER_modOptions);
      return $modTSconfig;
   }

   function getFuncMenu($mainParams,$elementName,$currentValue,$menuItems,$script='',$addparams='')   {
      if (is_array($menuItems))  {
         if (!is_array($mainParams)) {
            $mainParams = array('id' => $mainParams);
         }
         $mainParams = t3lib_div::implodeArrayForUrl('',$mainParams);

         if (!$script) { $script=basename(PATH_thisScript); }

         $options = array();
         foreach($menuItems as $value => $label)   {
            $options[] = '<option value="'.htmlspecialchars($value).'"'.(!strcmp($currentValue,$value)?' selected="selected"':'').'>'.
                        t3lib_div::deHSCentities(htmlspecialchars($label)).
                        '</option>';
         }
         if (count($options)) {
            $onChange = 'jumpToUrl(\''.$script.'?'.$mainParams.$addparams.'&'.$elementName.'=\'+this.options[this.selectedIndex].value,this);';
            return '

               <!-- Function Menu of module -->
               <select name="'.$elementName.'" onchange="'.htmlspecialchars($onChange).'">
                  '.implode('
                  ',$options).'
               </select>
                     ';
         }
      }
   }

   function getFuncCheck($mainParams,$elementName,$currentValue,$script='',$addparams='',$tagParams='')  {
      if (!is_array($mainParams)) {
         $mainParams = array('id' => $mainParams);
      }
      $mainParams = t3lib_div::implodeArrayForUrl('',$mainParams);

      if (!$script) {basename(PATH_thisScript);}
      $onClick = 'jumpToUrl(\''.$script.'?'.$mainParams.$addparams.'&'.$elementName.'=\'+(this.checked?1:0),this);';
      return '<input type="checkbox" name="'.$elementName.'"'.($currentValue?' checked="checked"':'').' onclick="'.htmlspecialchars($onClick).'"'.($tagParams?' '.$tagParams:'').' />';
   }

   function getFuncInput($mainParams,$elementName,$currentValue,$size=10,$script="",$addparams="") {
      if (!is_array($mainParams)) {
         $mainParams = array('id' => $mainParams);
      }
      $mainParams = t3lib_div::implodeArrayForUrl('',$mainParams);

      if (!$script) {basename(PATH_thisScript);}
      $onChange = 'jumpToUrl(\''.$script.'?'.$mainParams.$addparams.'&'.$elementName.'=\'+escape(this.value),this);';
      return '<input type="text"'.$GLOBALS['TBE_TEMPLATE']->formWidth($size).' name="'.$elementName.'" value="'.htmlspecialchars($currentValue).'" onchange="'.htmlspecialchars($onChange).'" />';
   }

   function unsetMenuItems($modTSconfig,$itemArray,$TSref)  {
         // Getting TS-config options for this module for the Backend User:
      $conf = $GLOBALS['BE_USER']->getTSConfig($TSref,$modTSconfig);
      if (is_array($conf['properties']))  {
         reset($conf['properties']);
         while(list($key,$val)=each($conf['properties']))   {
            if (!$val)  {
               unset($itemArray[$key]);
            }
         }
      }
      return $itemArray;
   }

   function getSetUpdateSignal($set='')   {
      global $BE_USER;
      $key = 't3lib_BEfunc::getSetUpdateSignal';
      $out='';
      if ($set)   {
         $modData=array();
         $modData['set']=$set;
         $BE_USER->pushModuleData($key,$modData);
      } else {
         $modData = $BE_USER->getModuleData($key,'ses');
         if (trim($modData['set'])) {
            $l=explode(',',$modData['set']);
            while(list(,$v)=each($l))  {
               switch($v)  {
                  case 'updatePageTree':
                  case 'updateFolderTree':
                     $out.='
               <script type="text/javascript">
               /*<![CDATA[*/
                     if (top.content && top.content.nav_frame && top.content.nav_frame.refresh_nav)   {
                        top.content.nav_frame.refresh_nav();
                     }
               /*]]>*/
               </script>';
                  break;
               }
            }
            $modData=array();
            $modData['set']='';
            $BE_USER->pushModuleData($key,$modData);
         }
      }
      return $out;
   }


   function getModuleData($MOD_MENU, $CHANGED_SETTINGS, $modName, $type='', $dontValidateList='', $setDefaultList='')   {

      if ($modName && is_string($modName))   {
               // GETTING stored user-data from this module:
         $settings = $GLOBALS['BE_USER']->getModuleData($modName,$type);

         $changed=0;
         if (!is_array($settings))  {
            $changed=1;
            $settings=array();
         }
         if (is_array($MOD_MENU))   {
            reset($MOD_MENU);
            while(list($key,$var)=each($MOD_MENU)) {
                  // If a global var is set before entering here. eg if submitted, then it's substituting the current value the array.
               if (is_array($CHANGED_SETTINGS) && isset($CHANGED_SETTINGS[$key]) && strcmp($settings[$key],$CHANGED_SETTINGS[$key]))   {
                  $settings[$key] = (string)$CHANGED_SETTINGS[$key];
                  $changed=1;
               }
                  // If the $var is an array, which denotes the existence of a menu, we check if the value is permitted
               if (is_array($var) && (!$dontValidateList || !t3lib_div::inList($dontValidateList,$key))) {
                     // If the setting is an array or not present in the menu-array, MOD_MENU, then the default value is inserted.
                  if (is_array($settings[$key]) || !isset($MOD_MENU[$key][$settings[$key]])) {
                     $settings[$key]=(string)key($var);
                     $changed=1;
                  }
               }
               if ($setDefaultList && !is_array($var))   {  // Sets default values (only strings/checkboxes, not menus)
                  if (t3lib_div::inList($setDefaultList,$key) && !isset($settings[$key])) {
                     $settings[$key]=$var;
                  }
               }
            }
         } else {die ('No menu!');}

         if ($changed)  {
            $GLOBALS['BE_USER']->pushModuleData($modName,$settings);
         }

         return  $settings;
      } else {die ('Wrong module name: "'.$modName.'"');}
   }













   /*******************************************
    *
    * Core
    *
    *******************************************/



   function lockRecords($table='',$uid=0,$pid=0)   {
      $user_id = intval($GLOBALS['BE_USER']->user['uid']);
      if ($table && $uid)  {
         $fields_values = array(
            'userid' => $user_id,
            'tstamp' => $GLOBALS['EXEC_TIME'],
            'record_table' => $table,
            'record_uid' => $uid,
            'username' => $GLOBALS['BE_USER']->user['username'],
            'record_pid' => $pid
         );

         $GLOBALS['TYPO3_DB']->exec_INSERTquery('sys_lockedrecords', $fields_values);
      } else {
         $GLOBALS['TYPO3_DB']->exec_DELETEquery('sys_lockedrecords', 'userid='.intval($user_id));
      }
   }

   function isRecordLocked($table,$uid)   {
      global $LOCKED_RECORDS;
      if (!is_array($LOCKED_RECORDS))  {
         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
                     '*',
                     'sys_lockedrecords',
                     'sys_lockedrecords.userid!='.intval($GLOBALS['BE_USER']->user['uid']).'
                        AND sys_lockedrecords.tstamp > '.($GLOBALS['EXEC_TIME']-2*3600)
                  );
         while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
            $LOCKED_RECORDS[$row['record_table'].':'.$row['record_uid']]=$row;
            $LOCKED_RECORDS[$row['record_table'].':'.$row['record_uid']]['msg']=sprintf(
               $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.lockedRecord'),
               $row['username'],
               t3lib_BEfunc::calcAge($GLOBALS['EXEC_TIME']-$row['tstamp'],$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.minutesHoursDaysYears'))
            );
            if ($row['record_pid'] && !isset($LOCKED_RECORDS[$row['record_table'].':'.$row['record_pid']])) {
               $LOCKED_RECORDS['pages:'.$row['record_pid']]['msg']=sprintf(
                  $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.lockedRecord_content'),
                  $row['username'],
                  t3lib_BEfunc::calcAge($GLOBALS['EXEC_TIME']-$row['tstamp'],$GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.php:labels.minutesHoursDaysYears'))
               );
            }
         }
      }
      return $LOCKED_RECORDS[$table.':'.$uid];
   }

   function exec_foreign_table_where_query($fieldValue,$field='',$TSconfig=array(),$prefix='')  {
      global $TCA;
      $foreign_table = $fieldValue['config'][$prefix.'foreign_table'];
      $rootLevel = $TCA[$foreign_table]['ctrl']['rootLevel'];

      $fTWHERE = $fieldValue['config'][$prefix.'foreign_table_where'];
      if (strstr($fTWHERE,'###REC_FIELD_'))  {
         $fTWHERE_parts = explode('###REC_FIELD_',$fTWHERE);
         while(list($kk,$vv)=each($fTWHERE_parts)) {
            if ($kk) {
               $fTWHERE_subpart = explode('###',$vv,2);
               $fTWHERE_parts[$kk]=$TSconfig['_THIS_ROW'][$fTWHERE_subpart[0]].$fTWHERE_subpart[1];
            }
         }
         $fTWHERE = implode('',$fTWHERE_parts);
      }

      $fTWHERE = str_replace('###CURRENT_PID###',intval($TSconfig['_CURRENT_PID']),$fTWHERE);
      $fTWHERE = str_replace('###THIS_UID###',intval($TSconfig['_THIS_UID']),$fTWHERE);
      $fTWHERE = str_replace('###THIS_CID###',intval($TSconfig['_THIS_CID']),$fTWHERE);
      $fTWHERE = str_replace('###STORAGE_PID###',intval($TSconfig['_STORAGE_PID']),$fTWHERE);
      $fTWHERE = str_replace('###SITEROOT###',intval($TSconfig['_SITEROOT']),$fTWHERE);
      $fTWHERE = str_replace('###PAGE_TSCONFIG_ID###',intval($TSconfig[$field]['PAGE_TSCONFIG_ID']),$fTWHERE);
      $fTWHERE = str_replace('###PAGE_TSCONFIG_IDLIST###',$GLOBALS['TYPO3_DB']->cleanIntList($TSconfig[$field]['PAGE_TSCONFIG_IDLIST']),$fTWHERE);
      $fTWHERE = str_replace('###PAGE_TSCONFIG_STR###',$GLOBALS['TYPO3_DB']->quoteStr($TSconfig[$field]['PAGE_TSCONFIG_STR'], $foreign_table),$fTWHERE);

         // rootLevel = -1 is not handled 'properly' here - it goes as if it was rootLevel = 1 (that is pid=0)
      $wgolParts = $GLOBALS['TYPO3_DB']->splitGroupOrderLimit($fTWHERE);
      if ($rootLevel)   {
         $queryParts = array(
            'SELECT' => t3lib_BEfunc::getCommonSelectFields($foreign_table,$foreign_table.'.'),
            'FROM' => $foreign_table,
            'WHERE' => $foreign_table.'.pid=0 '.
                     t3lib_BEfunc::deleteClause($foreign_table).' '.
                     $wgolParts['WHERE'],
            'GROUPBY' => $wgolParts['GROUPBY'],
            'ORDERBY' => $wgolParts['ORDERBY'],
            'LIMIT' => $wgolParts['LIMIT']
         );
      } else {
         $pageClause = $GLOBALS['BE_USER']->getPagePermsClause(1);
         if ($foreign_table!='pages')  {
            $queryParts = array(
               'SELECT' => t3lib_BEfunc::getCommonSelectFields($foreign_table,$foreign_table.'.'),
               'FROM' => $foreign_table.',pages',
               'WHERE' => 'pages.uid='.$foreign_table.'.pid
                        AND NOT pages.deleted '.
                        t3lib_BEfunc::deleteClause($foreign_table).
                        ' AND '.$pageClause.' '.
                        $wgolParts['WHERE'],
               'GROUPBY' => $wgolParts['GROUPBY'],
               'ORDERBY' => $wgolParts['ORDERBY'],
               'LIMIT' => $wgolParts['LIMIT']
            );
         } else {
            $queryParts = array(
               'SELECT' => t3lib_BEfunc::getCommonSelectFields($foreign_table,$foreign_table.'.'),
               'FROM' => 'pages',
               'WHERE' => 'NOT pages.deleted
                        AND '.$pageClause.' '.
                        $wgolParts['WHERE'],
               'GROUPBY' => $wgolParts['GROUPBY'],
               'ORDERBY' => $wgolParts['ORDERBY'],
               'LIMIT' => $wgolParts['LIMIT']
            );
         }
      }

      return $GLOBALS['TYPO3_DB']->exec_SELECT_queryArray($queryParts);
   }

   function getTCEFORM_TSconfig($table,$row) {
      $res = array();
      $typeVal = t3lib_BEfunc::getTCAtypeValue($table,$row);

         // Get main config for the table
      list($TScID,$cPid) = t3lib_BEfunc::getTSCpid($table,$row['uid'],$row['pid']);

      $rootLine = t3lib_BEfunc::BEgetRootLine($TScID,'');
      if ($TScID>=0) {
         $tempConf = $GLOBALS['BE_USER']->getTSConfig('TCEFORM.'.$table,t3lib_BEfunc::getPagesTSconfig($TScID,$rootLine));
         if (is_array($tempConf['properties'])) {
            while(list($key,$val)=each($tempConf['properties']))  {
               if (is_array($val))  {
                  $fieldN = substr($key,0,-1);
                  $res[$fieldN] = $val;
                  unset($res[$fieldN]['types.']);
                  if (strcmp($typeVal,'') && is_array($val['types.'][$typeVal.'.']))   {
                     $res[$fieldN] = t3lib_div::array_merge_recursive_overrule($res[$fieldN],$val['types.'][$typeVal.'.']);
                  }
               }
            }
         }
      }
      $res['_CURRENT_PID']=$cPid;
      $res['_THIS_UID']=$row['uid'];
      $res['_THIS_CID']=$row['cid'];
      $res['_THIS_ROW']=$row; // So the row will be passed to foreign_table_where_query()
      reset($rootLine);
      while(list(,$rC)=each($rootLine))   {
         if (!$res['_STORAGE_PID']) $res['_STORAGE_PID']=intval($rC['storage_pid']);
         if (!$res['_SITEROOT']) $res['_SITEROOT']=$rC['is_siteroot']?intval($rC['uid']):0;
      }

      return $res;
   }

   function getTSconfig_pidValue($table,$uid,$pid) {
      if (t3lib_div::testInt($pid)) {  // If pid is an integer this takes precedence in our lookup.
         $thePidValue = intval($pid);
         if ($thePidValue<0)  {  // If ref to another record, look that record up.
            $pidRec = t3lib_BEfunc::getRecord($table,abs($thePidValue),'pid');
            $thePidValue= is_array($pidRec) ? $pidRec['pid'] : -2;   // Returns -2 if the record did not exist.
         }
         // ... else the pos/zero pid is just returned here.
      } else { // No integer pid and we are forced to look up the $pid
         $rr = t3lib_BEfunc::getRecord($table,$uid,'pid');  // Try to fetch the record pid from uid. If the uid is 'NEW...' then this will of course return nothing...
         if (is_array($rr))   {
            $thePidValue = $rr['pid']; // Returning the 'pid' of the record
         } else $thePidValue=-1; // Returns -1 if the record with the pid was not found.
      }
      return $thePidValue;
   }

   function getPidForModTSconfig($table,$uid,$pid) {
      $retVal = ($table=='pages' && t3lib_div::testInt($uid)) ? $uid : $pid;
      return $retVal;
   }

   function getTSCpid($table,$uid,$pid)   {
         // If pid is negative (referring to another record) the pid of the other record is fetched and returned.
      $cPid = t3lib_BEfunc::getTSconfig_pidValue($table,$uid,$pid);
         // $TScID is the id of $table=pages, else it's the pid of the record.
      $TScID = t3lib_BEfunc::getPidForModTSconfig($table,$uid,$cPid);

      return array($TScID,$cPid);
   }

   function firstDomainRecord($rootLine)  {
      if (t3lib_extMgm::isLoaded('cms'))  {
         reset($rootLine);
         while(list(,$row)=each($rootLine))  {
            $dRec = t3lib_BEfunc::getRecordsByField('sys_domain','pid',$row['uid'],' AND redirectTo="" AND hidden=0', '', 'sorting');
            if (is_array($dRec)) {
               reset($dRec);
               $dRecord = current($dRec);
               return ereg_replace('\/$','',$dRecord['domainName']);
            }
         }
      }
   }

   function getDomainStartPage($domain, $path='')  {
      if (t3lib_extMgm::isLoaded('cms'))  {
         $domain = explode(':',$domain);
         $domain = strtolower(ereg_replace('\.$','',$domain[0]));
            // path is calculated.
         $path = trim(ereg_replace('\/[^\/]*$','',$path));
            // stuff:
         $domain.=$path;

         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('sys_domain.*', 'pages,sys_domain', '
            pages.uid=sys_domain.pid
            AND NOT sys_domain.hidden
            AND (sys_domain.domainName="'.$GLOBALS['TYPO3_DB']->quoteStr($domain, 'sys_domain').'" or sys_domain.domainName="'.$GLOBALS['TYPO3_DB']->quoteStr($domain.'/', 'sys_domain').'")'.
            t3lib_BEfunc::deleteClause('pages'),
            '', '', '1');
         return $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res);
      }
   }

   function selectVersionsOfRecord($table, $uid, $fields='*')  {
      global $TCA;

      if ($TCA[$table] && $TCA[$table]['ctrl']['versioning'])  {

            // Select all versions of record:
         $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery(
            $fields,
            $table,
            '(t3ver_oid='.intval($uid).' || uid='.intval($uid).')'.
               t3lib_BEfunc::deleteClause($table),
            '',
            't3ver_id DESC'
         );

            // Add rows to output array:
         $realPid = 0;
         $outputRows = array();
         while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
            if ($uid==$row['uid'])  {
               $row['_CURRENT_VERSION']=TRUE;
               $realPid = $row['pid'];
            }
            $outputRows[] = $row;
         }

            // Set real-pid:
         foreach($outputRows as $idx => $oRow)  {
            $outputRows[$idx]['_REAL_PID'] = $realPid;
         }

         return $outputRows;
      }
   }

   function RTEsetup($RTEprop,$table,$field,$type='') {
      $thisConfig = is_array($RTEprop['default.']) ? $RTEprop['default.'] : array();
      $thisFieldConf = $RTEprop['config.'][$table.'.'][$field.'.'];
      if (is_array($thisFieldConf)) {
         unset($thisFieldConf['types.']);
         $thisConfig = t3lib_div::array_merge_recursive_overrule($thisConfig,$thisFieldConf);
      }
      if ($type && is_array($RTEprop['config.'][$table.'.'][$field.'.']['types.'][$type.'.']))  {
         $thisConfig = t3lib_div::array_merge_recursive_overrule($thisConfig,$RTEprop['config.'][$table.'.'][$field.'.']['types.'][$type.'.']);
      }
      return $thisConfig;
   }

   function &RTEgetObj()   {

         // If no RTE object has been set previously, try to create it:
      if (!isset($GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj']))   {

            // Set the object string to blank by default:
         $GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj'] = array();

            // Traverse registered RTEs:
         if (is_array($GLOBALS['TYPO3_CONF_VARS']['BE']['RTE_reg'])) {
            foreach($GLOBALS['TYPO3_CONF_VARS']['BE']['RTE_reg'] as $extKey => $rteObjCfg)   {
               $rteObj = &t3lib_div::getUserObj($rteObjCfg['objRef']);
               if (is_object($rteObj)) {
                  if ($rteObj->isAvailable())   {
                     $GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj'] = &$rteObj;
                     break;
                  } else {
                     $GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj'] = array_merge($GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj'], $rteObj->errorLog);
                  }
               }
            }
         }

         if (!count($GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj']))   {
            $GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj'][] = 'No RTEs configured at all';
         }
      }

         // Return RTE object (if any!)
      return $GLOBALS['TYPO3_CONF_VARS']['T3_VAR']['RTEobj'];
   }

   function isModuleSetInTBE_MODULES($modName)  {
      reset($GLOBALS['TBE_MODULES']);
      $loaded=array();
      while(list($mkey,$list)=each($GLOBALS['TBE_MODULES']))   {
         $loaded[$mkey]=1;
         if (trim($list))  {
            $subList = t3lib_div::trimExplode(',',$list,1);
            while(list(,$skey)=each($subList))  {
               $loaded[$mkey.'_'.$skey]=1;
            }
         }
      }
      return $modName && isset($loaded[$modName]);
   }


















   /*******************************************
    *
    * Miscellaneous
    *
    *******************************************/


   function typo3PrintError($header,$text,$js='',$head=1)   {
         // This prints out a TYPO3 error message.
         // If $js is set the message will be output in JavaScript
      if ($js) {
         echo "alert('".t3lib_div::slashJS($header.'\n'.$text)."');";
      } else {
         echo $head?'<html>
            <head>
               <title>Error!</title>
            </head>
            <body bgcolor="white" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">':'';
         echo '<div align="center">
               <table border="0" cellspacing="0" cellpadding="0" width="333">
                  <tr>
                     <td align="center">'.
                        ($GLOBALS['TBE_STYLES']['logo_login']?'<img src="'.$GLOBALS['BACK_PATH'].$GLOBALS['TBE_STYLES']['logo_login'].'" alt="" />':'<img src="'.$GLOBALS['BACK_PATH'].'gfx/typo3logo.gif" width="333" height="43" vspace="10" />').
                     '</td>
                  </tr>
                  <tr>
                     <td bgcolor="black">
                        <table width="100%" border="0" cellspacing="1" cellpadding="10">
                           <tr>
                              <td bgcolor="#F4F0E8">
                                 <font face="verdana,arial,helvetica" size="2">';
         echo '<b><center><font size="+1">'.$header.'</font></center></b><br />'.$text;
         echo '                     </font>
                              </td>
                           </tr>
                        </table>
                     </td>
                  </tr>
               </table>
            </div>';
         echo $head?'
            </body>
         </html>':'';
      }
   }

   function TYPO3_copyRightNotice() {
      global $TYPO3_CONF_VARS;

         // COPYRIGHT NOTICE:
      $loginCopyrightWarrantyProvider = strip_tags(trim($TYPO3_CONF_VARS['SYS']['loginCopyrightWarrantyProvider']));
      $loginCopyrightWarrantyURL = strip_tags(trim($TYPO3_CONF_VARS['SYS']['loginCopyrightWarrantyURL']));

      if (strlen($loginCopyrightWarrantyProvider)>=2 && strlen($loginCopyrightWarrantyURL)>=10) {
         $warrantyNote='Warranty is supplied by '.htmlspecialchars($loginCopyrightWarrantyProvider).'; <a href="'.htmlspecialchars($loginCopyrightWarrantyURL).'" target="_blank">click for details.</a>';
      } else {
         $warrantyNote='TYPO3 comes with ABSOLUTELY NO WARRANTY; <a href="http://typo3.com/1316.0.html" target="_blank">click for details.</a>';
      }
      $cNotice = '<a href="http://typo3.com/" target="_blank"><img src="gfx/loginlogo_transp.gif" width="75" vspace="2" height="19" alt="TYPO3 logo" align="left" />TYPO3 CMS ver. '.htmlspecialchars($GLOBALS['TYPO_VERSION']).'</a>. Copyright &copy; 1998-2004 Kasper Sk&aring;rh&oslash;j. Extensions are copyright of their respective owners. Go to <a href="http://typo3.com/" target="_blank">http://typo3.com/</a> for details.
      '.strip_tags($warrantyNote,'<a>').' This is free software, and you are welcome to redistribute it under certain conditions; <a href="http://typo3.com/1316.0.html" target="_blank">click for details</a>. Obstructing the appearance of this notice is prohibited by law.';

      return $cNotice;
   }

   function getPathType_web_nonweb($path) {
      return t3lib_div::isFirstPartOfStr($path,t3lib_div::getIndpEnv('TYPO3_DOCUMENT_ROOT')) ? 'web' : '';
   }

   function ADMCMD_previewCmds($pageinfo) {
      if ($pageinfo['fe_group']>0)  {
         $simUser = '&ADMCMD_simUser='.$pageinfo['fe_group'];
      }
      if ($pageinfo['starttime']>time())  {
         $simTime = '&ADMCMD_simTime='.$pageinfo['starttime'];
      }
      if ($pageinfo['endtime']<time() && $pageinfo['endtime']!=0) {
         $simTime = '&ADMCMD_simTime='.($pageinfo['endtime']-1);
      }
      return $simUser.$simTime;
   }

   function processParams($params)  {
      $paramArr=array();
      $lines=explode(chr(10),$params);
      while(list(,$val)=each($lines))  {
         $val = trim($val);
         if ($val)   {
            $pair = explode('=',$val,2);
            $paramArr[trim($pair[0])] = trim($pair[1]);
         }
      }
      return $paramArr;
   }

   function getListOfBackendModules($name,$perms_clause,$backPath='',$script='index.php') {
      $res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('*', 'pages', 'doktype!=255 AND module IN ("'.implode('","',$name).'") AND'.$perms_clause.t3lib_BEfunc::deleteClause('pages'));
      if (!$GLOBALS['TYPO3_DB']->sql_num_rows($res))  return false;

      $out='';
      $theRows=array();
      while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res))   {
         $theRows[]=$row;
         $out.='<span class="nobr"><a href="'.htmlspecialchars($script.'?id='.$row['uid']).'">'.
               t3lib_iconWorks::getIconImage('pages',$row,$backPath,'title="'.htmlspecialchars(t3lib_BEfunc::getRecordPath($row['uid'],$perms_clause,20)).'" align="top"').
               htmlspecialchars($row['title']).
               '</a></span><br />';
      }
      return array('rows'=>$theRows,'list'=>$out);
   }
}
?>

---