truncate portal status message if it seems too long

git-svn-id: https://svn.erp5.org/repos/public/erp5/trunk@44046 20353a03-c40f-0410-a6d1-a30d3c3de9de

product/ERP5/bootstrap/erp5_xhtml_style/SkinTemplateItem/portal_skins/erp5_xhtml_style/Workflow_statusModify.xml

@@ -50,9 +50,12 @@
         </item>
         <item>
             <key> <string>_body</string> </key>
-            <value> <string>from Products.Formulator.Errors import FormValidationError\n
+            <value> <string encoding="cdata"><![CDATA[
+
+from Products.Formulator.Errors import FormValidationError\n
 from Products.DCWorkflow.DCWorkflow import ValidationFailed\n
 from Products.ERP5Type.Message import translateString\n
+from Products.ERP5Type.Log import log\n
 portal = context.getPortalObject()\n
 request=context.REQUEST\n
 \n
@@ -116,6 +119,10 @@ except ValidationFailed, error_message:\n
       message = str(message)\n
   else:\n
     message = str(error_message)\n
+  if len(message) > 2000: # too long message will generate a too long URI\n
+                          # that would become an error.\n
+    log("Status message has been truncated")\n
+    message = "%s ..." % message[:(2000 - 4)]\n
   return context.Base_redirect(form_id,\n
                   keep_items={\'portal_status_message\': message}, **kw)\n
 \n
@@ -131,7 +138,9 @@ else:\n
 \n
 return redirect_document.Base_redirect(form_id,\n
                 keep_items={\'portal_status_message\': portal_status_message})\n
-</string> </value>
+
+
+]]></string> </value>
         </item>
         <item>
             <key> <string>_params</string> </key>

product/ERP5/bootstrap/erp5_xhtml_style/bt/revision

-1067
\ No newline at end of file
+1068
\ No newline at end of file