ExtFolder stores sub-objects as ExtFile or ExtImage.

For now, this uses ExtFile and ExtImage directly without the CMF framework.
So you cannot see sub-objects from listboxes.


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

product/ERP5/Document/ExtFolder.py

+##############################################################################
+#
+# Copyright (c) 2005 Nexedi SARL and Contributors. All Rights Reserved.
+#                    Yoshinori Okuji <yo@nexedi.com>
+#
+# WARNING: This program as such is intended to be used by professional
+# programmers who take the whole responsability of assessing all potential
+# consequences resulting from its eventual inadequacies and bugs
+# End users who are looking for a ready-to-use solution with commercial
+# garantees and support are strongly adviced to contract a Free Software
+# Service Company
+#
+# This program is Free Software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
+#
+##############################################################################
+
+from AccessControl import ClassSecurityInfo
+
+from Products.ERP5Type import Permissions, PropertySheet, Constraint, Interface
+from Products.ERP5Type.XMLObject import XMLObject
+from Products.ExtFile.ExtFile import ExtFile
+from Products.ExtFile.ExtImage import ExtImage
+
+from zLOG import LOG
+
+class ExtFolder( XMLObject ):
+    """
+       ExtFolder stores sub-objects as ExtFile or ExtImage.
+    """
+
+    # Default Properties
+    property_sheets = ( PropertySheet.Base
+                      , PropertySheet.XMLObject
+                      , PropertySheet.CategoryCore
+                      , PropertySheet.DublinCore
+                      )
+
+    # CMF Type Definition
+    meta_type='ERP5 External Folder'
+    portal_type='External Folder'    
+    add_permission = Permissions.AddPortalContent
+    isPortalContent = 1
+    isRADContent = 1
+
+    # Declarative security
+    security = ClassSecurityInfo()
+    security.declareObjectProtected(Permissions.AccessContentsInformation)
+
+    security.declarePrivate('PUT_factory')
+    def PUT_factory( self, name, typ, body ):
+      """Return an ExtFile or ExtImage object.
+      """
+      major, minor = typ.split('/', 1)
+      if major == 'image':
+        return ExtImage(name)
+      return ExtFile(name)
+