/** * Swapping versions of a record * Version from archive (future/past, called "swap version") will get the uid of the "t3ver_oid", the official element with uid = "t3ver_oid" will get the new versions old uid. PIDs are swapped also * * @param string $table Table name * @param int $id UID of the online record to swap * @param int $swapWith UID of the archived version to swap with! * @param bool $swapIntoWS If set, swaps online into workspace instead of publishing out of workspace. * @param DataHandler $tcemainObj TCEmain object * @param string $comment Notification comment * @param bool $notificationEmailInfo Accumulate state changes in memory for compiled notification email? * @param array $notificationAlternativeRecipients comma separated list of recipients to notificate instead of normal be_users * @return void */ protected function version_swap($table, $id, $swapWith, $swapIntoWS = 0, DataHandler $tcemainObj, $comment = '', $notificationEmailInfo = FALSE, $notificationAlternativeRecipients = array()) { // Check prerequisites before start swapping // First, check if we may actually edit the online record if (!$tcemainObj->checkRecordUpdateAccess($table, $id)) { $tcemainObj->newlog('Error: You cannot swap versions for a record you do not have access to edit!', 1); return; } // Select the two versions: $curVersion = BackendUtility::getRecord($table, $id, '*'); $swapVersion = BackendUtility::getRecord($table, $swapWith, '*'); $movePlh = array(); $movePlhID = 0; if (!(is_array($curVersion) && is_array($swapVersion))) { $tcemainObj->newlog('Error: Either online or swap version could not be selected!', 2); return; } if (!$tcemainObj->BE_USER->workspacePublishAccess($swapVersion['t3ver_wsid'])) { $tcemainObj->newlog('User could not publish records from workspace #' . $swapVersion['t3ver_wsid'], 1); return; } $wsAccess = $tcemainObj->BE_USER->checkWorkspace($swapVersion['t3ver_wsid']); if (!($swapVersion['t3ver_wsid'] <= 0 || !($wsAccess['publish_access'] & 1) || (int) $swapVersion['t3ver_stage'] === -10)) { $tcemainObj->newlog('Records in workspace #' . $swapVersion['t3ver_wsid'] . ' can only be published when in "Publish" stage.', 1); return; } if (!($tcemainObj->doesRecordExist($table, $swapWith, 'show') && $tcemainObj->checkRecordUpdateAccess($table, $swapWith))) { $tcemainObj->newlog('You cannot publish a record you do not have edit and show permissions for', 1); return; } if ($swapIntoWS && !$tcemainObj->BE_USER->workspaceSwapAccess()) { $tcemainObj->newlog('Workspace #' . $swapVersion['t3ver_wsid'] . ' does not support swapping.', 1); return; } // Check if the swapWith record really IS a version of the original! if (!((int) $swapVersion['pid'] == -1 && (int) $curVersion['pid'] >= 0 && (int) $swapVersion['t3ver_oid'] === (int) $id)) { $tcemainObj->newlog('In swap version, either pid was not -1 or the t3ver_oid didn\'t match the id of the online version as it must!', 2); return; } // Lock file name: $lockFileName = PATH_site . 'typo3temp/swap_locking/' . $table . ':' . $id . '.ser'; if (@is_file($lockFileName)) { $tcemainObj->newlog('A swapping lock file was present. Either another swap process is already running or a previous swap process failed. Ask your administrator to handle the situation.', 2); return; } // Now start to swap records by first creating the lock file // Write lock-file: GeneralUtility::writeFileToTypo3tempDir($lockFileName, serialize(array('tstamp' => $GLOBALS['EXEC_TIME'], 'user' => $tcemainObj->BE_USER->user['username'], 'curVersion' => $curVersion, 'swapVersion' => $swapVersion))); // Find fields to keep $keepFields = $this->getUniqueFields($table); if ($GLOBALS['TCA'][$table]['ctrl']['sortby']) { $keepFields[] = $GLOBALS['TCA'][$table]['ctrl']['sortby']; } // l10n-fields must be kept otherwise the localization // will be lost during the publishing if (!isset($GLOBALS['TCA'][$table]['ctrl']['transOrigPointerTable']) && $GLOBALS['TCA'][$table]['ctrl']['transOrigPointerField']) { $keepFields[] = $GLOBALS['TCA'][$table]['ctrl']['transOrigPointerField']; } // Swap "keepfields" foreach ($keepFields as $fN) { $tmp = $swapVersion[$fN]; $swapVersion[$fN] = $curVersion[$fN]; $curVersion[$fN] = $tmp; } // Preserve states: $t3ver_state = array(); $t3ver_state['swapVersion'] = $swapVersion['t3ver_state']; $t3ver_state['curVersion'] = $curVersion['t3ver_state']; // Modify offline version to become online: $tmp_wsid = $swapVersion['t3ver_wsid']; // Set pid for ONLINE $swapVersion['pid'] = (int) $curVersion['pid']; // We clear this because t3ver_oid only make sense for offline versions // and we want to prevent unintentional misuse of this // value for online records. $swapVersion['t3ver_oid'] = 0; // In case of swapping and the offline record has a state // (like 2 or 4 for deleting or move-pointer) we set the // current workspace ID so the record is not deselected // in the interface by BackendUtility::versioningPlaceholderClause() $swapVersion['t3ver_wsid'] = 0; if ($swapIntoWS) { if ($t3ver_state['swapVersion'] > 0) { $swapVersion['t3ver_wsid'] = $tcemainObj->BE_USER->workspace; } else { $swapVersion['t3ver_wsid'] = (int) $curVersion['t3ver_wsid']; } } $swapVersion['t3ver_tstamp'] = $GLOBALS['EXEC_TIME']; $swapVersion['t3ver_stage'] = 0; if (!$swapIntoWS) { $swapVersion['t3ver_state'] = (string) new VersionState(VersionState::DEFAULT_STATE); } // Moving element. if ((int) $GLOBALS['TCA'][$table]['ctrl']['versioningWS'] >= 2) { // && $t3ver_state['swapVersion']==4 // Maybe we don't need this? if ($plhRec = BackendUtility::getMovePlaceholder($table, $id, 't3ver_state,pid,uid' . ($GLOBALS['TCA'][$table]['ctrl']['sortby'] ? ',' . $GLOBALS['TCA'][$table]['ctrl']['sortby'] : ''))) { $movePlhID = $plhRec['uid']; $movePlh['pid'] = $swapVersion['pid']; $swapVersion['pid'] = (int) $plhRec['pid']; $curVersion['t3ver_state'] = (int) $swapVersion['t3ver_state']; $swapVersion['t3ver_state'] = (string) new VersionState(VersionState::DEFAULT_STATE); if ($GLOBALS['TCA'][$table]['ctrl']['sortby']) { // sortby is a "keepFields" which is why this will work... $movePlh[$GLOBALS['TCA'][$table]['ctrl']['sortby']] = $swapVersion[$GLOBALS['TCA'][$table]['ctrl']['sortby']]; $swapVersion[$GLOBALS['TCA'][$table]['ctrl']['sortby']] = $plhRec[$GLOBALS['TCA'][$table]['ctrl']['sortby']]; } } } unset($swapVersion['uid']); // Modify online version to become offline: unset($curVersion['uid']); // Set pid for OFFLINE $curVersion['pid'] = -1; $curVersion['t3ver_oid'] = (int) $id; $curVersion['t3ver_wsid'] = $swapIntoWS ? (int) $tmp_wsid : 0; $curVersion['t3ver_tstamp'] = $GLOBALS['EXEC_TIME']; $curVersion['t3ver_count'] = $curVersion['t3ver_count'] + 1; // Increment lifecycle counter $curVersion['t3ver_stage'] = 0; if (!$swapIntoWS) { $curVersion['t3ver_state'] = (string) new VersionState(VersionState::DEFAULT_STATE); } // Registering and swapping MM relations in current and swap records: $tcemainObj->version_remapMMForVersionSwap($table, $id, $swapWith); // Generating proper history data to prepare logging $tcemainObj->compareFieldArrayWithCurrentAndUnset($table, $id, $swapVersion); $tcemainObj->compareFieldArrayWithCurrentAndUnset($table, $swapWith, $curVersion); // Execute swapping: $sqlErrors = array(); $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid=' . (int) $id, $swapVersion); if ($GLOBALS['TYPO3_DB']->sql_error()) { $sqlErrors[] = $GLOBALS['TYPO3_DB']->sql_error(); } else { $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid=' . (int) $swapWith, $curVersion); if ($GLOBALS['TYPO3_DB']->sql_error()) { $sqlErrors[] = $GLOBALS['TYPO3_DB']->sql_error(); } else { unlink($lockFileName); } } if (!count($sqlErrors)) { // Register swapped ids for later remapping: $this->remappedIds[$table][$id] = $swapWith; $this->remappedIds[$table][$swapWith] = $id; // If a moving operation took place...: if ($movePlhID) { // Remove, if normal publishing: if (!$swapIntoWS) { // For delete + completely delete! $tcemainObj->deleteEl($table, $movePlhID, TRUE, TRUE); } else { // Otherwise update the movePlaceholder: $GLOBALS['TYPO3_DB']->exec_UPDATEquery($table, 'uid=' . (int) $movePlhID, $movePlh); $tcemainObj->addRemapStackRefIndex($table, $movePlhID); } } // Checking for delete: // Delete only if new/deleted placeholders are there. if (!$swapIntoWS && ((int) $t3ver_state['swapVersion'] === 1 || (int) $t3ver_state['swapVersion'] === 2)) { // Force delete $tcemainObj->deleteEl($table, $id, TRUE); } $tcemainObj->newlog2(($swapIntoWS ? 'Swapping' : 'Publishing') . ' successful for table "' . $table . '" uid ' . $id . '=>' . $swapWith, $table, $id, $swapVersion['pid']); // Update reference index of the live record: $tcemainObj->addRemapStackRefIndex($table, $id); // Set log entry for live record: $propArr = $tcemainObj->getRecordPropertiesFromRow($table, $swapVersion); if ($propArr['_ORIG_pid'] == -1) { $label = $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_tcemain.xlf:version_swap.offline_record_updated'); } else { $label = $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_tcemain.xlf:version_swap.online_record_updated'); } $theLogId = $tcemainObj->log($table, $id, 2, $propArr['pid'], 0, $label, 10, array($propArr['header'], $table . ':' . $id), $propArr['event_pid']); $tcemainObj->setHistory($table, $id, $theLogId); // Update reference index of the offline record: $tcemainObj->addRemapStackRefIndex($table, $swapWith); // Set log entry for offline record: $propArr = $tcemainObj->getRecordPropertiesFromRow($table, $curVersion); if ($propArr['_ORIG_pid'] == -1) { $label = $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_tcemain.xlf:version_swap.offline_record_updated'); } else { $label = $GLOBALS['LANG']->sL('LLL:EXT:lang/locallang_tcemain.xlf:version_swap.online_record_updated'); } $theLogId = $tcemainObj->log($table, $swapWith, 2, $propArr['pid'], 0, $label, 10, array($propArr['header'], $table . ':' . $swapWith), $propArr['event_pid']); $tcemainObj->setHistory($table, $swapWith, $theLogId); $stageId = -20; // \TYPO3\CMS\Workspaces\Service\StagesService::STAGE_PUBLISH_EXECUTE_ID; if ($notificationEmailInfo) { $notificationEmailInfoKey = $wsAccess['uid'] . ':' . $stageId . ':' . $comment; $this->notificationEmailInfo[$notificationEmailInfoKey]['shared'] = array($wsAccess, $stageId, $comment); $this->notificationEmailInfo[$notificationEmailInfoKey]['elements'][] = $table . ':' . $id; $this->notificationEmailInfo[$notificationEmailInfoKey]['alternativeRecipients'] = $notificationAlternativeRecipients; } else { $this->notifyStageChange($wsAccess, $stageId, $table, $id, $comment, $tcemainObj, $notificationAlternativeRecipients); } // Write to log with stageId -20 $tcemainObj->newlog2('Stage for record was changed to ' . $stageId . '. Comment was: "' . substr($comment, 0, 100) . '"', $table, $id); $tcemainObj->log($table, $id, 6, 0, 0, 'Published', 30, array('comment' => $comment, 'stage' => $stageId)); // Clear cache: $tcemainObj->registerRecordIdForPageCacheClearing($table, $id); // Checking for "new-placeholder" and if found, delete it (BUT FIRST after swapping!): if (!$swapIntoWS && $t3ver_state['curVersion'] > 0) { // For delete + completely delete! $tcemainObj->deleteEl($table, $swapWith, TRUE, TRUE); } //Update reference index for live workspace too: /** @var $refIndexObj \TYPO3\CMS\Core\Database\ReferenceIndex */ $refIndexObj = GeneralUtility::makeInstance(ReferenceIndex::class); $refIndexObj->setWorkspaceId(0); $refIndexObj->updateRefIndexTable($table, $id); $refIndexObj->updateRefIndexTable($table, $swapWith); } else { $tcemainObj->newlog('During Swapping: SQL errors happened: ' . implode('; ', $sqlErrors), 2); } }