Decouple page info in log entries

Classes/Domain/Form/Finishers/LoggerFinisher.php

@@ -69,9 +69,9 @@ protected function executeInternal()
         }
 
         $data = [
-            'pid' => $this->getTypoScriptFrontendController()->id,
             'crdate' => $now,
             'tstamp' => $now,
+            'page' => $this->getTypoScriptFrontendController()->id,
             'language' => (int)$context->getPropertyFromAspect('language', 'id', 0),
             'identifier' => $formDefinition->getIdentifier(),
             'data' => $encodedFormValues,

Classes/Domain/FormLog/Suggestions.php

@@ -32,7 +32,7 @@ public function getForProperty(string $property): array
                 'tx_formlog_entries',
                 'pages',
                 'page',
-                $queryBuilder->expr()->eq('page.uid', $queryBuilder->quoteIdentifier('tx_formlog_entries.pid'))
+                $queryBuilder->expr()->eq('page.uid', $queryBuilder->quoteIdentifier('tx_formlog_entries.page'))
             )
             ->orderBy($property)
             ->groupBy($property);

Classes/Updates/FormLogEntryPageUpdate.php

@@ -0,0 +1,70 @@
+<?php
+
+declare(strict_types=1);
+
+namespace Pagemachine\Formlog\Updates;
+
+/*
+ * This file is part of the Pagemachine TYPO3 Formlog project.
+ */
+
+use TYPO3\CMS\Core\Database\ConnectionPool;
+use TYPO3\CMS\Install\Updates\DatabaseUpdatedPrerequisite;
+use TYPO3\CMS\Install\Updates\UpgradeWizardInterface;
+
+final class FormLogEntryPageUpdate implements UpgradeWizardInterface
+{
+    public function __construct(
+        private readonly ConnectionPool $connectionPool
+    ) {}
+
+    public function getIdentifier(): string
+    {
+        return self::class;
+    }
+
+    public function getTitle(): string
+    {
+        return 'Form Log Entry Page Update';
+    }
+
+    public function getDescription(): string
+    {
+        return 'Move page info of form log entries to a dedicated field';
+    }
+
+    public function executeUpdate(): bool
+    {
+        $queryBuilder = $this->connectionPool->getQueryBuilderForTable('tx_formlog_entries');
+
+        $affectedRowCount = $queryBuilder
+            ->update('tx_formlog_entries')
+            ->set('page', $queryBuilder->quoteIdentifier('pid'), false)
+            ->set('pid', 0)
+            ->where($queryBuilder->expr()->eq('page', 0))
+            ->executeStatement();
+
+        return $affectedRowCount > 0;
+    }
+
+    public function updateNecessary(): bool
+    {
+        $queryBuilder = $this->connectionPool->getQueryBuilderForTable('tx_formlog_entries');
+
+        $entriesWithoutPageCount = $queryBuilder
+            ->count('*')
+            ->from('tx_formlog_entries')
+            ->where($queryBuilder->expr()->eq('page', 0))
+            ->executeQuery()
+            ->fetchOne();
+
+        return $entriesWithoutPageCount > 0;
+    }
+
+    public function getPrerequisites(): array
+    {
+        return [
+            DatabaseUpdatedPrerequisite::class,
+        ];
+    }
+}

Configuration/Extbase/Persistence/Classes.php

@@ -7,9 +7,6 @@
             'submissionDate' => [
                 'fieldName' => 'crdate',
             ],
-            'page' => [
-                'fieldName' => 'pid',
-            ],
         ],
     ],
     \Pagemachine\Formlog\Domain\Model\FormLogEntry\Page::class => [

Configuration/Services.yaml

@@ -9,3 +9,6 @@ services:
 
   Pagemachine\Formlog\Controller\Backend\FormLogSuggestController:
     public: true
+
+  Pagemachine\Formlog\Updates\FormLogEntryPageUpdate:
+    public: true

Configuration/TCA/tx_formlog_entries.php

@@ -10,21 +10,16 @@
         'crdate' => 'crdate',
         'tstamp' => 'tstamp',
         'delete' => 'deleted',
+        'rootLevel' => -1,
         'readOnly' => true,
         'iconfile' => 'EXT:formlog/Resources/Public/Icons/tx_formlog_entries.svg',
     ],
     'types' => [
         '0' => [
-            'showitem' => 'crdate, language, identifier, data, finisher_variables',
+            'showitem' => 'crdate, page, language, identifier, data, finisher_variables',
         ],
     ],
     'columns' => [
-        'pid' => [
-            'config' => [
-                'type' => 'passthrough',
-                'foreign_table' => 'pages',
-            ],
-        ],
         'crdate' => [
             'exclude' => 1,
             'label' => 'LLL:EXT:core/Resources/Private/Language/locallang_general.xlf:LGL.creationDate',
@@ -34,6 +29,18 @@
                 'eval' => 'datetime',
             ],
         ],
+        'page' => [
+            'exclude' => 1,
+            'label' => 'LLL:EXT:formlog/Resources/Private/Language/locallang_db.xml:tx_formlog_entries.page',
+            'config' => [
+                'type' => 'group',
+                'allowed' => 'pages',
+                'foreign_table' => 'pages',
+                'maxitems' => 1,
+                'size' => 1,
+                'readOnly' => true,
+            ],
+        ],
         'language' => [
             'exclude' => 1,
             'label' => 'LLL:EXT:formlog/Resources/Private/Language/locallang_db.xml:tx_formlog_entries.language',

Resources/Private/Language/locallang_db.xlf

@@ -8,6 +8,10 @@
         <source>Form log entry</source>
       </trans-unit>
 
+      <trans-unit id="tx_formlog_entries.page">
+        <source>Form page</source>
+      </trans-unit>
+
       <trans-unit id="tx_formlog_entries.language">
         <source>Form language</source>
       </trans-unit>

Tests/Functional/Domain/Form/Finishers/LoggerFinisherTest.php

@@ -104,7 +104,7 @@ public function logsSubmittedFormData(array $fields, array $formValues, string $
             ->select(['*'], 'tx_formlog_entries')
             ->fetchAssociative();
 
-        self::assertSame(123, $logEntry['pid'] ?? null);
+        self::assertSame(123, $logEntry['page'] ?? null);
         self::assertSame($formDefinition->getIdentifier(), $logEntry['identifier'] ?? null);
         self::assertSame($expectedData, $logEntry['data'] ?? null);
         self::assertSame('[]', $logEntry['finisher_variables'] ?? null);
@@ -232,7 +232,7 @@ public function logsFinisherVariables()
             ->select(['*'], 'tx_formlog_entries')
             ->fetchAssociative();
 
-        self::assertSame(123, $logEntry['pid'] ?? null);
+        self::assertSame(123, $logEntry['page'] ?? null);
         self::assertSame($formDefinition->getIdentifier(), $logEntry['identifier'] ?? null);
         self::assertSame('{"name":"Tester"}', $logEntry['data'] ?? null);
         self::assertSame('{"SaveToDatabase":{"insertedUids.0":124}}', $logEntry['finisher_variables'] ?? null);

Tests/Functional/Domain/FormLog/SuggestionsTest.php

@@ -42,17 +42,17 @@ public function returnsSuggestionsForProperty(string $property, array $expected)
             'tx_formlog_entries' => [
                 [
                     'uid' => 1,
-                    'pid' => 2,
+                    'page' => 2,
                     'identifier' => 'foo',
                 ],
                 [
                     'uid' => 2,
-                    'pid' => 2,
+                    'page' => 2,
                     'identifier' => 'foo',
                 ],
                 [
                     'uid' => 3,
-                    'pid' => 1,
+                    'page' => 1,
                     'identifier' => 'bar',
                 ],
             ],

composer.json

@@ -27,6 +27,7 @@
         "typo3/cms-fluid": "^11.5.4 || ^12.4",
         "typo3/cms-form": "^11.5.4 || ^12.4",
         "typo3/cms-frontend": "^11.5.4 || ^12.4",
+        "typo3/cms-install": "^11.5.4 || ^12.4",
         "typo3fluid/fluid": "^2.3 || ^4.0"
     },
     "require-dev": {

ext_localconf.php

@@ -1,6 +1,7 @@
 <?php
 
 use Pagemachine\Formlog\Form\Element\JSONDataElement;
+use Pagemachine\Formlog\Updates\FormLogEntryPageUpdate;
 use TYPO3\CMS\Scheduler\Task\TableGarbageCollectionTask;
 
 defined('TYPO3') or die();
@@ -14,6 +15,8 @@
 $GLOBALS['TYPO3_CONF_VARS']['SYS']['locallangXMLOverride']['EXT:form/Resources/Private/Language/Database.xlf'][1519643592] = 'EXT:formlog/Resources/Private/Language/Database.xlf';
 $GLOBALS['TYPO3_CONF_VARS']['SYS']['locallangXMLOverride']['de']['EXT:form/Resources/Private/Language/Database.xlf'][1519643592] = 'EXT:formlog/Resources/Private/Language/de.Database.xlf';
 
+$GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['ext/install']['update'][FormLogEntryPageUpdate::class] = FormLogEntryPageUpdate::class;
+
 $GLOBALS['TYPO3_CONF_VARS']['SC_OPTIONS']['scheduler']['tasks'][TableGarbageCollectionTask::class]['options']['tables']['tx_formlog_entries'] = [
     'dateField' => 'tstamp',
     'expirePeriod' => 180,

ext_tables.sql

@@ -1,4 +1,5 @@
 CREATE TABLE tx_formlog_entries (
+  page int(11) unsigned DEFAULT '0' NOT NULL,
   language int(11) unsigned DEFAULT '0' NOT NULL,
   identifier varchar(255) DEFAULT '' NOT NULL,
   data mediumtext,