Project

General

Profile

Feature #17540 » class.t3lib_tsparser_ext.php

Administrator Admin, 2007-08-17 22:43

 
<?php
/***************************************************************
* Copyright notice
*
* (c) 1999-2006 Kasper Skaarhoj (kasperYYYY@typo3.com)
* All rights reserved
*
* This script is part of the TYPO3 project. The TYPO3 project is
* free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* The GNU General Public License can be found at
* http://www.gnu.org/copyleft/gpl.html.
* A copy is found in the textfile GPL.txt and important notices to the license
* from the author is found in LICENSE.txt distributed with these scripts.
*
*
* This script is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* This copyright notice MUST APPEAR in all copies of the script!
***************************************************************/
/**
* TSParser extension class to t3lib_TStemplate
*
* $Id: class.t3lib_tsparser_ext.php 2278 2007-04-27 22:09:44Z mundaun $
* Contains functions for the TS module in TYPO3 backend
*
* @author Kasper Skaarhoj <kasperYYYY@typo3.com>
*/
/**
* [CLASS/FUNCTION INDEX of SCRIPT]
*
*
*
* 105: class t3lib_tsparser_ext extends t3lib_TStemplate
* 194: function flattenSetup($setupArray, $prefix, $resourceFlag)
* 221: function substituteConstants($all)
* 234: function substituteConstantsCallBack($matches)
* 264: function substituteCMarkers($all)
* 286: function generateConfig_constants()
* 335: function ext_getSetup($theSetup,$theKey)
* 366: function ext_getObjTree($arr, $depth_in, $depthData, $parentType="",$parentValue="")
* 463: function lineNumberToScript($lnArr)
* 494: function makeHtmlspecialchars($theValue)
* 507: function ext_getSearchKeys($arr, $depth_in, $searchString, $keyArray)
* 563: function ext_getRootlineNumber($pid)
* 581: function ext_getTemplateHierarchyArr($arr,$depthData, $keyArray,$first=0)
* 640: function ext_process_hierarchyInfo($depthDataArr,&$pointer)
* 671: function ext_outputTS($config, $lineNumbers=0, $comments=0, $crop=0, $syntaxHL=0, $syntaxHLBlockmode=0)
* 698: function ext_fixed_lgd($string,$chars)
* 714: function ext_lnBreakPointWrap($ln,$str)
* 727: function ext_formatTS($input, $ln, $comments=1, $crop=0)
* 766: function ext_getFirstTemplate($id,$template_uid=0)
* 786: function ext_getAllTemplates($id)
* 807: function ext_compareFlatSetups($default)
* 873: function ext_categorizeEditableConstants($editConstArray)
* 896: function ext_getCategoryLabelArray()
* 913: function ext_getTypeData($type)
* 955: function ext_getTSCE_config($category)
* 994: function ext_getKeyImage($key)
* 1004: function ext_getTSCE_config_image($imgConf)
* 1028: function ext_resourceDims()
* 1058: function ext_readDirResources($path)
* 1073: function readDirectory($path,$type="file")
* 1098: function ext_fNandV($params)
* 1116: function ext_printFields($theConstants,$category)
*
* SECTION: Processing input values
* 1373: function ext_regObjectPositions($constants)
* 1388: function ext_regObjects($pre)
* 1433: function ext_putValueInConf($key, $var)
* 1456: function ext_removeValueInConf($key)
* 1472: function ext_depthKeys($arr,$settings)
* 1507: function ext_procesInput($http_post_vars,$http_post_files,$theConstants,$tplRow)
* 1634: function upload_copy_file($typeDat,&$tplRow,$theRealFileName,$tmp_name)
* 1683: function ext_prevPageWithTemplate($id,$perms_clause)
* 1699: function ext_setStar($val)
* 1711: function ext_detectAndFixExtensionPrefix($value)
*
* TOTAL FUNCTIONS: 41
* (This index is automatically created/updated by the extension "extdeveval")
*
*/

require_once(PATH_t3lib."class.t3lib_tstemplate.php");







/**
* TSParser extension class to t3lib_TStemplate
*
* @author Kasper Skaarhoj <kasperYYYY@typo3.com>
* @package TYPO3
* @subpackage t3lib
*/
class t3lib_tsparser_ext extends t3lib_TStemplate {

var $edit_divider = "###MOD_TS:EDITABLE_CONSTANTS###"; // This string is used to indicate the point in a template from where the editable constants are listed. Any vars before this point (if it exists though) is regarded as default values.
var $HTMLcolorList = "aqua,black,blue,fuchsia,gray,green,lime,maroon,navy,olive,purple,red,silver,teal,yellow,white";

// internal
var $categories = array(
"basic" => array(), // Constants of superior importance for the template-layout. This is dimensions, imagefiles and enabling of various features. The most basic constants, which you would almost always want to configure.
"menu" => array(), // Menu setup. This includes fontfiles, sizes, background images. Depending on the menutype.
"content" => array(), // All constants related to the display of pagecontent elements
"page" => array(), // General configuration like metatags, link targets
"advanced" => array(), // Advanced functions, which are used very seldomly.
"all" => array() // All constants are put here also!
); // This will be filled with the available categories of the current template.
var $subCategories = array(
// Standard categories:
"enable" => Array("Enable features", "a"),
"dims" => Array("Dimensions, widths, heights, pixels", "b"),
"file" => Array("Files", "c"),
"typo" => Array("Typography", "d"),
"color" => Array("Colors", "e"),
"links" => Array("Links and targets", "f"),
"language" => Array("Language specific constants", "g"),

// subcategories based on the default content elements
"cheader" => Array("Content: 'Header'", "ma"),
"cheader_g" => Array("Content: 'Header', Graphical", "ma"),
"ctext" => Array("Content: 'Text'", "mb"),
// "ctextpic" =>
"cimage" => Array("Content: 'Image'", "md"),
"cbullets" => Array("Content: 'Bullet list'", "me"),
"ctable" => Array("Content: 'Table'", "mf"),
"cuploads" => Array("Content: 'Filelinks'", "mg"),
"cmultimedia" => Array("Content: 'Multimedia'", "mh"),
"cmailform" => Array("Content: 'Form'", "mi"),
"csearch" => Array("Content: 'Search'", "mj"),
"clogin" => Array("Content: 'Login'", "mk"),
"csplash" => Array("Content: 'Textbox'", "ml"),
"cmenu" => Array("Content: 'Menu/Sitemap'", "mm"),
"cshortcut" => Array("Content: 'Insert records'", "mn"),
"clist" => Array("Content: 'List of records'", "mo"),
"cscript" => Array("Content: 'Script'", "mp"),
"chtml" => Array("Content: 'HTML'", "mq")
);
var $resourceDimensions = array();
var $dirResources = array();

// var $matchAll = 0; // If set, all conditions are matched!

var $backend_info=1;

// tsconstanteditor
var $ext_inBrace=0;

// tsbrowser
var $tsbrowser_searchKeys = array();
var $tsbrowser_depthKeys = array();
var $constantMode="";
var $regexMode="";
var $fixedLgd="";
var $resourceCheck=0;
var $ext_lineNumberOffset=0;
var $ext_localGfxPrefix="";
var $ext_localWebGfxPrefix="";
var $ext_expandAllNotes=0;
var $ext_noPMicons=0;
var $ext_noSpecialCharsOnLabels=0;
var $ext_listOfTemplatesArr=array();
var $ext_lineNumberOffset_mode="";
var $ext_dontCheckIssetValues=0; // Dont change...
var $ext_noCEUploadAndCopying=0;
var $ext_printAll=0;
var $ext_CEformName="forms[0]";
var $ext_defaultOnlineResourceFlag=0;
var $doNotSortCategoriesBeforeMakingForm = FALSE;

// ts analyzer
var $templateTitles=array();


/**
* This flattens a hierarchical setuparray to $this->flatSetup
* The original function fetched the resource-file if any ("file."). This functions doesn't.
*
* @param [type] $setupArray: ...
* @param [type] $prefix: ...
* @param [type] $resourceFlag: ...
* @return [type] ...
*/
function flattenSetup($setupArray, $prefix, $resourceFlag) {
if (is_array($setupArray)) {
$this->getFileName_backPath=PATH_site; // Setting absolute prefixed path for relative resources.
reset($setupArray);
while(list($key,$val)=each($setupArray)) {
if ($prefix || substr($key,0,16)!="TSConstantEditor") { // We don't want "TSConstantEditor" in the flattend setup.
if (is_array($val)) {
$this->flattenSetup($val,$prefix.$key, ($key=="file."));
} elseif ($resourceFlag && $this->resourceCheck) {
$this->flatSetup[$prefix.$key] = $this->getFileName($val);
if ($this->removeFromGetFilePath && substr($this->flatSetup[$prefix.$key],0,strlen($this->removeFromGetFilePath))==$this->removeFromGetFilePath) {
$this->flatSetup[$prefix.$key] = substr($this->flatSetup[$prefix.$key],strlen($this->removeFromGetFilePath));
}
} else {
$this->flatSetup[$prefix.$key] = $val;
}
}
}
}
}

/**
* [Describe function...]
*
* @param [type] $all: ...
* @return [type] ...
*/
function substituteConstants($all) {
$this->Cmarker = substr(md5(uniqid("")),0,6);

return preg_replace_callback('/\{\$(.[^}]+)\}/', array($this, 'substituteConstantsCallBack'), $all);
}

/**
* Call back method for preg_replace_callback in substituteConstants
*
* @param array Regular expression matches
* @return string Replacement
* @see substituteConstants()
*/
function substituteConstantsCallBack($matches) {
switch($this->constantMode) {
case 'const':
$ret_val = isset($this->flatSetup[$matches[1]]) && !is_array($this->flatSetup[$matches[1]]) ?
'##'.$this->Cmarker.'_B##'.$matches[0].'##'.$this->Cmarker.'_E##' :
$matches[0];
break;
case 'subst':
$ret_val = isset($this->flatSetup[$matches[1]]) && !is_array($this->flatSetup[$matches[1]]) ?
'##'.$this->Cmarker.'_B##'.$this->flatSetup[$matches[1]].'##'.$this->Cmarker.'_E##' :
$matches[0];
break;
case 'untouched':
$ret_val = $matches[0];
break;
default:
$ret_val = isset($this->flatSetup[$matches[1]]) && !is_array($this->flatSetup[$matches[1]]) ?
$this->flatSetup[$matches[1]] :
$matches[0];
}

return $ret_val;
}

/**
* [Describe function...]
*
* @param [type] $all: ...
* @return [type] ...
*/
function substituteCMarkers($all) {
switch($this->constantMode) {
case "const":
$all = str_replace('##'.$this->Cmarker.'_B##', '<font color="green"><B>', $all);
$all = str_replace('##'.$this->Cmarker.'_E##', '</b></font>', $all);
break;
case "subst":
$all = str_replace('##'.$this->Cmarker.'_B##', '<font color="green"><B>', $all);
$all = str_replace('##'.$this->Cmarker.'_E##', '</b></font>', $all);
break;
default:
$all = $all;
break;
}
return $all;
}

/**
* Parses the constants in $this->const with respect to the constant-editor in this module.
* In particular comments in the code are registered and the edit_divider is taken into account.
*
* @return [type] ...
*/
function generateConfig_constants() {
// These vars are also set lateron...
$this->setup['resources'] = $this->resources;
$this->setup['sitetitle'] = $this->sitetitle;

// parse constants
$constants = t3lib_div::makeInstance("t3lib_TSparser");
$constants->regComments=1; // Register comments!
$constants->setup = $this->const;
$constants->setup = $this->mergeConstantsFromPageTSconfig($constants->setup);

$matchObj = t3lib_div::makeInstance("t3lib_matchCondition");
// $matchObj->matchAlternative = array("[globalString = page | title = *test*]");
$matchObj->matchAll=1; // Matches ALL conditions in TypoScript

$c=0;
$cc=count($this->constants);
reset($this->constants);
while (list(,$str)=each($this->constants)) {
$c++;
if ($c==$cc) {
if (strstr($str,$this->edit_divider)) {
$parts = explode($this->edit_divider,$str,2);
$str=$parts[1];
$constants->parse($parts[0],$matchObj);
}
$this->flatSetup = Array();
$this->flattenSetup($constants->setup,"","");
$defaultConstants=$this->flatSetup;
}
$constants->parse($str,$matchObj);
}

$this->flatSetup = Array();
$this->flattenSetup($constants->setup,"","");
$this->setup["constants"] = $constants->setup;

return $this->ext_compareFlatSetups($defaultConstants);
}

/**
* [Describe function...]
*
* @param [type] $theSetup: ...
* @param [type] $theKey: ...
* @return [type] ...
*/
function ext_getSetup($theSetup,$theKey) {
$parts = explode(".",$theKey,2);
// debug("-----------",1);
// debug($theKey,1);
if (strcmp($parts[0],"") && is_array($theSetup[$parts[0]."."])) {
// debug(trim($parts[1]),1);
if (strcmp(trim($parts[1]),"")) {
// debug(trim($parts[1]),1);
return $this->ext_getSetup($theSetup[$parts[0]."."],trim($parts[1]));
} else {
return array($theSetup[$parts[0]."."], $theSetup[$parts[0]]);
}
} else {
if (strcmp(trim($theKey),"")) {
return array(array(),$theSetup[$theKey]);
} else {
return array($theSetup,"");
}
}
}

/**
* [Describe function...]
*
* @param [type] $arr: ...
* @param [type] $depth_in: ...
* @param [type] $depthData: ...
* @param [type] $parentType: ...
* @param [type] $parentValue: ...
* @param boolean $alphaSort sorts the array keys / tree by alphabet when set to 1
* @return [type] ...
*/
function ext_getObjTree($arr, $depth_in, $depthData, $parentType='',$parentValue='', $alphaSort='0') {
$HTML="";
$a=0;

reset($arr);
if($alphaSort == '1') {
ksort($arr);
}
$keyArr_num=array();
$keyArr_alpha=array();
while (list($key,)=each($arr)) {
if (substr($key,-2)!="..") { // Don't do anything with comments / linenumber registrations...
$key=ereg_replace("\.$","",$key);
if (substr($key,-1)!=".") {
if (t3lib_div::testInt($key)) {
$keyArr_num[$key]=$arr[$key];
} else {
$keyArr_alpha[$key]=$arr[$key];
}
}
}
}
ksort($keyArr_num);
$keyArr=$keyArr_num+$keyArr_alpha;
reset($keyArr);
$c=count($keyArr);
if ($depth_in) {$depth_in = $depth_in.".";}

// $validate_info= verify_TSobjects($keyArr,$parentType,$parentValue);
// debug($validate_info);

while (list($key,)=each($keyArr)) {
$a++;
$depth=$depth_in.$key;
if ($this->bType!="const" || substr($depth,0,1)!="_") { // this excludes all constants starting with "_" from being shown.
$goto = substr(md5($depth),0,6);
// debug($depth);
$deeper = (is_array($arr[$key."."]) && ($this->tsbrowser_depthKeys[$depth] || $this->ext_expandAllNotes)) ? 1 : 0;
$PM = "join";
$LN = ($a==$c)?"blank":"line";
$BTM = ($a==$c)?"bottom":"";
$PM = is_array($arr[$key."."]) && !$this->ext_noPMicons ? ($deeper ? "minus":"plus") : "join";

$HTML.=$depthData;
$theIcon='<img src="'.$GLOBALS["BACK_PATH"].'gfx/ol/'.$PM.$BTM.'.gif" width="18" height="16" align="top" border="0" alt="" />';
if ($PM=="join") {
$HTML.=$theIcon;
} else {
$aHref='index.php?id='.$GLOBALS["SOBE"]->id.'&tsbr['.$depth.']='.($deeper?0:1).'#'.$goto;
$HTML.='<a name="'.$goto.'" href="'.htmlspecialchars($aHref).'">'.$theIcon.'</a>';
}

$label = $key;
if (t3lib_div::inList("types,resources,sitetitle",$depth) && $this->bType=="setup") { // Read only...
$label='<font color="#666666">'.$label.'</font>';
} else {
if ($this->linkObjects) {
$aHref = 'index.php?id='.$GLOBALS["SOBE"]->id.'&sObj='.$depth;
if ($this->bType!="const") {
$ln = is_array($arr[$key.'.ln..']) ? 'Defined in: '.$this->lineNumberToScript($arr[$key.'.ln..']) : 'N/A';
} else {
$ln = '';
}

if ($this->tsbrowser_searchKeys[$depth] & 4) { $label = '<b><font color="red">'.$label.'</font></b>'; } // The key has matched the search string
$label = '<a href="'.htmlspecialchars($aHref).'" title="'.htmlspecialchars($ln).'">'.$label.'</a>';
}
}

$HTML.="[".$label."]";

if (isset($arr[$key])) {
$theValue = $arr[$key];
if ($this->fixedLgd) {
$imgBlocks = ceil(1+strlen($depthData)/77);
$lgdChars = 68-ceil(strlen("[".$key."]")*0.8)-$imgBlocks*3;
$theValue = $this->ext_fixed_lgd($theValue,$lgdChars);
}
if ($this->tsbrowser_searchKeys[$depth] & 2) { // The value has matched the search string
$HTML.='&nbsp;=&nbsp;<b><font color="red">'.$this->makeHtmlspecialchars($theValue).'</font></b>';
} else {
$HTML.="&nbsp;=&nbsp;<b>".$this->makeHtmlspecialchars($theValue)."</b>";
}
if ($this->ext_regComments && isset($arr[$key.'..'])) {
$comment = $arr[$key.'..'];
$comment = preg_replace('/[\r\n]/', ' ', $comment); // Remove linebreaks, replace with " "
$comment = preg_replace('/[#\*]{2,}/', '', $comment); // Remove # and * if more than twice in a row
$comment = preg_replace('/^[#\*\s]+/', '# ', $comment); // Replace leading # (just if it exists) and add it again. Result: Every comment should be prefixed by a "#".
$HTML.= ' <span class="comment">'.trim($comment).'</span>';
}
}
$HTML.="<br />";

if ($deeper) {
$HTML.=$this->ext_getObjTree($arr[$key."."], $depth, $depthData.'<img src="'.$GLOBALS["BACK_PATH"].'gfx/ol/'.$LN.'.gif" width="18" height="16" align="top" alt="" />', '' /* not used: $validate_info[$key] */, $arr[$key], $alphaSort);
}
}
}
return $HTML;
}

/**
* [Describe function...]
*
* @param [type] $lnArr: ...
* @return [type] ...
*/
function lineNumberToScript($lnArr) {
if (!is_array($this->lnToScript)) {
$this->lnToScript = array();
$c=1;
$c+=substr_count($GLOBALS['TYPO3_CONF_VARS']['FE']['defaultTypoScript_setup'],chr(10))+2;
$this->lnToScript[$c] = '[Default]';

foreach($this->hierarchyInfoToRoot as $info) {
$c+=$info['configLines']+1;
$this->lnToScript[$c] = $info['title'];
}
}

foreach($lnArr as $k => $ln) {
foreach($this->lnToScript as $endLn => $title) {
if ($endLn >= intval($ln)) {
$lnArr[$k] = '"'.$title.'", '.$ln;
break;
}
}
}

return implode('; ',$lnArr);
}

/**
* [Describe function...]
*
* @param [type] $theValue: ...
* @return [type] ...
*/
function makeHtmlspecialchars($theValue){
return $this->ext_noSpecialCharsOnLabels ? $theValue : htmlspecialchars($theValue);
}

/**
* [Describe function...]
*
* @param [type] $arr: ...
* @param [type] $depth_in: ...
* @param [type] $searchString: ...
* @param [type] $keyArray: ...
* @return [type] ...
*/
function ext_getSearchKeys($arr, $depth_in, $searchString, $keyArray) {
reset($arr);
$keyArr=array();
while (list($key,)=each($arr)) {
$key=ereg_replace('\.$','',$key);
if (substr($key,-1)!='.') {
$keyArr[$key]=1;
}
}
reset($keyArr);
// asort($keyArr);
$c=count($keyArr);
if ($depth_in) { $depth_in = $depth_in.'.'; }
while (list($key,)=each($keyArr)) {
$depth=$depth_in.$key;
$deeper = is_array($arr[$key."."]);

if ($this->regexMode) {
if (ereg($searchString,$arr[$key])) { // The value has matched
$this->tsbrowser_searchKeys[$depth]+=2;
}
if (ereg($searchString,$key)) { // The key has matched
$this->tsbrowser_searchKeys[$depth]+=4;
}
if (ereg($searchString,$depth_in)) { // Just open this subtree if the parent key has matched the search
$this->tsbrowser_searchKeys[$depth]=1;
}
} else {
if (stristr($arr[$key],$searchString)) { // The value has matched
$this->tsbrowser_searchKeys[$depth]+=2;
}
if (stristr($key,$searchString)) { // The key has matches
$this->tsbrowser_searchKeys[$depth]+=4;
}
if (stristr($depth_in,$searchString)) { // Just open this subtree if the parent key has matched the search
$this->tsbrowser_searchKeys[$depth]=1;
}
}

if ($deeper) {
$cS = count($this->tsbrowser_searchKeys);
$keyArray = $this->ext_getSearchKeys($arr[$key.'.'], $depth, $searchString, $keyArray);
if ($cS != count($this->tsbrowser_searchKeys)) {
$keyArray[$depth]=1;
}
}
}
return $keyArray;
}

/**
* [Describe function...]
*
* @param [type] $pid: ...
* @return [type] ...
*/
function ext_getRootlineNumber($pid) {
if ($pid && is_array($GLOBALS["rootLine"])) {
reset($GLOBALS["rootLine"]);
while(list($key,$val)=each($GLOBALS["rootLine"])) {
if ($val['uid']==$pid) return $key;
}
}
}

/**
* [Describe function...]
*
* @param [type] $arr: ...
* @param [type] $depthData: ...
* @param [type] $keyArray: ...
* @param [type] $first: ...
* @return [type] ...
*/
function ext_getTemplateHierarchyArr($arr,$depthData, $keyArray,$first=0) {
reset($arr);
$keyArr=array();
while (list($key,)=each($arr)) {
$key=ereg_replace("\.$","",$key);
if (substr($key,-1)!=".") {
$keyArr[$key]=1;
}
}
reset($keyArr);
$a=0;
$c=count($keyArr);
while (list($key,)=each($keyArr)) {
$HTML="";
$a++;
$deeper = is_array($arr[$key."."]);
$row=$arr[$key];

$PM = "join";
$LN = ($a==$c)?"blank":"line";
$BTM = ($a==$c)?"top":"";
$PM = "join";

$HTML.=$depthData;
$icon = substr($row["templateID"],0,3)=="sys" ? t3lib_iconWorks::getIcon("sys_template",array("root"=>$row["root"])) :
(substr($row["templateID"],0,6)=="static" ? t3lib_iconWorks::getIcon("static_template",array()) : 'gfx/i/default.gif');
$alttext= "[".$row['templateID']."]";
$alttext.= $row['pid'] ? " - ".t3lib_BEfunc::getRecordPath($row['pid'],$GLOBALS["SOBE"]->perms_clause,20) : "";
if (in_array($row['templateID'],$this->clearList_const) || in_array($row['templateID'],$this->clearList_setup)) {
$A_B='<a href="index.php?id='.$GLOBALS["SOBE"]->id.'&template='.$row['templateID'].'">';
$A_E="</A>";
} else {
$A_B="";
$A_E="";
}
$HTML.=($first?'':'<IMG src="'.$GLOBALS["BACK_PATH"].'gfx/ol/'.$PM.$BTM.'.gif" width="18" height="16" align="top" border=0>').'<IMG src="'.$GLOBALS["BACK_PATH"].$icon.'" width="18" height="16" align="top" title="'.$alttext.'">'.$A_B.t3lib_div::fixed_lgd_cs($row['title'],$GLOBALS["BE_USER"]->uc["titleLen"]).$A_E."&nbsp;&nbsp;";
$RL = $this->ext_getRootlineNumber($row['pid']);
$keyArray[] = '<tr>
<td nowrap>'.$HTML.'</td>
<td align=center>'.($row["root"]?"<b>X</b>":"").'&nbsp;&nbsp;</td>
<td align=center'.$row["bgcolor_setup"].'>'.fw(($row["clConf"]?"<b>X</b>":"")."&nbsp;&nbsp;").'</td>
<td align=center'.$row["bgcolor_const"].'>'.fw(($row["clConst"]?"<b>X</b>":"")."&nbsp;&nbsp;").'</td>
<td>'.($row["pid"]?"&nbsp;".$row["pid"].(strcmp($RL,"")?" (".$RL.")":"")."&nbsp;&nbsp;":"").'</td>
<td>'.($row["next"]?"&nbsp;".$row["next"]."&nbsp;&nbsp;":"").'</td>
</tr>';
if ($deeper) {
$keyArray = $this->ext_getTemplateHierarchyArr($arr[$key."."], $depthData.($first?'':'<IMG src="'.$GLOBALS["BACK_PATH"].'gfx/ol/'.$LN.'.gif" width="18" height="16" align="top">'), $keyArray);
}
}
return $keyArray;
}

/**
* [Describe function...]
*
* @param [type] $depthDataArr: ...
* @param [type] $pointer: ...
* @return [type] ...
*/
function ext_process_hierarchyInfo($depthDataArr,&$pointer) {
$parent = $this->hierarchyInfo[$pointer-1]['templateParent'];
while ($pointer>0 && $this->hierarchyInfo[$pointer-1]['templateParent']==$parent) {
$pointer--;
$row = $this->hierarchyInfo[$pointer];

$depthDataArr[$row['templateID']]=$row;
$depthDataArr[$row['templateID']]["bgcolor_setup"] = isset($this->clearList_setup_temp[$row['templateID']])?' class="bgColor5"':'';
$depthDataArr[$row['templateID']]["bgcolor_const"] = isset($this->clearList_const_temp[$row['templateID']])?' class="bgColor5"':'';
unset($this->clearList_setup_temp[$row['templateID']]);
unset($this->clearList_const_temp[$row['templateID']]);
$this->templateTitles[$row['templateID']]=$row["title"];

if ($row['templateID']==$this->hierarchyInfo[$pointer-1]['templateParent']) {
$depthDataArr[$row['templateID']."."] = $this->ext_process_hierarchyInfo(array(), $pointer);
}
}
return $depthDataArr;
}

/**
* [Describe function...]
*
* @param [type] $config: ...
* @param [type] $lineNumbers: ...
* @param [type] $comments: ...
* @param [type] $crop: ...
* @param [type] $syntaxHL: ...
* @param [type] $syntaxHLBlockmode: ...
* @return [type] ...
*/
function ext_outputTS($config, $lineNumbers=0, $comments=0, $crop=0, $syntaxHL=0, $syntaxHLBlockmode=0) {
$all="";
reset($config);
while (list(,$str)=each($config)) {
$all.="\n[GLOBAL]\n".$str;
}

if ($syntaxHL) {
$all = ereg_replace("^[^".chr(10)."]*.","",$all);
$all = chop($all);
$tsparser = t3lib_div::makeInstance("t3lib_TSparser");
$tsparser->lineNumberOffset=$this->ext_lineNumberOffset+1;
return $tsparser->doSyntaxHighlight($all,$lineNumbers?array($this->ext_lineNumberOffset+1):'',$syntaxHLBlockmode);
} else {
return $this->ext_formatTS($all,$lineNumbers,$comments,$crop);
}
}

/**
* Returns a new string of max. $chars lenght
* If the string is longer, it will be truncated and prepended with "..."
* $chars must be an integer of at least 4
*
* @param [type] $string: ...
* @param [type] $chars: ...
* @return [type] ...
*/
function ext_fixed_lgd($string,$chars) {
if ($chars >= 4) {
if(strlen($string)>$chars) {
return substr($string, 0, $chars-3)."...";
}
}
return $string;
}

/**
* [Describe function...]
*
* @param [type] $ln: ...
* @param [type] $str: ...
* @return [type] ...
*/
function ext_lnBreakPointWrap($ln,$str) {
return '<A href="#" onClick="return brPoint('.$ln.','.($this->ext_lineNumberOffset_mode=="setup"?1:0).');">'.$str.'</a>';
}

/**
* [Describe function...]
*
* @param [type] $input: ...
* @param [type] $ln: ...
* @param [type] $comments: ...
* @param [type] $crop: ...
* @return [type] ...
*/
function ext_formatTS($input, $ln, $comments=1, $crop=0) {
$input = ereg_replace("^[^".chr(10)."]*.","",$input);
$input = chop($input);
$cArr = explode(chr(10),$input);

reset($cArr);
$n = ceil(log10(count($cArr)+$this->ext_lineNumberOffset));
$lineNum="";
while(list($k,$v)=each($cArr)) {
$lln=$k+$this->ext_lineNumberOffset+1;
if ($ln) $lineNum = $this->ext_lnBreakPointWrap($lln,str_replace(" ",'&nbsp;',sprintf("% ".$n."d",$lln))).": ";
$v=htmlspecialchars($v);
if ($crop) {$v=$this->ext_fixed_lgd($v,($ln?71:77));}
$cArr[$k] = $lineNum.str_replace(" ",'&nbsp;',$v);

$firstChar = substr(trim($v),0,1);
if ($firstChar=="[") {
$cArr[$k] = '<font color="green"><b>'.$cArr[$k].'</b></font>';
} elseif ($firstChar=="/" || $firstChar=="#") {
if ($comments) {
$cArr[$k] = '<span class="typo3-dimmed">'.$cArr[$k].'</span>';
} else {
unset($cArr[$k]);
}
}


}
$output = implode($cArr, "<BR>")."<BR>";
return $output;
}

/**
* [Describe function...]
*
* @param [type] $id: ...
* @param [type] $template_uid: ...
* @return [type] ...
*/
function ext_getFirstTemplate($id,$template_uid=0) {
// Query is taken from the runThroughTemplates($theRootLine) function in the parent class.
if (intval($id)) {
if ($template_uid) {
$addC = " AND uid=".$template_uid;
}
$res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('*', 'sys_template', 'pid='.intval($id).$addC.' '.$this->whereClause, '', 'sorting', '1');
$row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res);
t3lib_BEfunc::workspaceOL('sys_template',$row);
$GLOBALS['TYPO3_DB']->sql_free_result($res);
return $row; // Returns the template row if found.
}
}

/**
* [Describe function...]
*
* @param [type] $id: ...
* @return [type] ...
*/
function ext_getAllTemplates($id) {
// Query is taken from the runThroughTemplates($theRootLine) function in the parent class.
if (intval($id)) {
$outRes=array();
$res = $GLOBALS['TYPO3_DB']->exec_SELECTquery('*', 'sys_template', 'pid='.intval($id).' '.$this->whereClause, '', 'sorting');
while($row = $GLOBALS['TYPO3_DB']->sql_fetch_assoc($res)) {
t3lib_BEfunc::workspaceOL('sys_template',$row);
if (is_array($row)) $outRes[] = $row;
}
$GLOBALS['TYPO3_DB']->sql_free_result($res);
return $outRes; // Returns the template rows in an array.
}
}

/**
* This function compares the flattened constants (default and all).
* Returns an array with the constants from the whole template which may be edited by the module.
*
* @param [type] $default: ...
* @return [type] ...
*/
function ext_compareFlatSetups($default) {
$editableComments=array();
reset($this->flatSetup);
while(list($const,$value)=each($this->flatSetup)) {
if (substr($const,-2)!=".." && isset($this->flatSetup[$const.".."])) {
$comment = trim($this->flatSetup[$const.".."]);
$c_arr = explode(chr(10),$comment);
while(list($k,$v)=each($c_arr)) {
$line=trim(ereg_replace("^[#\/]*","",$v));
if ($line) {
$parts = preg_split('/(?<!\\\\);+/',$line);
while(list(,$par)=each($parts)) {
if (strstr($par,"=")) {
$keyValPair =explode("=",$par,2);
switch(trim(strtolower($keyValPair[0]))) {
case "type":
// Type:
/*
int (range; low-high, list: item,item,item = selector),
boolean (check),
string (default),
wrap,
html-color ...,
file
*/
$editableComments[$const]["type"] = trim($keyValPair[1]);
break;
case "cat":
// list of categories.
$catSplit=explode("/",strtolower($keyValPair[1]));
$editableComments[$const]["cat"] = trim($catSplit[0]);
$catSplit[1]=trim($catSplit[1]); // This is the subcategory. Must be a key in $this->subCategories[]. catSplit[2] represents the search-order within the subcat.
if ($catSplit[1] && isset($this->subCategories[$catSplit[1]])) {
$editableComments[$const]["subcat_name"]=$catSplit[1];
$editableComments[$const]["subcat"]=$this->subCategories[$catSplit[1]][1]."/".$catSplit[1]."/".trim($catSplit[2])."z";
} else {
$editableComments[$const]["subcat"]="x"."/".trim($catSplit[2])."z";
}
break;
case "label":
// label
$editableComments[$const]["label"] = trim($keyValPair[1]);
break;
}
}
}
}
}
}
if (isset($editableComments[$const])) {
$editableComments[$const]["name"]=$const;
$editableComments[$const]["value"]=trim($value);
if (isset($default[$const])) {
$editableComments[$const]["default_value"]=trim($default[$const]);
}
}
}
return $editableComments;
}

/**
* [Describe function...]
*
* @param [type] $editConstArray: ...
* @return [type] ...
*/
function ext_categorizeEditableConstants($editConstArray) {
// Runs through the available constants and fills the $this->categories array with pointers and priority-info
reset($editConstArray);
while(list($constName,$constData)=each($editConstArray)) {
if (!$constData["type"]) {$constData["type"]="string";}
$cats = explode(",",$constData["cat"]);
reset($cats);
while (list(,$theCat)=each($cats)) { // if = only one category, while allows for many. We have agreed on only one category is the most basic way...
$theCat=trim($theCat);
if ($theCat) {
$this->categories[$theCat][$constName]=$constData["subcat"];
// $this->categories["all"][$constName]=$constData["subcat"];
}
}
}
// debug($this->categories);
}

/**
* [Describe function...]
*
* @return [type] ...
*/
function ext_getCategoryLabelArray() {
// Returns array used for labels in the menu.
$retArr = array();
while(list($k,$v)=each($this->categories)) {
if (count($v)) {
$retArr[$k]=strtoupper($k)." (".count($v).")";
}
}
return $retArr;
}

/**
* [Describe function...]
*
* @param [type] $type: ...
* @return [type] ...
*/
function ext_getTypeData($type) {
$retArr = array();
$type=trim($type);
if (!$type) {
$retArr["type"]="string";
} else {
$m=strcspn ($type," [");
$retArr["type"]=strtolower(substr($type,0,$m));
if (t3lib_div::inList("int,options,file,boolean,offset,user",$retArr["type"])) {
$p=trim(substr($type,$m));
$reg = array();
ereg("\[(.*)\]",$p,$reg);
$p=trim($reg[1]);
if ($p) {
$retArr["paramstr"]=$p;
switch($retArr["type"]) {
case "int":
if (substr($retArr["paramstr"],0,1)=="-") {
$retArr["params"]=t3lib_div::intExplode("-",substr($retArr["paramstr"],1));
$retArr["params"][0]=intval("-".$retArr["params"][0]);
} else {
$retArr["params"]=t3lib_div::intExplode("-",$retArr["paramstr"]);
}
$retArr["paramstr"]=$retArr["params"][0]." - ".$retArr["params"][1];
break;
case "options":
$retArr["params"]=preg_split('/(?<!\\\\),+/',$retArr["paramstr"]);
break;
}
}
}
}
// debug($retArr);
return $retArr;
}

/**
* [Describe function...]
*
* @param [type] $category: ...
* @return [type] ...
*/
function ext_getTSCE_config($category) {
$catConf=$this->setup["constants"]["TSConstantEditor."][$category."."];
$out=array();
if (is_array($catConf)) {
reset($catConf);
while(list($key,$val)=each($catConf)) {
switch($key) {
case "image":
$out["imagetag"] = $this->ext_getTSCE_config_image($catConf["image"]);
break;
case "description":
case "bulletlist":
case "header":
$out[$key] = $val;
break;
default:
if (t3lib_div::testInt($key)) {
$constRefs = explode(",",$val);
reset($constRefs);
while(list(,$const)=each($constRefs)) {
$const=trim($const);
if ($const && $const<=20) {
$out["constants"][$const].=$this->ext_getKeyImage($key);
}
}
}
break;
}
}
}
$this->helpConfig=$out;
}

/**
* [Describe function...]
*
* @param [type] $key: ...
* @return [type] ...
*/
function ext_getKeyImage($key) {
return '<img src="'.$this->ext_localWebGfxPrefix.'gfx/'.$key.'.gif" align="top" hspace=2>';
}

/**
* [Describe function...]
*
* @param [type] $imgConf: ...
* @return [type] ...
*/
function ext_getTSCE_config_image($imgConf) {
if (substr($imgConf,0,4)=="gfx/") {
$iFile=$this->ext_localGfxPrefix.$imgConf;
$tFile=$this->ext_localWebGfxPrefix.$imgConf;
} elseif (substr($imgConf,0,4)=='EXT:') {
$iFile = t3lib_div::getFileAbsFileName($imgConf);
if ($iFile) {
$f = substr($iFile,strlen(PATH_site));
$tFile=$GLOBALS["BACK_PATH"]."../".$f;
}
} else {
$f = "uploads/tf/".$this->extractFromResources($this->setup["resources"],$imgConf);
$iFile=PATH_site.$f;
$tFile=$GLOBALS["BACK_PATH"]."../".$f;
}
$imageInfo=@getImagesize($iFile);
return '<img src="'.$tFile.'" '.$imageInfo[3].'>';
}

/**
* [Describe function...]
*
* @return [type] ...
*/
function ext_resourceDims() {
if ($this->setup["resources"]) {
$rArr=explode(",",$this->setup["resources"]);
while(list($c,$val)=each($rArr)) {
$val=trim($val);
$theFile = PATH_site."uploads/tf/".$val;
if ($val && @is_file($theFile)) {
$imgInfo = @getimagesize($theFile);
}
if (is_array($imgInfo)) {
$this->resourceDimensions[$val]=" (".$imgInfo[0]."x".$imgInfo[1].")";
}
}
}
reset($this->dirResources);
while(list($c,$val)=each($this->dirResources)) {
$val=trim($val);
$imgInfo = @getimagesize(PATH_site.$val);
if (is_array($imgInfo)) {
$this->resourceDimensions[$val]=" (".$imgInfo[0]."x".$imgInfo[1].")";
}
}
}

/**
* [Describe function...]
*
* @param [type] $path: ...
* @return [type] ...
*/
function ext_readDirResources($path) {
$path=trim($path);
if ($path && substr($path,0,10)=="fileadmin/") {
$path = ereg_replace("\/$","",$path);
$this->readDirectory(PATH_site.$path);
}
}

/**
* [Describe function...]
*
* @param [type] $path: ...
* @param [type] $type: ...
* @return [type] ...
*/
function readDirectory($path,$type="file") {
if(@is_dir($path)) {
$d = @dir($path);
$tempArray=Array();
if (is_object($d)) {
while($entry=$d->read()) {
if ($entry!="." && $entry!="..") {
$wholePath = $path."/".$entry; // Because of odd PHP-error where <BR>-tag is sometimes placed after a filename!!
if (@file_exists($wholePath) && (!$type || filetype($wholePath)==$type)) {
$fI = t3lib_div::split_fileref($wholePath);
$this->dirResources[]=substr($wholePath,strlen(PATH_site));
}
}
}
$d->close();
}
}
}

/**
* [Describe function...]
*
* @param [type] $params: ...
* @return [type] ...
*/
function ext_fNandV($params) {
$fN='data['.$params["name"].']';
$fV=$params["value"];
if (ereg("^{[\$][a-zA-Z0-9\.]*}$",trim($fV),$reg)) { // Values entered from the constantsedit cannot be constants! 230502; removed \{ and set {
$fV="";
}
$fV=htmlspecialchars($fV);

return array($fN,$fV,$params);
}

/**
* [Describe function...]
*
* @param [type] $theConstants: ...
* @param [type] $category: ...
* @return [type] ...
*/
function ext_printFields($theConstants,$category) {
// This functions returns the HTML-code that creates the editor-layout of the module.
reset($theConstants);
$output="";
$subcat="";
if (is_array($this->categories[$category])) {

$help=$this->helpConfig;
$this->rArr=explode(",",$this->setup["resources"].",".implode($this->dirResources,","));

if (!$this->doNotSortCategoriesBeforeMakingForm) asort($this->categories[$category]);
while(list($name,$type)=each($this->categories[$category])) {
$params = $theConstants[$name];
if (is_array($params)) {
if ($subcat!=$params["subcat_name"]) {
$subcat=$params["subcat_name"];
$subcat_name = $params["subcat_name"] ? $this->subCategories[$params["subcat_name"]][0] : "Others";
$output.='<tr>';
$output.='<td colspan=2 class="bgColor4"><div align="center"><b>'.$subcat_name.'</b></div></td>';
$output.='</tr>';
}

// if (substr($params["value"],0,2)!='{$') {
$label=$GLOBALS["LANG"]->sL($params["label"]);
$label_parts = explode(":",$label,2);
if (count($label_parts)==2) {
$head=trim($label_parts[0]);
$body=trim($label_parts[1]);
} else {
$head=trim($label_parts[0]);
$body="";
}
if (strlen($head)>35) {
if (!$body) {$body=$head;}
$head=t3lib_div::fixed_lgd_cs($head,35);
}
$typeDat=$this->ext_getTypeData($params["type"]);
$checked="";
$p_field="";
$raname = substr(md5($params["name"]),0,10);
$aname="'".$raname."'";
if ($this->ext_dontCheckIssetValues || isset($this->objReg[$params["name"]])) {
$checked=" checked";
list($fN,$fV,$params)=$this->ext_fNandV($params);

switch($typeDat["type"]) {
case "int":
case "int+":
$p_field='<input type="text" name="'.$fN.'" value="'.$fV.'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth(5).' onChange="uFormUrl('.$aname.')">';
if ($typeDat["paramstr"]) {
$p_field.=' Range: '.$typeDat["paramstr"];
} elseif ($typeDat["type"]=="int+") {
$p_field.=' Range: 0 - ';
} else {
$p_field.=' (Integer)';
}
break;
case "color":
$colorNames=explode(",",",".$this->HTMLcolorList);
$p_field="";
while(list(,$val)=each($colorNames)) {
$sel="";
if ($val==strtolower($params["value"])) {$sel=" selected";}
$p_field.='<option value="'.htmlspecialchars($val).'"'.$sel.'>'.$val.'</option>';
}
$p_field='<select name="C'.$fN.'" onChange="document.'.$this->ext_CEformName.'[\''.$fN.'\'].value=this.options[this.selectedIndex].value; uFormUrl('.$aname.');">'.$p_field.'</select>';

$p_field.='<input type="text" name="'.$fN.'" value="'.$fV.'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth(7).' onChange="uFormUrl('.$aname.')">';
break;
case "wrap":
$wArr = explode("|",$fV);
$p_field='<input type="text" name="'.$fN.'" value="'.$wArr[0].'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth(29).' onChange="uFormUrl('.$aname.')">';
$p_field.=' | ';
$p_field.='<input type="text" name="W'.$fN.'" value="'.$wArr[1].'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth(15).' onChange="uFormUrl('.$aname.')">';
break;
case "offset":
$wArr = explode(",",$fV);
$labels = t3lib_div::trimExplode(",",$typeDat["paramstr"]);
$p_field=($labels[0]?$labels[0]:"x").':<input type="text" name="'.$fN.'" value="'.$wArr[0].'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth(4).' onChange="uFormUrl('.$aname.')">';
$p_field.=' , ';
$p_field.=($labels[1]?$labels[1]:"y").':<input type="text" name="W'.$fN.'" value="'.$wArr[1].'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth(4).' onChange="uFormUrl('.$aname.')">';
for ($aa=2;$aa<count($labels);$aa++) {
if ($labels[$aa]) {
$p_field.=' , '.$labels[$aa].':<input type="text" name="W'.$aa.$fN.'" value="'.$wArr[$aa].'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth(4).' onChange="uFormUrl('.$aname.')">';
} else {
$p_field.='<input type="hidden" name="W'.$aa.$fN.'" value="'.$wArr[$aa].'">';
}
}
break;
case "options":
if (is_array($typeDat["params"])) {
$p_field="";
while(list(,$val)=each($typeDat["params"])) {
$vParts = explode("=",$val,2);
$label = $vParts[0];
$val = isset($vParts[1]) ? $vParts[1] : $vParts[0];

// option tag:
$sel="";
if ($val==$params["value"]) {$sel=" selected";}
$p_field.='<option value="'.htmlspecialchars($val).'"'.$sel.'>'.$GLOBALS["LANG"]->sL($label).'</option>';
}
$p_field='<select name="'.$fN.'" onChange="uFormUrl('.$aname.')">'.$p_field.'</select>';
}
break;
case "boolean":
$p_field='<input type="Hidden" name="'.$fN.'" value="0">';
$sel=""; if ($fV) {$sel=" checked";}
$p_field.='<input type="Checkbox" name="'.$fN.'" value="'.($typeDat["paramstr"]?$typeDat["paramstr"]:1).'"'.$sel.' onClick="uFormUrl('.$aname.')">';
break;
case "comment":
$p_field='<input type="Hidden" name="'.$fN.'" value="#">';
$sel=""; if (!$fV) {$sel=" checked";}
$p_field.='<input type="Checkbox" name="'.$fN.'" value=""'.$sel.' onClick="uFormUrl('.$aname.')">';
break;
case "file":
$p_field='<option value=""></option>';
// debug($params["value"]);
$theImage="";
// if ($this->) {
$selectThisFile = $this->extractFromResources($this->setup["resources"],$params["value"]);
if ($params["value"] && !$selectThisFile) {
if (in_array($params["value"],$this->dirResources)) {
$selectThisFile=$params["value"];
}
}
// debug($selectThisFile);
// extensionlist
$extList = $typeDat["paramstr"];
$p_field='<option value="">('.$extList.')</option>';
if ($extList=="IMAGE_EXT") {
$extList = $GLOBALS["TYPO3_CONF_VARS"]["GFX"]["imagefile_ext"];
}
reset($this->rArr);
$onlineResourceFlag=$this->ext_defaultOnlineResourceFlag;

while(list($c,$val)=each($this->rArr)) {
$val=trim($val);
$fI=t3lib_div::split_fileref($val);
// debug($fI);
if ($val && (!$extList || t3lib_div::inList($extList,$fI["fileext"]))) {
if ($onlineResourceFlag<=0 && substr($fI["path"],0,10)=="fileadmin/") {
if ($onlineResourceFlag<0) {
$p_field.='<option value=""></option>';
}
$p_field.='<option value="">__'.$fI["path"].'__:</option>';
$onlineResourceFlag=1;
}
$dims=$this->resourceDimensions[$val];
$sel="";

// Check if $params["value"] is in the list of resources.
if ($selectThisFile && $selectThisFile==$val) {
$sel=" selected";
if ($onlineResourceFlag<=0) {
$theImage=t3lib_BEfunc::thumbCode(array("resources"=>$selectThisFile),"sys_template","resources",$GLOBALS["BACK_PATH"],"");
} else {
$theImage=t3lib_BEfunc::thumbCode(array("resources"=>$fI["file"]),"sys_template","resources",$GLOBALS["BACK_PATH"],"",$fI["path"]);
}
}

if ($onlineResourceFlag<=0) {
$onlineResourceFlag--;
// Value is set with a *
$val = $this->ext_setStar($val);
$p_field.='<option value="'.htmlspecialchars($val).'"'.$sel.'>'.$val.$dims.'</option>';
} else {
$p_field.='<option value="'.htmlspecialchars($val).'"'.$sel.'>'.$fI["file"].$dims.'</option>';
}
}
}
if (trim($params["value"]) && !$selectThisFile) {
$val = $params["value"];
$p_field.='<option value=""></option>';
$p_field.='<option value="'.htmlspecialchars($val).'" selected>'.$val.'</option>';
}
// }
$p_field='<select name="'.$fN.'" onChange="uFormUrl('.$aname.')">'.$p_field.'</select>';
$p_field.=$theImage;

if (!$this->ext_noCEUploadAndCopying) {
// Copy a resource
$copyFile = $this->extractFromResources($this->setup["resources"],$params["value"]);
if (!$copyFile) {
if ($params["value"]) {
$copyFile=PATH_site.$this->ext_detectAndFixExtensionPrefix($params["value"]);
}
} else {
// $copyFile=PATH_site."uploads/tf/".$copyFile;
$copyFile="";
}
#debug($copyFile);
if ($copyFile && @is_file($copyFile)) {
$p_field.='<img src="clear.gif" width="20" height="1" alt="" /><img'.t3lib_iconWorks::skinImg($GLOBALS['BACK_PATH'],'gfx/clip_copy.gif','width="12" height="12"').' border="0" alt="" /><input type="Checkbox" name="_copyResource['.$params["name"].']" value="'.htmlspecialchars($copyFile).'" onClick="uFormUrl('.$aname.');if (this.checked) {alert(unescape(\''.rawurlencode(sprintf("This will make a copy of the current file, '%s'. Do you really want that?",$params["value"])).'\'));}">';
}
// Upload?
$p_field.='<BR>';
$p_field.='<input type="file" name="upload_'.$fN.'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth().' onChange="uFormUrl('.$aname.')" size="50" />';
}
break;
case 'user':
$userFunction = $typeDat["paramstr"];
$params = array('fieldName' => $fN, 'fieldValue' => $fV);
$p_field = t3lib_div::callUserFunction($userFunction,$params,$this,'');
break;
case 'small':
default:
$fwidth= $typeDat["type"]=="small" ? 10 : 46;
$p_field='<input type="text" name="'.$fN.'" value="'.$fV.'"'.$GLOBALS["TBE_TEMPLATE"]->formWidth($fwidth).' onChange="uFormUrl('.$aname.')">';
break;
}
}
if (!$this->ext_dontCheckIssetValues) $p_field='<input type="Checkbox" name="check['.$params["name"].']" value="1"'.$checked.' onClick="uFormUrl('.$aname.')">'.$p_field;
if ($typeDat["type"]=="color" && substr($params["value"],0,2)!='{$') {
$p_field='<table border=0 cellpadding=0 cellspacing=0><tr><td nowrap>'.$p_field.'</td><td>&nbsp;</td><td bgcolor="'.$params["value"].'"><img src="clear.gif" width=50 height=10></td></tr></table>';
} else {
$p_field='<span class="nobr">'.$p_field.'</span><br />';
}

$p_name = '<span class="typo3-dimmed">['.$params["name"].']</span><BR>';
$p_dlabel='<span class="typo3-dimmed"><b>Default:</b> '.htmlspecialchars($params["default_value"]).'</span><BR>';
$p_label = '<b>'.htmlspecialchars($head).'</b>';
$p_descrip = $body ? htmlspecialchars($body)."<BR>" : "";

$output.='<tr>';
$output.='<td valign=top nowrap><a name="'.$raname.'"></a>'.$help["constants"][$params["name"]].$p_label.'</td>';
$output.='<td valign=top align="right">'.$p_name.'</td>';
$output.='</tr>';
$output.='<tr>';
$output.='<td colspan=2>'.$p_descrip.$p_field.$p_dlabel.'<br></td>';
$output.='</tr>';
// }
} else {
debug("Error. Constant did not exits. Should not happen.");
}
}
$output='<table border=0 cellpadding=0 cellspacing=0>'.$output.'</table>';
}
return $output;
}












/***************************
*
* Processing input values
*
***************************/

/**
* @param [type] $constants: ...
* @return [type] ...
*/
function ext_regObjectPositions($constants) {
// This runs through the lines of the constants-field of the active template and registers the constants-names and linepositions in an array, $this->objReg
$this->raw = explode(chr(10),$constants);
$this->rawP=0;

$this->objReg=array(); // resetting the objReg if the divider is found!!
$this->ext_regObjects("");
}

/**
* [Describe function...]
*
* @param [type] $pre: ...
* @return [type] ...
*/
function ext_regObjects($pre) {
// works with regObjectPositions. "expands" the names of the TypoScript objects
while (isset($this->raw[$this->rawP])) {
$line = ltrim($this->raw[$this->rawP]);
if (strstr($line,$this->edit_divider)) {
$this->objReg=array(); // resetting the objReg if the divider is found!!
}
$this->rawP++;
if ($line) {
if (substr($line,0,1)=="[") {
// return $line;
} elseif (strcspn($line,"}#/")!=0) {
$varL = strcspn($line," {=<");
$var=substr($line,0,$varL);
$line = ltrim(substr($line,$varL));
switch(substr($line,0,1)) {
case "=":
$this->objReg[$pre.$var]=$this->rawP-1;
break;
case "{":
$this->ext_inBrace++;
$this->ext_regObjects($pre.$var.".");
break;
}
$this->lastComment="";
} elseif (substr($line,0,1)=="}") {
$this->lastComment="";
$this->ext_inBrace--;
if ($this->ext_inBrace<0) {
$this->ext_inBrace=0;
} else {
break;
}
}
}
}
}

/**
* [Describe function...]
*
* @param [type] $key: ...
* @param [type] $var: ...
* @return [type] ...
*/
function ext_putValueInConf($key, $var) {
// Puts the value $var to the TypoScript value $key in the current lines of the templates.
// If the $key is not found in the template constants field, a new line is inserted in the bottom.
$theValue = " ".trim($var);
if (isset($this->objReg[$key])) {
$lineNum = $this->objReg[$key];
$parts = explode("=",$this->raw[$lineNum],2);
if (count($parts)==2) {
$parts[1]= $theValue;
}
$this->raw[$lineNum]=implode($parts,"=");
} else {
$this->raw[]=$key." =".$theValue;
}
$this->changed=1;
}

/**
* [Describe function...]
*
* @param [type] $key: ...
* @return [type] ...
*/
function ext_removeValueInConf($key) {
// Removes the value in the configuration
if (isset($this->objReg[$key])) {
$lineNum = $this->objReg[$key];
unset($this->raw[$lineNum]);
}
$this->changed=1;
}

/**
* [Describe function...]
*
* @param [type] $arr: ...
* @param [type] $settings: ...
* @return [type] ...
*/
function ext_depthKeys($arr,$settings) {
reset($arr);
$tsbrArray=array();
while(list($theK,$theV)=each($arr)) {
$theKeyParts = explode(".",$theK);
$depth="";
$c=count($theKeyParts);
$a=0;
while(list(,$p)=each($theKeyParts)) {
$a++;
$depth.=($depth?".":"").$p;
$tsbrArray[$depth]= ($c==$a) ? $theV : 1;
}
}
// Modify settings
reset($tsbrArray);
while(list($theK,$theV)=each($tsbrArray)) {
if ($theV) {
$settings[$theK] = 1;
} else {
unset($settings[$theK]);
}
}
return $settings;
}

/**
* [Describe function...]
*
* @param [type] $http_post_vars: ...
* @param [type] $http_post_files: ...
* @param [type] $theConstants: ...
* @param [type] $tplRow: ...
* @return [type] ...
*/
function ext_procesInput($http_post_vars,$http_post_files,$theConstants,$tplRow) {
$data=$http_post_vars["data"];
$check=$http_post_vars["check"];
$copyResource=$http_post_vars["_copyResource"];
$Wdata=$http_post_vars["Wdata"];
$W2data=$http_post_vars["W2data"];
$W3data=$http_post_vars["W3data"];
$W4data=$http_post_vars["W4data"];
$W5data=$http_post_vars["W5data"];

if (is_array($data)) {
reset($data);
while(list($key,$var)=each($data)) {
if (isset($theConstants[$key])) {
if ($this->ext_dontCheckIssetValues || isset($check[$key])) { // If checkbox is set, update the value
list($var) = explode(chr(10),$var); // exploding with linebreak, just to make sure that no multiline input is given!
$typeDat=$this->ext_getTypeData($theConstants[$key]["type"]);
switch($typeDat["type"]) {
case "int":
if ($typeDat["paramstr"]) {
$var=t3lib_div::intInRange($var,$typeDat["params"][0],$typeDat["params"][1]);
} else {
$var=intval($var);
}
break;
case "int+":
$var=t3lib_div::intInRange($var,0,10000);
break;
case "color":
$col=array();
if($var && !t3lib_div::inList($this->HTMLcolorList,strtolower($var))) {
$var = ereg_replace("[^A-Fa-f0-9]*","",$var);
$col[]=HexDec(substr($var,0,2));
$col[]=HexDec(substr($var,2,2));
$col[]=HexDec(substr($var,4,2));
$var="#".strtoupper(substr("0".DecHex($col[0]),-2).substr("0".DecHex($col[1]),-2).substr("0".DecHex($col[2]),-2));
}
break;
case "comment":
if ($var) {
$var="#";
} else {
$var="";
}
break;
case "wrap":
if (isset($Wdata[$key])) {
$var.="|".$Wdata[$key];
}
break;
case "offset":
if (isset($Wdata[$key])) {
$var=intval($var).",".intval($Wdata[$key]);
if (isset($W2data[$key])) {
$var.=",".intval($W2data[$key]);
if (isset($W3data[$key])) {
$var.=",".intval($W3data[$key]);
if (isset($W4data[$key])) {
$var.=",".intval($W4data[$key]);
if (isset($W5data[$key])) {
$var.=",".intval($W5data[$key]);
}
}
}
}
}
break;
case "boolean":
if ($var) {
$var = $typeDat["paramstr"] ? $typeDat["paramstr"] : 1;
}
break;
case "file":
if (!$this->ext_noCEUploadAndCopying) {
if ($http_post_files["upload_data"]["name"][$key] && $http_post_files["upload_data"]["tmp_name"][$key]!="none") {
$var = $this->upload_copy_file(
$typeDat,
$tplRow,
trim($http_post_files["upload_data"]["name"][$key]),
$http_post_files["upload_data"]["tmp_name"][$key]
);
}
if ($copyResource[$key]) {
$var = $this->upload_copy_file(
$typeDat,
$tplRow,
basename($copyResource[$key]),
$copyResource[$key]
);
}
}
break;
}
if ($this->ext_printAll || strcmp($theConstants[$key]["value"],$var)) {
$this->ext_putValueInConf($key, $var); // Put value in, if changed.
}
unset($check[$key]); // Remove the entry because it has been "used"
} else {
$this->ext_removeValueInConf($key);
}
}
}
}
// Remaining keys in $check indicates fields that are just clicked "on" to be edited. Therefore we get the default value and puts that in the template as a start...
if (!$this->ext_dontCheckIssetValues && is_array($check)) {
reset($check);
while(list($key,$var)=each($check)) {
if (isset($theConstants[$key])) {
$dValue = $theConstants[$key]["default_value"];
// debug($dValue);
$this->ext_putValueInConf($key, $dValue);
// debug($key,1);
}
}
}
// debug($this->objReg);
}

/**
* [Describe function...]
*
* @param [type] $typeDat: ...
* @param [type] $tplRow: ...
* @param [type] $theRealFileName: ...
* @param [type] $tmp_name: ...
* @return [type] ...
*/
function upload_copy_file($typeDat,&$tplRow,$theRealFileName,$tmp_name) {

// extensions
$extList = $typeDat["paramstr"];
if ($extList=="IMAGE_EXT") {
$extList = $GLOBALS["TYPO3_CONF_VARS"]["GFX"]["imagefile_ext"];
}
$fI=t3lib_div::split_fileref($theRealFileName);
if ($theRealFileName && (!$extList || t3lib_div::inList($extList,$fI["fileext"]))) {
$tmp_upload_name = t3lib_div::upload_to_tempfile($tmp_name); // If there is an uploaded file, move it for the sake of safe_mode.

// Saving resource
$alternativeFileName=array();
$alternativeFileName[$tmp_upload_name] = $theRealFileName;
// Making list of resources
$resList = $tplRow["resources"];
$resList = $tmp_upload_name.",".$resList;
$resList=implode(t3lib_div::trimExplode(",",$resList,1),",");
// Making data-array
$saveId = $tplRow['_ORIG_uid'] ? $tplRow['_ORIG_uid'] : $tplRow['uid'];
// debug($saveId);
$recData=array();
$recData["sys_template"][$saveId]["resources"] = $resList;
// Saving
$tce = t3lib_div::makeInstance("t3lib_TCEmain");
$tce->stripslashes_values=0;
$tce->alternativeFileName = $alternativeFileName;
$tce->start($recData,Array());
$tce->process_datamap();

t3lib_div::unlink_tempfile($tmp_upload_name);

$tmpRow = t3lib_BEfunc::getRecordWSOL("sys_template",$saveId,"resources");

$tplRow["resources"] = $tmpRow["resources"];

// Setting the value
$var = $this->ext_setStar($theRealFileName);
}
return $var;
}

/**
* [Describe function...]
*
* @param [type] $id: ...
* @param [type] $perms_clause: ...
* @return [type] ...
*/
function ext_prevPageWithTemplate($id,$perms_clause) {
$rootLine = t3lib_BEfunc::BEgetRootLine($id,$perms_clause?" AND ".$perms_clause:"");
reset($rootLine);
while(list(,$p)=each($rootLine)) {
if ($this->ext_getFirstTemplate($p["uid"])) {
return $p;
}
}
}

/**
* [Describe function...]
*
* @param [type] $val: ...
* @return [type] ...
*/
function ext_setStar($val) {
$fParts = explode(".",strrev($val),2);
$val=ereg_replace("_[0-9][0-9]$","",strrev($fParts[1]))."*.".strrev($fParts[0]);
return $val;
}

/**
* [Describe function...]
*
* @param [type] $value: ...
* @return [type] ...
*/
function ext_detectAndFixExtensionPrefix($value) {
if (substr($value,0,4)=="EXT:") {
$parts = explode("/",substr($value,4),2);
#debug($parts);
$extPath = t3lib_extMgm::siteRelPath($parts[0]);
$value = $extPath.$parts[1];
return $value;
} else {
return $value;
}
}
}


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