AbstractDatabaseRecordList.php

Go to the documentation of this file.

<?php
namespace TYPO3\CMS\Recordlist\RecordList;

use TYPO3\CMS\Backend\Utility\BackendUtility;
use TYPO3\CMS\Core\Utility\GeneralUtility;

class AbstractDatabaseRecordList extends \TYPO3\CMS\Backend\RecordList\AbstractRecordList {

    // External, static:
    // Specify a list of tables which are the only ones allowed to be displayed.
    public $tableList = '';

    // Return URL
    public $returnUrl = '';

    // Boolean. Thumbnails on records containing files (pictures)
    public $thumbs = 0;

    // default Max items shown per table in "multi-table mode", may be overridden by tables.php
    public $itemsLimitPerTable = 20;

    // default Max items shown per table in "single-table mode", may be overridden by tables.php
    public $itemsLimitSingleTable = 100;

    public $widthGif = '<img src="clear.gif" width="1" height="4" hspace="160" alt="" />';

    // Current script name
    public $script = 'index.php';

    // Indicates if all available fields for a user should be selected or not.
    public $allFields = 0;

    // Whether to show localization view or not.
    public $localizationView = FALSE;

    // Internal, static: GPvar:
    // If set, csvList is outputted.
    public $csvOutput = FALSE;

    // Field, to sort list by
    public $sortField;

    // Field, indicating to sort in reverse order.
    public $sortRev;

    // Array, containing which fields to display in extended mode
    public $displayFields;

    // String, can contain the field name from a table which must have duplicate values marked.
    public $duplicateField;

    // Internal, static:
    // Page id
    public $id;

    // Tablename if single-table mode
    public $table = '';

    // If TRUE, records are listed only if a specific table is selected.
    public $listOnlyInSingleTableMode = FALSE;

    // Pointer for browsing list
    public $firstElementNumber = 0;

    // Search string
    public $searchString = '';

    // Levels to search down.
    public $searchLevels = '';

    // Number of records to show
    public $showLimit = 0;

    // Query part for either a list of ids "pid IN (1,2,3)" or a single id "pid = 123" from
    // which to select/search etc. (when search-levels are set high). See start()
    public $pidSelect = '';

    // Page select permissions
    public $perms_clause = '';

    // Some permissions...
    public $calcPerms = 0;

    // Mode for what happens when a user clicks the title of a record.
    public $clickTitleMode = '';

    // Shared module configuration, used by localization features
    public $modSharedTSconfig = array();

    // Loaded with page record with version overlay if any.
    public $pageRecord = array();

    // Tables which should not get listed
    public $hideTables = '';

    public $hideTranslations = '';

    //TSconfig which overwrites TCA-Settings
    public $tableTSconfigOverTCA = array();

    // Array of collapsed / uncollapsed tables in multi table view
    public $tablesCollapsed = array();

    // Internal, dynamic:
    // JavaScript code accumulation
    public $JScode = '';

    // HTML output
    public $HTMLcode = '';

    // "LIMIT " in SQL...
    public $iLimit = 0;

    // Counting the elements no matter what...
    public $eCounter = 0;

    // Set to the total number of items for a table when selecting.
    public $totalItems = '';

    // Cache for record path
    public $recPath_cache = array();

    // Fields to display for the current table
    public $setFields = array();

    // Used for tracking next/prev uids
    public $currentTable = array();

    // Used for tracking duplicate values of fields
    public $duplicateStack = array();

    // module configuratio
    public $modTSconfig;

    protected $overrideUrlParameters = array();

    public function start($id, $table, $pointer, $search = '', $levels = '', $showLimit = 0) {
        // Setting internal variables:
        // sets the parent id
        $this->id = (int)$id;
        if ($GLOBALS['TCA'][$table]) {
            // Setting single table mode, if table exists:
            $this->table = $table;
        }
        $this->firstElementNumber = $pointer;
        $this->searchString = trim($search);
        $this->searchLevels = trim($levels);
        $this->showLimit = \TYPO3\CMS\Core\Utility\MathUtility::forceIntegerInRange($showLimit, 0, 10000);
        // Setting GPvars:
        $this->csvOutput = GeneralUtility::_GP('csv') ? TRUE : FALSE;
        $this->sortField = GeneralUtility::_GP('sortField');
        $this->sortRev = GeneralUtility::_GP('sortRev');
        $this->displayFields = GeneralUtility::_GP('displayFields');
        $this->duplicateField = GeneralUtility::_GP('duplicateField');
        if (GeneralUtility::_GP('justLocalized')) {
            $this->localizationRedirect(GeneralUtility::_GP('justLocalized'));
        }
        // Init dynamic vars:
        $this->counter = 0;
        $this->JScode = '';
        $this->HTMLcode = '';
        // Limits
        if (isset($this->modTSconfig['properties']['itemsLimitPerTable'])) {
            $this->itemsLimitPerTable = \TYPO3\CMS\Core\Utility\MathUtility::forceIntegerInRange((int)$this->modTSconfig['properties']['itemsLimitPerTable'], 1, 10000);
        }
        if (isset($this->modTSconfig['properties']['itemsLimitSingleTable'])) {
            $this->itemsLimitSingleTable = \TYPO3\CMS\Core\Utility\MathUtility::forceIntegerInRange((int)$this->modTSconfig['properties']['itemsLimitSingleTable'], 1, 10000);
        }
        // Set search levels:
        $searchLevels = (int)$this->searchLevels;
        $this->perms_clause = $GLOBALS['BE_USER']->getPagePermsClause(1);
        // This will hide records from display - it has nothing todo with user rights!!
        if ($pidList = $GLOBALS['BE_USER']->getTSConfigVal('options.hideRecords.pages')) {
            if ($pidList = $GLOBALS['TYPO3_DB']->cleanIntList($pidList)) {
                $this->perms_clause .= ' AND pages.uid NOT IN (' . $pidList . ')';
            }
        }
        // Get configuration of collapsed tables from user uc and merge with sanitized GP vars
        $this->tablesCollapsed = is_array($GLOBALS['BE_USER']->uc['moduleData']['list']) ? $GLOBALS['BE_USER']->uc['moduleData']['list'] : array();
        $collapseOverride = GeneralUtility::_GP('collapse');
        if (is_array($collapseOverride)) {
            foreach ($collapseOverride as $collapseTable => $collapseValue) {
                if (is_array($GLOBALS['TCA'][$collapseTable]) && ($collapseValue == 0 || $collapseValue == 1)) {
                    $this->tablesCollapsed[$collapseTable] = $collapseValue;
                }
            }
            // Save modified user uc
            $GLOBALS['BE_USER']->uc['moduleData']['list'] = $this->tablesCollapsed;
            $GLOBALS['BE_USER']->writeUC($GLOBALS['BE_USER']->uc);
            $returnUrl = GeneralUtility::sanitizeLocalUrl(GeneralUtility::_GP('returnUrl'));
            if ($returnUrl !== '') {
                \TYPO3\CMS\Core\Utility\HttpUtility::redirect($returnUrl);
            }
        }
        if ($searchLevels > 0) {
            $allowedMounts = $this->getSearchableWebmounts($this->id, $searchLevels, $this->perms_clause);
            $pidList = implode(',', $GLOBALS['TYPO3_DB']->cleanIntArray($allowedMounts));
            $this->pidSelect = 'pid IN (' . $pidList . ')';
        } elseif ($searchLevels < 0) {
            // Search everywhere
            $this->pidSelect = '1=1';
        } else {
            $this->pidSelect = 'pid=' . (int)$id;
        }
        // Initialize languages:
        if ($this->localizationView) {
            $this->initializeLanguages();
        }
    }

    public function generateList() {
        // Set page record in header
        $this->pageRecord = BackendUtility::getRecordWSOL('pages', $this->id);
        // Traverse the TCA table array:
        foreach ($GLOBALS['TCA'] as $tableName => $value) {
            // Checking if the table should be rendered:
            // Checks that we see only permitted/requested tables:
            if ((!$this->table || $tableName == $this->table) && (!$this->tableList || GeneralUtility::inList($this->tableList, $tableName)) && $GLOBALS['BE_USER']->check('tables_select', $tableName)) {
                // Don't show table if hidden by TCA ctrl section
                $hideTable = $GLOBALS['TCA'][$tableName]['ctrl']['hideTable'] ? TRUE : FALSE;
                // Don't show table if hidden by pageTSconfig mod.web_list.hideTables
                if (in_array($tableName, GeneralUtility::trimExplode(',', $this->hideTables))) {
                    $hideTable = TRUE;
                }
                // Override previous selection if table is enabled or hidden by TSconfig TCA override mod.web_list.table
                if (isset($this->tableTSconfigOverTCA[$tableName . '.']['hideTable'])) {
                    $hideTable = $this->tableTSconfigOverTCA[$tableName . '.']['hideTable'] ? TRUE : FALSE;
                }
                if ($hideTable) {
                    continue;
                }
                // check if we are in single- or multi-table mode
                if ($this->table) {
                    $this->iLimit = isset($GLOBALS['TCA'][$tableName]['interface']['maxSingleDBListItems']) ? (int)$GLOBALS['TCA'][$tableName]['interface']['maxSingleDBListItems'] : $this->itemsLimitSingleTable;
                } else {
                    // if there are no records in table continue current foreach
                    $firstRow = $GLOBALS['TYPO3_DB']->exec_SELECTgetSingleRow(
                        'uid',
                        $tableName,
                        $this->pidSelect . BackendUtility::deleteClause($tableName) . BackendUtility::versioningPlaceholderClause($tableName)
                    );
                    if ($firstRow === FALSE) {
                        continue;
                    }
                    $this->iLimit = isset($GLOBALS['TCA'][$tableName]['interface']['maxDBListItems']) ? (int)$GLOBALS['TCA'][$tableName]['interface']['maxDBListItems'] : $this->itemsLimitPerTable;
                }
                if ($this->showLimit) {
                    $this->iLimit = $this->showLimit;
                }
                // Setting fields to select:
                if ($this->allFields) {
                    $fields = $this->makeFieldList($tableName);
                    $fields[] = 'tstamp';
                    $fields[] = 'crdate';
                    $fields[] = '_PATH_';
                    $fields[] = '_CONTROL_';
                    if (is_array($this->setFields[$tableName])) {
                        $fields = array_intersect($fields, $this->setFields[$tableName]);
                    } else {
                        $fields = array();
                    }
                } else {
                    $fields = array();
                }
                // Find ID to use (might be different for "versioning_followPages" tables)
                if ((int)$this->searchLevels === 0) {
                    $this->pidSelect = 'pid=' . (int)$this->id;
                }
                // Finally, render the list:
                $this->HTMLcode .= $this->getTable($tableName, $this->id, implode(',', $fields));
            }
        }
    }

    public function getSearchBox($formFields = 1) {
        // Setting form-elements, if applicable:
        $formElements = array('', '');
        if ($formFields) {
            $formElements = array('<form action="' . htmlspecialchars($this->listURL('', -1, 'firstElementNumber')) . '" method="post">', '</form>');
        }
        // Make level selector:
        $opt = array();
        $parts = explode('|', $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.xlf:labels.enterSearchLevels'));
        foreach ($parts as $kv => $label) {
            $opt[] = '<option value="' . $kv . '"' . ($kv == (int)$this->searchLevels ? ' selected="selected"' : '') . '>' . htmlspecialchars($label) . '</option>';
        }
        $lMenu = '<select name="search_levels">' . implode('', $opt) . '</select>';
        // Table with the search box:
        $content = '<div class="db_list-searchbox-form">
            ' . $formElements[0] . '

                <!--
                    Search box:
                -->
                <table border="0" cellpadding="0" cellspacing="0" id="typo3-dblist-search">
                    <tr>
                        <td><label for="search_field">' . $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.xlf:labels.enterSearchString', TRUE) . '</label></td>
                        <td><input type="text" name="search_field" id="search_field" value="' . htmlspecialchars($this->searchString) . '"' . $GLOBALS['TBE_TEMPLATE']->formWidth(10) . ' /></td>
                        <td>' . $lMenu . '</td>
                        <td><input type="submit" name="search" value="' . $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.xlf:labels.search', TRUE) . '" /></td>
                    </tr>
                    <tr>
                        <td><label for="showLimit">' . $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.xlf:labels.showRecords', TRUE) . ':</label></td>
                        <td colspan="3"><input type="text" name="showLimit" id="showLimit" value="' . htmlspecialchars(($this->showLimit ? $this->showLimit : '')) . '"' . $GLOBALS['TBE_TEMPLATE']->formWidth(4) . ' /></td>
                    </tr>
                </table>
            ' . $formElements[1] . '</div>';
        return $content;
    }

    /******************************
     *
     * Various helper functions
     *
     ******************************/
    public function setDispFields() {
        // Getting from session:
        $dispFields = $GLOBALS['BE_USER']->getModuleData('list/displayFields');
        // If fields has been inputted, then set those as the value and push it to session variable:
        if (is_array($this->displayFields)) {
            reset($this->displayFields);
            $tKey = key($this->displayFields);
            $dispFields[$tKey] = $this->displayFields[$tKey];
            $GLOBALS['BE_USER']->pushModuleData('list/displayFields', $dispFields);
        }
        // Setting result:
        $this->setFields = $dispFields;
    }

    public function thumbCode($row, $table, $field) {
        return BackendUtility::thumbCode($row, $table, $field, $this->backPath);
    }

    public function makeQueryArray($table, $id, $addWhere = '', $fieldList = '*') {
        $hookObjectsArr = array();
        if (is_array($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['typo3/class.db_list.inc']['makeQueryArray'])) {
            foreach ($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['typo3/class.db_list.inc']['makeQueryArray'] as $classRef) {
                $hookObjectsArr[] = GeneralUtility::getUserObj($classRef);
            }
        }
        // Set ORDER BY:
        $orderBy = $GLOBALS['TCA'][$table]['ctrl']['sortby'] ? 'ORDER BY ' . $GLOBALS['TCA'][$table]['ctrl']['sortby'] : $GLOBALS['TCA'][$table]['ctrl']['default_sortby'];
        if ($this->sortField) {
            if (in_array($this->sortField, $this->makeFieldList($table, 1))) {
                $orderBy = 'ORDER BY ' . $this->sortField;
                if ($this->sortRev) {
                    $orderBy .= ' DESC';
                }
            }
        }
        // Set LIMIT:
        $limit = $this->iLimit ? ($this->firstElementNumber ? $this->firstElementNumber . ',' : '') . ($this->iLimit + 1) : '';
        // Filtering on displayable pages (permissions):
        $pC = $table == 'pages' && $this->perms_clause ? ' AND ' . $this->perms_clause : '';
        // Adding search constraints:
        $search = $this->makeSearchString($table, $id);
        // Compiling query array:
        $queryParts = array(
            'SELECT' => $fieldList,
            'FROM' => $table,
            'WHERE' => $this->pidSelect . ' ' . $pC . BackendUtility::deleteClause($table) . BackendUtility::versioningPlaceholderClause($table) . ' ' . $addWhere . ' ' . $search,
            'GROUPBY' => '',
            'ORDERBY' => $GLOBALS['TYPO3_DB']->stripOrderBy($orderBy),
            'LIMIT' => $limit
        );
        // Filter out records that are translated, if TSconfig mod.web_list.hideTranslations is set
        if ((in_array($table, GeneralUtility::trimExplode(',', $this->hideTranslations)) || $this->hideTranslations === '*') && !empty($GLOBALS['TCA'][$table]['ctrl']['transOrigPointerField']) && $table !== 'pages_language_overlay') {
            $queryParts['WHERE'] .= ' AND ' . $GLOBALS['TCA'][$table]['ctrl']['transOrigPointerField'] . '=0 ';
        }
        // Apply hook as requested in http://forge.typo3.org/issues/16634
        foreach ($hookObjectsArr as $hookObj) {
            if (method_exists($hookObj, 'makeQueryArray_post')) {
                $_params = array(
                    'orderBy' => $orderBy,
                    'limit' => $limit,
                    'pC' => $pC,
                    'search' => $search
                );
                $hookObj->makeQueryArray_post($queryParts, $this, $table, $id, $addWhere, $fieldList, $_params);
            }
        }
        // Return query:
        return $queryParts;
    }

    public function setTotalItems($queryParts) {
        $this->totalItems = $GLOBALS['TYPO3_DB']->exec_SELECTcountRows('*', $queryParts['FROM'], $queryParts['WHERE']);
    }

    public function makeSearchString($table, $currentPid = -1) {
        $result = '';
        $currentPid = (int)$currentPid;
        $tablePidField = $table == 'pages' ? 'uid' : 'pid';
        // Make query, only if table is valid and a search string is actually defined:
        if ($this->searchString) {
            $result = ' AND 0=1';
            $searchableFields = $this->getSearchFields($table);
            if (count($searchableFields) > 0) {
                if (\TYPO3\CMS\Core\Utility\MathUtility::canBeInterpretedAsInteger($this->searchString)) {
                    $whereParts = array(
                        'uid=' . $this->searchString
                    );
                    foreach ($searchableFields as $fieldName) {
                        if (isset($GLOBALS['TCA'][$table]['columns'][$fieldName])) {
                            $fieldConfig = &$GLOBALS['TCA'][$table]['columns'][$fieldName]['config'];
                            $condition = $fieldName . '=' . $this->searchString;
                            if ($fieldConfig['type'] == 'input' && $fieldConfig['eval'] && GeneralUtility::inList($fieldConfig['eval'], 'int')) {
                                if (is_array($fieldConfig['search']) && in_array('pidonly', $fieldConfig['search']) && $currentPid > 0) {
                                    $condition = '(' . $condition . ' AND ' . $tablePidField . '=' . $currentPid . ')';
                                }
                                $whereParts[] = $condition;
                            } elseif (
                                $fieldConfig['type'] == 'text' ||
                                $fieldConfig['type'] == 'flex' ||
                                ($fieldConfig['type'] == 'input' && (!$fieldConfig['eval'] || !preg_match('/date|time|int/', $fieldConfig['eval'])))) {
                                    $condition = $fieldName . ' LIKE \'%' . $this->searchString . '%\'';
                                    $whereParts[] = $condition;
                            }
                        }
                    }
                } else {
                    $whereParts = array();
                    $like = '\'%' . $GLOBALS['TYPO3_DB']->quoteStr($GLOBALS['TYPO3_DB']->escapeStrForLike($this->searchString, $table), $table) . '%\'';
                    foreach ($searchableFields as $fieldName) {
                        if (isset($GLOBALS['TCA'][$table]['columns'][$fieldName])) {
                            $fieldConfig = &$GLOBALS['TCA'][$table]['columns'][$fieldName]['config'];
                            $format = 'LOWER(%s) LIKE LOWER(%s)';
                            if (is_array($fieldConfig['search'])) {
                                if (in_array('case', $fieldConfig['search'])) {
                                    $format = '%s LIKE %s';
                                }
                                if (in_array('pidonly', $fieldConfig['search']) && $currentPid > 0) {
                                    $format = '(' . $format . ' AND ' . $tablePidField . '=' . $currentPid . ')';
                                }
                                if ($fieldConfig['search']['andWhere']) {
                                    $format = '((' . $fieldConfig['search']['andWhere'] . ') AND (' . $format . '))';
                                }
                            }
                            if ($fieldConfig['type'] == 'text' || $fieldConfig['type'] == 'flex' || $fieldConfig['type'] == 'input' && (!$fieldConfig['eval'] || !preg_match('/date|time|int/', $fieldConfig['eval']))) {
                                $whereParts[] = sprintf($format, $fieldName, $like);
                            }
                        }
                    }
                }
                // If search-fields were defined (and there always are) we create the query:
                if (count($whereParts)) {
                    $result = ' AND (' . implode(' OR ', $whereParts) . ')';
                }
            }
        }
        return $result;
    }

    protected function getSearchFields($tableName) {
        $fieldArray = array();
        $fieldListWasSet = FALSE;
        // Get fields from ctrl section of TCA first
        if (isset($GLOBALS['TCA'][$tableName]['ctrl']['searchFields'])) {
            $fieldArray = GeneralUtility::trimExplode(',', $GLOBALS['TCA'][$tableName]['ctrl']['searchFields'], TRUE);
            $fieldListWasSet = TRUE;
        }
        // Call hook to add or change the list
        if (is_array($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['mod_list']['getSearchFieldList'])) {
            $hookParameters = array(
                'tableHasSearchConfiguration' => $fieldListWasSet,
                'tableName' => $tableName,
                'searchFields' => &$fieldArray,
                'searchString' => $this->searchString
            );
            foreach ($GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['mod_list']['getSearchFieldList'] as $hookFunction) {
                GeneralUtility::callUserFunction($hookFunction, $hookParameters, $this);
            }
        }
        return $fieldArray;
    }

    public function linkWrapTable($table, $code) {
        if ($this->table != $table) {
            return '<a href="' . htmlspecialchars($this->listURL('', $table, 'firstElementNumber')) . '">' . $code . '</a>';
        } else {
            return '<a href="' . htmlspecialchars($this->listURL('', '', 'sortField,sortRev,table,firstElementNumber')) . '">' . $code . '</a>';
        }
    }

    public function linkWrapItems($table, $uid, $code, $row) {
        $origCode = $code;
        // If the title is blank, make a "no title" label:
        if ((string)$code === '') {
            $code = '<i>[' . $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.xlf:labels.no_title', 1) . ']</i> - ' . htmlspecialchars(GeneralUtility::fixed_lgd_cs(
                        BackendUtility::getRecordTitle($table, $row), $GLOBALS['BE_USER']->uc['titleLen']));
        } else {
            $code = htmlspecialchars(GeneralUtility::fixed_lgd_cs($code, $this->fixedL), ENT_QUOTES, 'UTF-8', FALSE);
            if ($code != htmlspecialchars($origCode)) {
                $code = '<span title="' . htmlspecialchars($origCode, ENT_QUOTES, 'UTF-8', FALSE) . '">' . $code . '</span>';
            }
        }
        switch ((string) $this->clickTitleMode) {
            case 'edit':
                // If the listed table is 'pages' we have to request the permission settings for each page:
                if ($table == 'pages') {
                    $localCalcPerms = $GLOBALS['BE_USER']->calcPerms(BackendUtility::getRecord('pages', $row['uid']));
                    $permsEdit = $localCalcPerms & 2;
                } else {
                    $permsEdit = $this->calcPerms & 16;
                }
                // "Edit" link: ( Only if permissions to edit the page-record of the content of the parent page ($this->id)
                if ($permsEdit) {
                    $params = '&edit[' . $table . '][' . $row['uid'] . ']=edit';
                    $code = '<a href="#" onclick="' . htmlspecialchars(
                            BackendUtility::editOnClick($params, $this->backPath, -1)) . '" title="' . $GLOBALS['LANG']->getLL('edit', TRUE) . '">' . $code . '</a>';
                }
                break;
            case 'show':
                // "Show" link (only pages and tt_content elements)
                if ($table == 'pages' || $table == 'tt_content') {
                    $code = '<a href="#" onclick="' . htmlspecialchars(
                            BackendUtility::viewOnClick(($table == 'tt_content' ? $this->id . '#' . $row['uid'] : $row['uid']))) . '" title="' . $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_core.xlf:labels.showPage', TRUE) . '">' . $code . '</a>';
                }
                break;
            case 'info':
                // "Info": (All records)
                $code = '<a href="#" onclick="' . htmlspecialchars(('top.launchView(\'' . $table . '\', \'' . $row['uid'] . '\'); return false;')) . '" title="' . $GLOBALS['LANG']->getLL('showInfo', TRUE) . '">' . $code . '</a>';
                break;
            default:
                // Output the label now:
                if ($table == 'pages') {
                    $code = '<a href="' . htmlspecialchars($this->listURL($uid, '', 'firstElementNumber')) . '" onclick="setHighlight(' . $uid . ')">' . $code . '</a>';
                } else {
                    $code = $this->linkUrlMail($code, $origCode);
                }
        }
        return $code;
    }

    public function linkUrlMail($code, $testString) {
        // Check for URL:
        $schema = parse_url($testString);
        if ($schema['scheme'] && GeneralUtility::inList('http,https,ftp', $schema['scheme'])) {
            return '<a href="' . htmlspecialchars($testString) . '" target="_blank">' . $code . '</a>';
        }
        // Check for email:
        if (GeneralUtility::validEmail($testString)) {
            return '<a href="mailto:' . htmlspecialchars($testString) . '" target="_blank">' . $code . '</a>';
        }
        // Return if nothing else...
        return $code;
    }

    public function listURL($altId = '', $table = -1, $exclList = '') {
        $urlParameters = array();
        if ((string)$altId !== '') {
            $urlParameters['id'] = $altId;
        } else {
            $urlParameters['id'] = $this->id;
        }
        if ($table === -1) {
            $urlParameters['table'] = $this->table;
        } else {
            $urlParameters['table'] = $table;
        }
        if ($this->thumbs) {
            $urlParameters['imagemode'] = $this->thumbs;
        }
        if ($this->returnUrl) {
            $urlParameters['returnUrl'] = $this->returnUrl;
        }
        if ($this->searchString) {
            $urlParameters['search_field'] = $this->searchString;
        }
        if ($this->searchLevels) {
            $urlParameters['search_levels'] = $this->searchLevels;
        }
        if ($this->showLimit) {
            $urlParameters['showLimit'] = $this->showLimit;
        }
        if ((!$exclList || !GeneralUtility::inList($exclList, 'firstElementNumber')) && $this->firstElementNumber) {
            $urlParameters['pointer'] = $this->firstElementNumber;
        }
        if ((!$exclList || !GeneralUtility::inList($exclList, 'sortField')) && $this->sortField) {
            $urlParameters['sortField'] = $this->sortField;
        }
        if ((!$exclList || !GeneralUtility::inList($exclList, 'sortRev')) && $this->sortRev) {
            $urlParameters['sortRev'] = $this->sortRev;
        }

        $urlParameters = array_merge_recursive($urlParameters, $this->overrideUrlParameters);

        return BackendUtility::getModuleUrl(GeneralUtility::_GP('M'), $urlParameters);
    }

    public function requestUri() {
        return $this->listURL();
    }

    public function makeFieldList($table, $dontCheckUser = 0, $addDateFields = 0) {
        // Init fieldlist array:
        $fieldListArr = array();
        // Check table:
        if (is_array($GLOBALS['TCA'][$table]) && isset($GLOBALS['TCA'][$table]['columns']) && is_array($GLOBALS['TCA'][$table]['columns'])) {
            if (isset($GLOBALS['TCA'][$table]['columns']) && is_array($GLOBALS['TCA'][$table]['columns'])) {
                // Traverse configured columns and add them to field array, if available for user.
                foreach ($GLOBALS['TCA'][$table]['columns'] as $fN => $fieldValue) {
                    if ($dontCheckUser || (!$fieldValue['exclude'] || $GLOBALS['BE_USER']->check('non_exclude_fields', $table . ':' . $fN)) && $fieldValue['config']['type'] != 'passthrough') {
                        $fieldListArr[] = $fN;
                    }
                }

                $fieldListArr[] = 'uid';
                $fieldListArr[] = 'pid';

                // Add date fields
                if ($dontCheckUser || $GLOBALS['BE_USER']->isAdmin() || $addDateFields) {
                    if ($GLOBALS['TCA'][$table]['ctrl']['tstamp']) {
                        $fieldListArr[] = $GLOBALS['TCA'][$table]['ctrl']['tstamp'];
                    }
                    if ($GLOBALS['TCA'][$table]['ctrl']['crdate']) {
                        $fieldListArr[] = $GLOBALS['TCA'][$table]['ctrl']['crdate'];
                    }
                }
                // Add more special fields:
                if ($dontCheckUser || $GLOBALS['BE_USER']->isAdmin()) {
                    if ($GLOBALS['TCA'][$table]['ctrl']['cruser_id']) {
                        $fieldListArr[] = $GLOBALS['TCA'][$table]['ctrl']['cruser_id'];
                    }
                    if ($GLOBALS['TCA'][$table]['ctrl']['sortby']) {
                        $fieldListArr[] = $GLOBALS['TCA'][$table]['ctrl']['sortby'];
                    }
                    if (\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::isLoaded('version') && $GLOBALS['TCA'][$table]['ctrl']['versioningWS']) {
                        $fieldListArr[] = 't3ver_id';
                        $fieldListArr[] = 't3ver_state';
                        $fieldListArr[] = 't3ver_wsid';
                    }
                }
            } else {
                GeneralUtility::sysLog(sprintf('$TCA is broken for the table "%s": no required "columns" entry in $TCA.', $table), 'core', GeneralUtility::SYSLOG_SEVERITY_ERROR);
            }
        }
        return $fieldListArr;
    }

    public function getTreeObject($id, $depth, $perms_clause) {
        GeneralUtility::logDeprecatedFunction();
        $tree = GeneralUtility::makeInstance('TYPO3\\CMS\\Backend\\Tree\\View\\PageTreeView');
        $tree->init('AND ' . $perms_clause);
        $tree->makeHTML = 0;
        $tree->fieldArray = array('uid', 'php_tree_stop');
        if ($depth) {
            $tree->getTree($id, $depth, '');
        }
        $tree->ids[] = $id;
        return $tree;
    }

    protected function getSearchableWebmounts($id, $depth, $perms_clause) {
        $tree = GeneralUtility::makeInstance('TYPO3\\CMS\\Backend\\Tree\\View\\PageTreeView');
        $tree->init('AND ' . $perms_clause);
        $tree->makeHTML = 0;
        $tree->fieldArray = array('uid', 'php_tree_stop');
        $idList = array();

        $allowedMounts = !$GLOBALS['BE_USER']->isAdmin() && $id === 0
            ? $GLOBALS['BE_USER']->returnWebmounts()
            : array($id);

        foreach ($allowedMounts as $allowedMount) {
            $idList[] = $allowedMount;
            if ($depth) {
                $tree->getTree($allowedMount, $depth, '');
            }
            $idList = array_merge($idList, $tree->ids);
        }

        return $idList;
    }

    public function localizationRedirect($justLocalized) {
        list($table, $orig_uid, $language) = explode(':', $justLocalized);
        if ($GLOBALS['TCA'][$table] && $GLOBALS['TCA'][$table]['ctrl']['languageField'] && $GLOBALS['TCA'][$table]['ctrl']['transOrigPointerField']) {
            $localizedRecord = $GLOBALS['TYPO3_DB']->exec_SELECTgetSingleRow('uid', $table, $GLOBALS['TCA'][$table]['ctrl']['languageField'] . '=' . (int)$language . ' AND ' . $GLOBALS['TCA'][$table]['ctrl']['transOrigPointerField'] . '=' . (int)$orig_uid . BackendUtility::deleteClause($table) . BackendUtility::versioningPlaceholderClause($table));
            if (is_array($localizedRecord)) {
                // Create parameters and finally run the classic page module for creating a new page translation
                $url = substr($this->listURL(), strlen($this->backPath));
                $params = '&edit[' . $table . '][' . $localizedRecord['uid'] . ']=edit';
                $returnUrl = '&returnUrl=' . rawurlencode($url);
                $location = $GLOBALS['BACK_PATH'] . 'alt_doc.php?' . $params . $returnUrl;
                \TYPO3\CMS\Core\Utility\HttpUtility::redirect($location);
            }
        }
    }

    public function setOverrideUrlParameters(array $urlParameters) {
        $this->overrideUrlParameters = $urlParameters;
    }

}