fix class tool's dtml files so that it works on Zope-2.12.23 too. also add...

fix class tool's dtml files so that it works on Zope-2.12.23 too. also add some assertions to check if it works.

product/ERP5Type/dtml/editConstraintForm.dtml

@@ -3,7 +3,7 @@
 
 <h2>Edit Constraint Class: <dtml-var class_id>
   <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-    <dtml-var expr="externalEditLink_(this()['Constraint'][class_id])">
+    <dtml-var expr="externalEditLink_(this()._getOb('Constraint')[class_id])">
   </dtml-if></h2>
 <form method="POST" action="<dtml-var absolute_url>">
 <input type="hidden" name=":default_method" value="changeConstraintEditingPreferences">

product/ERP5Type/dtml/editDocumentForm.dtml

@@ -3,7 +3,7 @@
 
 <h2>Edit Document Class: <dtml-var class_id>
   <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-    <dtml-var expr="externalEditLink_(this()['Document'][class_id])">
+    <dtml-var expr="externalEditLink_(this()._getOb('Document')[class_id])">
   </dtml-if></h2>
 <form method="POST" action="<dtml-var absolute_url>">
 <input type="hidden" name=":default_method" value="changeDocumentEditingPreferences">

product/ERP5Type/dtml/editExtensionForm.dtml

@@ -3,7 +3,7 @@
 
 <h2>Edit Extension Class: <dtml-var class_id>
   <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-    <dtml-var expr="externalEditLink_(this()['Extensions'][class_id])">
+    <dtml-var expr="externalEditLink_(this()._getOb('Extensions')[class_id])">
   </dtml-if></h2>
 <form method="POST" action="<dtml-var absolute_url>">
 <input type="hidden" name=":default_method" value="changeExtensionEditingPreferences">

product/ERP5Type/dtml/editPropertySheetForm.dtml

@@ -3,7 +3,7 @@
 
 <h2>Edit Property Sheet Class: <dtml-var class_id>
   <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-    <dtml-var expr="externalEditLink_(this()['PropertySheet'][class_id])">
+    <dtml-var expr="externalEditLink_(this()._getOb('PropertySheet')[class_id])">
   </dtml-if></h2>
 <form method="POST" action="<dtml-var absolute_url>">
 <input type="hidden" name=":default_method" value="changePropertySheetEditingPreferences">

product/ERP5Type/dtml/editTestForm.dtml

@@ -3,7 +3,7 @@
 
 <h2>Edit Test Class: <dtml-var class_id>
   <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-    <dtml-var expr="externalEditLink_(this()['tests'][class_id])">
+    <dtml-var expr="externalEditLink_(this()._getOb('tests')[class_id])">
   </dtml-if></h2>
 <form method="POST" action="<dtml-var absolute_url>">
 <input type="hidden" name=":default_method" value="changeTestEditingPreferences">

product/ERP5Type/dtml/viewConstraintList.dtml

@@ -20,7 +20,7 @@
     <td>
       <div class="list-item"><dtml-var sequence-item>
         <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-          <dtml-var expr="externalEditLink_(this()['Constraint'][_['sequence-item']])">
+          <dtml-var expr="externalEditLink_(this()._getOb('Constraint')[_['sequence-item']])">
         </dtml-if>
       </div>
     </td>   

product/ERP5Type/dtml/viewDocumentList.dtml

@@ -21,7 +21,7 @@
     <td>
       <div class="list-item"><dtml-var sequence-item>
         <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-          <dtml-var expr="externalEditLink_(this()['Document'][_['sequence-item']])">
+          <dtml-var expr="externalEditLink_(this()._getOb('Document')[_['sequence-item']])">
         </dtml-if>
       </div>
     </td>   

product/ERP5Type/dtml/viewExtensionList.dtml

@@ -21,7 +21,7 @@
     <td>
       <div class="list-item"><dtml-var sequence-item>
         <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-          <dtml-var expr="externalEditLink_(this()['Extensions'][_['sequence-item']])">
+          <dtml-var expr="externalEditLink_(this()._getOb('Extensions')[_['sequence-item']])">
         </dtml-if>
       </div>
     </td>   

product/ERP5Type/dtml/viewPropertySheetList.dtml

@@ -21,7 +21,7 @@
     <td>
       <div class="list-item"><dtml-var sequence-item>
         <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-          <dtml-var expr="externalEditLink_(this()['PropertySheet'][_['sequence-item']])">
+          <dtml-var expr="externalEditLink_(this()._getOb('PropertySheet')[_['sequence-item']])">
         </dtml-if>
       </div>
     </td>   

product/ERP5Type/dtml/viewTestList.dtml

@@ -17,7 +17,7 @@
     <td>
       <div class="list-item"><dtml-var sequence-item>
         <dtml-if expr="hasattr(this(), 'externalEditLink_')">
-          <dtml-var expr="externalEditLink_(this()['tests'][_['sequence-item']])">
+          <dtml-var expr="externalEditLink_(this()._getOb('tests')[_['sequence-item']])">
         </dtml-if>
       </div>
     </td>   

product/ERP5Type/tests/testClassTool.py

@@ -54,6 +54,13 @@ class TestClassTool(ERP5TypeTestCase):
     portal = self.portal
     self.assertNotEqual(None,getattr(portal,'portal_classes',None))
     self.commit()
+    # check if web UI works
+    portal_classes = portal.portal_classes
+    portal_classes.manage_viewDocumentList()
+    portal_classes.manage_viewPropertySheetList()
+    portal_classes.manage_viewConstraintList()
+    portal_classes.manage_viewExtensionList()
+    portal_classes.manage_viewTestList()
 
 
   def test_02_CheckFileWriteIsTransactional(self):