web: update web section modification date in post-upgrade

Web sections or web sites displaying a default page should have
modification date after the modification date of their default page, so
that the "if-modified-since" requests can be replied with a 304 not
modified responses.

bt5/erp5_web/PortalTypePropertySheetTemplateItem/property_sheet_list.xml

 <property_sheet_list>
  <portal_type id="Static Web Section">
   <item>SortIndex</item>
+  <item>WebSectionUpgradeConstraint</item>
  </portal_type>
  <portal_type id="Static Web Site">
+  <item>WebSectionUpgradeConstraint</item>
   <item>WebSitePreference</item>
  </portal_type>
  <portal_type id="Web Page">
@@ -11,8 +13,10 @@
  </portal_type>
  <portal_type id="Web Section">
   <item>SortIndex</item>
+  <item>WebSectionUpgradeConstraint</item>
  </portal_type>
  <portal_type id="Web Site">
+  <item>WebSectionUpgradeConstraint</item>
   <item>WebSitePreference</item>
  </portal_type>
 </property_sheet_list>
\ No newline at end of file

bt5/erp5_web/PropertySheetTemplateItem/portal_property_sheets/WebSectionUpgradeConstraint.xml

+<?xml version="1.0"?>
+<ZopeData>
+  <record id="1" aka="AAAAAAAAAAE=">
+    <pickle>
+      <global name="Property Sheet" module="erp5.portal_type"/>
+    </pickle>
+    <pickle>
+      <dictionary>
+        <item>
+            <key> <string>_count</string> </key>
+            <value>
+              <persistent> <string encoding="base64">AAAAAAAAAAI=</string> </persistent>
+            </value>
+        </item>
+        <item>
+            <key> <string>_mt_index</string> </key>
+            <value>
+              <persistent> <string encoding="base64">AAAAAAAAAAM=</string> </persistent>
+            </value>
+        </item>
+        <item>
+            <key> <string>_tree</string> </key>
+            <value>
+              <persistent> <string encoding="base64">AAAAAAAAAAQ=</string> </persistent>
+            </value>
+        </item>
+        <item>
+            <key> <string>description</string> </key>
+            <value>
+              <none/>
+            </value>
+        </item>
+        <item>
+            <key> <string>id</string> </key>
+            <value> <string>WebSectionUpgradeConstraint</string> </value>
+        </item>
+        <item>
+            <key> <string>portal_type</string> </key>
+            <value> <string>Property Sheet</string> </value>
+        </item>
+      </dictionary>
+    </pickle>
+  </record>
+  <record id="2" aka="AAAAAAAAAAI=">
+    <pickle>
+      <global name="Length" module="BTrees.Length"/>
+    </pickle>
+    <pickle> <int>0</int> </pickle>
+  </record>
+  <record id="3" aka="AAAAAAAAAAM=">
+    <pickle>
+      <global name="OOBTree" module="BTrees.OOBTree"/>
+    </pickle>
+    <pickle>
+      <none/>
+    </pickle>
+  </record>
+  <record id="4" aka="AAAAAAAAAAQ=">
+    <pickle>
+      <global name="OOBTree" module="BTrees.OOBTree"/>
+    </pickle>
+    <pickle>
+      <none/>
+    </pickle>
+  </record>
+</ZopeData>

bt5/erp5_web/PropertySheetTemplateItem/portal_property_sheets/WebSectionUpgradeConstraint/default_page_modification_date_constraint.xml

+<?xml version="1.0"?>
+<ZopeData>
+  <record id="1" aka="AAAAAAAAAAE=">
+    <pickle>
+      <global name="Script Constraint" module="erp5.portal_type"/>
+    </pickle>
+    <pickle>
+      <dictionary>
+        <item>
+            <key> <string>_identity_criterion</string> </key>
+            <value>
+              <persistent> <string encoding="base64">AAAAAAAAAAI=</string> </persistent>
+            </value>
+        </item>
+        <item>
+            <key> <string>_range_criterion</string> </key>
+            <value>
+              <persistent> <string encoding="base64">AAAAAAAAAAM=</string> </persistent>
+            </value>
+        </item>
+        <item>
+            <key> <string>categories</string> </key>
+            <value>
+              <tuple>
+                <string>constraint_type/post_upgrade</string>
+              </tuple>
+            </value>
+        </item>
+        <item>
+            <key> <string>description</string> </key>
+            <value>
+              <none/>
+            </value>
+        </item>
+        <item>
+            <key> <string>id</string> </key>
+            <value> <string>default_page_modification_date_constraint</string> </value>
+        </item>
+        <item>
+            <key> <string>portal_type</string> </key>
+            <value> <string>Script Constraint</string> </value>
+        </item>
+        <item>
+            <key> <string>script_id</string> </key>
+            <value> <string>WebSection_checkDefaultPageModificationDateConsistency</string> </value>
+        </item>
+      </dictionary>
+    </pickle>
+  </record>
+  <record id="2" aka="AAAAAAAAAAI=">
+    <pickle>
+      <global name="PersistentMapping" module="Persistence.mapping"/>
+    </pickle>
+    <pickle>
+      <dictionary>
+        <item>
+            <key> <string>data</string> </key>
+            <value>
+              <dictionary/>
+            </value>
+        </item>
+      </dictionary>
+    </pickle>
+  </record>
+  <record id="3" aka="AAAAAAAAAAM=">
+    <pickle>
+      <global name="PersistentMapping" module="Persistence.mapping"/>
+    </pickle>
+    <pickle>
+      <dictionary>
+        <item>
+            <key> <string>data</string> </key>
+            <value>
+              <dictionary/>
+            </value>
+        </item>
+      </dictionary>
+    </pickle>
+  </record>
+</ZopeData>

bt5/erp5_web/SkinTemplateItem/portal_skins/erp5_web/WebSection_checkDefaultPageModificationDateConsistency.py

+from Products.ERP5Type.Message import translateString
+portal = context.getPortalObject()
+getDocumentValue = context.getDocumentValue
+error_list = []
+
+# Check that the web section is more recent that the default pages.
+if context.getAggregate():
+  max_content_modification_date = context.getModificationDate()
+  for default_page_reference in context.getAggregateReferenceList():
+    if default_page_reference:
+      for language in (None,) + context.getAvailableLanguageList():
+        default_page = getDocumentValue(
+            default_page_reference,
+            language=language,
+        )
+        if default_page is not None:
+          max_content_modification_date = max(
+              default_page.getModificationDate(),
+              max_content_modification_date,
+          )
+  if context.getModificationDate() < max_content_modification_date:
+    error_list.append(
+        "Web Section {} is older than default page".format(
+            context.getRelativeUrl()))
+    if fixit:
+      portal.portal_workflow.doActionFor(
+          context,
+          'edit_action',
+          comment=translateString('Edited Web Section, it was older than default page'))
+
+return error_list

bt5/erp5_web/SkinTemplateItem/portal_skins/erp5_web/WebSection_checkDefaultPageModificationDateConsistency.xml

+<?xml version="1.0"?>
+<ZopeData>
+  <record id="1" aka="AAAAAAAAAAE=">
+    <pickle>
+      <global name="PythonScript" module="Products.PythonScripts.PythonScript"/>
+    </pickle>
+    <pickle>
+      <dictionary>
+        <item>
+            <key> <string>Script_magic</string> </key>
+            <value> <int>3</int> </value>
+        </item>
+        <item>
+            <key> <string>_bind_names</string> </key>
+            <value>
+              <object>
+                <klass>
+                  <global name="NameAssignments" module="Shared.DC.Scripts.Bindings"/>
+                </klass>
+                <tuple/>
+                <state>
+                  <dictionary>
+                    <item>
+                        <key> <string>_asgns</string> </key>
+                        <value>
+                          <dictionary>
+                            <item>
+                                <key> <string>name_container</string> </key>
+                                <value> <string>container</string> </value>
+                            </item>
+                            <item>
+                                <key> <string>name_context</string> </key>
+                                <value> <string>context</string> </value>
+                            </item>
+                            <item>
+                                <key> <string>name_m_self</string> </key>
+                                <value> <string>script</string> </value>
+                            </item>
+                            <item>
+                                <key> <string>name_subpath</string> </key>
+                                <value> <string>traverse_subpath</string> </value>
+                            </item>
+                          </dictionary>
+                        </value>
+                    </item>
+                  </dictionary>
+                </state>
+              </object>
+            </value>
+        </item>
+        <item>
+            <key> <string>_params</string> </key>
+            <value> <string>fixit=False</string> </value>
+        </item>
+        <item>
+            <key> <string>id</string> </key>
+            <value> <string>WebSection_checkDefaultPageModificationDateConsistency</string> </value>
+        </item>
+      </dictionary>
+    </pickle>
+  </record>
+</ZopeData>

bt5/erp5_web/bt/template_portal_type_property_sheet_list

 Static Web Section | SortIndex
+Static Web Section | WebSectionUpgradeConstraint
+Static Web Site | WebSectionUpgradeConstraint
 Static Web Site | WebSitePreference
 Web Page | Reference
 Web Page | SortIndex
 Web Section | SortIndex
+Web Section | WebSectionUpgradeConstraint
+Web Site | WebSectionUpgradeConstraint
 Web Site | WebSitePreference
\ No newline at end of file

bt5/erp5_web/bt/template_property_sheet_id_list

+WebSectionUpgradeConstraint
\ No newline at end of file

product/ERP5/tests/testERP5Web.py

@@ -29,7 +29,7 @@
 ##############################################################################
 
 import re
-import unittest
+import time
 from unittest import expectedFailure, skip
 from StringIO import StringIO
 from urllib import urlencode
@@ -2114,11 +2114,81 @@ class TestERP5WebCategoryPublicationWorkflow(ERP5TypeTestCase):
     self.assertEqual([], self.category.getParentValue().contentValues())
 
 
-def test_suite():
-  suite = unittest.TestSuite()
-  suite.addTest(unittest.makeSuite(TestERP5Web))
-  suite.addTest(unittest.makeSuite(TestERP5WebWithSimpleSecurity))
-  suite.addTest(unittest.makeSuite(TestERP5WebCategoryPublicationWorkflow))
-  suite.addTest(unittest.makeSuite(TestWebSiteTraversalHook))
-  suite.addTest(unittest.makeSuite(TestWebSectionTraversalHook))
-  return suite
+class ERP5WebUpgraderMixin(object):
+  """Test mixin that checks that web site or web sections are upgraded.
+
+  Subclasses must set `upgraded` attribute.
+  """
+  upgraded = None # type: erp5.portal_type.WebSection
+  def getBusinessTemplateList(self):
+    return ('erp5_base', 'erp5_web', )
+
+  def test_empty_constraint(self):
+    self.assertEqual(
+        [], [str(m.getMessage()) for m in self.upgraded.checkConsistency()])
+
+  def test_upgrader_fix_modification_date(self):
+    # Upgrader sets the modification date on the web section if
+    # it's older than its default page.
+    html_page = self.portal.web_page_module.newContent(
+        portal_type='Web Page',
+        reference=self.id(),
+    )
+    html_page.publish()
+    self.tic()
+
+    self.upgraded.edit(aggregate_value=html_page)
+    self.tic()
+    time.sleep(1)
+    html_page.edit(text_content="<p>Hello again</p>")
+    self.tic()
+    self.assertLess(
+        self.upgraded.getModificationDate(),
+        html_page.getModificationDate()
+        )
+    self.assertEqual(
+        ['Web Section {} is older than default page'.format(self.upgraded.getRelativeUrl())],
+        [str(m.getMessage()) for m in self.upgraded.checkConsistency()])
+    self.upgraded.fixConsistency()
+    self.tic()
+
+    self.assertEqual(
+        [], [str(m.getMessage()) for m in self.upgraded.checkConsistency()])
+    self.assertGreater(
+        self.upgraded.getModificationDate(),
+        html_page.getModificationDate())
+
+
+class TestERP5WebSiteUpgrader(ERP5WebUpgraderMixin, ERP5TypeTestCase):
+  def afterSetUp(self):
+    super(ERP5WebUpgraderMixin, self).afterSetUp()
+    self.upgraded = self.portal.web_site_module.newContent(
+        portal_type='Web Site',
+    )
+
+
+class TestERP5WebSectionUpgrader(ERP5WebUpgraderMixin, ERP5TypeTestCase):
+  def afterSetUp(self):
+    super(ERP5WebUpgraderMixin, self).afterSetUp()
+    self.upgraded = self.portal.web_site_module.newContent(
+        portal_type='Web Site',
+    ).newContent(
+        portal_type='Web Section',
+    )
+
+class TestERP5StaticWebSiteUpgrader(ERP5WebUpgraderMixin, ERP5TypeTestCase):
+  def afterSetUp(self):
+    super(ERP5WebUpgraderMixin, self).afterSetUp()
+    self.upgraded = self.portal.web_site_module.newContent(
+        portal_type='Static Web Site',
+    )
+
+
+class TestERP5StaticWebSectionUpgrader(ERP5WebUpgraderMixin, ERP5TypeTestCase):
+  def afterSetUp(self):
+    super(ERP5WebUpgraderMixin, self).afterSetUp()
+    self.upgraded = self.portal.web_site_module.newContent(
+        portal_type='Web Site',
+    ).newContent(
+        portal_type='Static Web Section',
+    )