Index: typo3/sysext/install/mod/class.tx_install.php
===================================================================
--- typo3/sysext/install/mod/class.tx_install.php	(Revision 9497)
+++ typo3/sysext/install/mod/class.tx_install.php	(Arbeitskopie)
@@ -158,6 +158,7 @@
 require_once(t3lib_extMgm::extPath('install') . 'updates/class.tx_coreupdates_compressionlevel.php');
 require_once(t3lib_extMgm::extPath('install') . 'updates/class.tx_coreupdates_migrateworkspaces.php');
 require_once(t3lib_extMgm::extPath('install') . 'updates/class.tx_coreupdates_flagsfromsprite.php');
+require_once(t3lib_extMgm::extPath('install') . 'updates/class.tx_coreupdates_addflexformstoacl.php');
 
 /**
  * Install Tool module
Index: typo3/sysext/install/updates/class.tx_coreupdates_addflexformstoacl.php
===================================================================
--- typo3/sysext/install/updates/class.tx_coreupdates_addflexformstoacl.php	(Revision 0)
+++ typo3/sysext/install/updates/class.tx_coreupdates_addflexformstoacl.php	(Revision 0)
@@ -0,0 +1,228 @@
+<?php
+/***************************************************************
+ *  Copyright notice
+ *
+ *  (c) 2010 Kai Vogel (kai.vogel(at)speedprogs.de)
+ *  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!
+ ***************************************************************/
+
+
+/**
+ * Contains the update for group access lists, adds all excludeable FlexForm fields. Used by the update wizard in the install tool.
+ *
+ * @author Kai Vogel <kai.vogel(at)speedprogs.de>
+ */
+class tx_coreupdates_addflexformstoacl {
+
+	/**
+	 * TYPO3 version number
+	 *
+	 * @var integer
+	 */
+	public $versionNumber = 0;
+
+	/**
+	 * Reference to parent object (tx_install)
+	 *
+	 * @var object
+	 */
+	public $pObj = NULL;
+
+	/**
+	 * User input
+	 *
+	 * @var array
+	 */
+	public $userInput = array();
+
+	/**
+	 * Checks if FlexForm fields are missing in group access lists.
+	 *
+	 * @param string &$description The description for the update
+	 * @return boolean Whether an update is required (true) or not (false)
+	 */
+	public function checkForUpdate(&$description) {
+		$description = '
+			<br />TYPO3 4.5 introduced the possibility to exclude FlexForm fields like normal fields in group access lists (ACL).
+			All excludeable fields will be hidden for non-admins if you do not add them to the ACL of each user group.
+		';
+
+			// Update is only required in TYPO3 version 4.5 and above
+		if (empty($this->versionNumber) || $this->versionNumber < 4005000) {
+			return FALSE;
+		}
+
+			// Check access lists
+		if (!$this->getGroupAddFields()) {
+			return FALSE;
+		}
+
+		return TRUE;
+	}
+
+	/**
+	 * Get user confirmation
+	 *
+	 * @param string $inputPrefix The input prefix, all names of form fields have to start with this
+	 * @return string HTML output
+	 */
+	public function getUserInput($inputPrefix) {
+		$description = '
+			<strong>Add excludeable FlexForm fields to group access lists (ACL)</strong>
+			<br />You are about to update all group access lists.
+		';
+
+		return $description;
+	}
+
+	/**
+	 * Performs the action of the UpdateManager
+	 *
+	 * @param array &$dbQueries Queries done in this update
+	 * @param mixed &$customMessages Custom messages
+	 * @return boolean Whether update was successful or not
+	 */
+	public function performUpdate(array &$dbQueries, &$customMessages) {
+			// Update is only required in TYPO3 version 4.5 and above
+		if (empty($this->versionNumber) || $this->versionNumber < 4005000) {
+			return FALSE;
+		}
+
+			// Get additional FlexForm fields for group access lists
+		$addFields = $this->getGroupAddFields();
+		if (empty($addFields)) {
+			$customMessages = 'No missing FlexForm fields found!';
+			return FALSE;
+		}
+
+		return $this->updateGroupAccessLists($addFields, $dbQueries, $customMessages);
+	}
+
+	/**
+	 * Get all FlexForm fields which must be added to group access lists
+	 *
+	 * @return array Additional FlexForm fields for ACL
+	 */
+	protected function getGroupAddFields() {
+		$addFields = array();
+		$contentTable = (!empty($GLOBALS['TYPO3_CONF_VARS']['SYS']['contentTable']) ? $GLOBALS['TYPO3_CONF_VARS']['SYS']['contentTable'] : 'tt_content');
+
+			// Initialize TCA if not loaded yet
+		if (empty($GLOBALS['TCA'])) {
+			$this->pObj->includeTCA();
+		}
+
+			// Get all access lists from groups which are allowed to select or modify the content-table
+		$search = $GLOBALS['TYPO3_DB']->escapeStrForLike($contentTable, 'be_groups');
+		$where  = 'deleted = 0 AND non_exclude_fields IS NOT NULL AND non_exclude_fields != ""';
+		$where .= ' AND (tables_select LIKE "%' . $search . '%" OR tables_modify LIKE "%' . $search . '%")';
+		$accessLists = $GLOBALS['TYPO3_DB']->exec_SELECTgetRows('uid, non_exclude_fields', 'be_groups', $where);
+		if(empty($accessLists)) {
+			return array();
+		}
+
+			// Get all excludeable FlexForm fields from content-table
+		$flexExcludeFields = array();
+		$flexFormArray = t3lib_BEfunc::getRegisteredFlexForms($contentTable);
+		if (!empty($flexFormArray)  && is_array($flexFormArray)) {
+			foreach ($flexFormArray as $tableField => $flexForms) {
+					// Get all sheets
+				foreach ($flexForms as $extIdent => $extConf) {
+						// Get all excludeable fields in sheet
+					foreach ($extConf['ds']['sheets'] as $sheetName => $sheet) {
+						if (empty($sheet['ROOT']['el']) || !is_array($sheet['ROOT']['el'])) {
+							continue;
+						}
+						foreach ($sheet['ROOT']['el'] as $fieldName => $field) {
+							if (empty($field['TCEforms']['exclude'])) {
+								continue;
+							}
+							$flexExcludeFields[] = $contentTable . ':' . $tableField . ';' . $extIdent . ';' . $sheetName . ';' . $fieldName;
+						}
+					}
+				}
+			}
+		}
+		if (empty($flexExcludeFields)) {
+			return array();
+		}
+
+			// Get FlexForm fields from access lists
+		foreach ($accessLists as $accessList) {
+			$nonExcludeFields = t3lib_div::trimExplode(',', $accessList['non_exclude_fields']);
+			if (empty($nonExcludeFields)) {
+				continue;
+			}
+				// Add FlexForm fields only if no one was already selected by a user
+			$nonExcludeFields = array_diff($flexExcludeFields, $nonExcludeFields);
+			if (!empty($nonExcludeFields) && $nonExcludeFields == $flexExcludeFields) {
+				$addFields[$accessList['uid']] = $nonExcludeFields;
+			}
+		}
+
+		return $addFields;
+	}
+
+	/**
+	 * Update Backend user groups, add FlexForm fields to access list
+	 * 
+	 * @param array $addFields All missing FlexForm fields by groups
+	 * @param array &$dbQueries Queries done in this update
+	 * @param mixed &$customMessages Custom messages
+	 * @return boolean Whether update was successful or not
+	 */
+	protected function updateGroupAccessLists(array $addFields, array &$dbQueries, &$customMessages) {
+		foreach ($addFields as $groupUID => $flexExcludeFields) {
+				// First get current fields
+			$result = $GLOBALS['TYPO3_DB']->exec_SELECTgetRows('non_exclude_fields', 'be_groups', 'uid=' . (int) $groupUID);
+			if (!isset($result[0]['non_exclude_fields'])) {
+				continue;
+			}
+			$nonExcludeFields = $result[0]['non_exclude_fields'];
+
+				// Now add new ones
+			$flexExcludeFields = implode(',', $flexExcludeFields);
+			$nonExcludeFields  = trim($nonExcludeFields . ',' . $flexExcludeFields, ', ');
+
+				// Finally override with new fields
+			$GLOBALS['TYPO3_DB']->exec_UPDATEquery(
+				'be_groups',
+				'uid=' . (int) $groupUID,
+				array('non_exclude_fields' => $nonExcludeFields)
+			);
+
+				// Get last executed query
+			$dbQueries[] = str_replace(chr(10), ' ', $GLOBALS['TYPO3_DB']->debug_lastBuiltQuery);
+
+				// Check for errors
+			if ($GLOBALS['TYPO3_DB']->sql_error()) {
+				$customMessages = 'SQL-ERROR: ' . htmlspecialchars($GLOBALS['TYPO3_DB']->sql_error());
+				return FALSE;
+			}
+		}
+
+		return TRUE;
+	}
+
+}
+
+?>
\ No newline at end of file

Eigenschaftsänderungen: typo3/sysext/install/updates/class.tx_coreupdates_addflexformstoacl.php
___________________________________________________________________
Hinzugefügt: svn:executable
   + *

Index: typo3/sysext/install/ext_localconf.php
===================================================================
--- typo3/sysext/install/ext_localconf.php	(Revision 9497)
+++ typo3/sysext/install/ext_localconf.php	(Arbeitskopie)
@@ -48,4 +48,7 @@
 	// Version 4.5: Removes the ".gif" suffix from entries in sys_language
 $TYPO3_CONF_VARS['SC_OPTIONS']['ext/install']['update']['flagsFromSprites'] = 'tx_coreupdates_flagsfromsprite';
 
+	// Version 4.5: Adds excludeable FlexForm fields to Backend group access lists (ACL)
+$TYPO3_CONF_VARS['SC_OPTIONS']['ext/install']['update']['addFlexformsToAcl'] = 'tx_coreupdates_addflexformstoacl';
+
 ?>
\ No newline at end of file
