--- ECHO_content/VLPExtension.py	2004/06/04 10:04:16	1.5
+++ ECHO_content/VLPExtension.py	2004/06/08 15:25:11	1.6
@@ -13,6 +13,60 @@ def getText(nodelist):
            rc = rc + node.data
     return rc
 
+class VLP_essay(Folder):
+    """classe für VLP essays"""
+
+    meta_type="VLP_essay"
+
+    def __init__(self,id,title,label):
+        """init"""
+        self.id=id
+        self.title=title
+        self.label=label
+
+    def getPage(self,pagenum):
+        """gibt essay page mit num aus"""
+        def sortFind(x,y):
+            return cmp(x[0],y[0])
+            
+        pages=self.ZopeFind(self,obj_metatypes=['DTML Document','File'])
+        
+        pages.sort(sortFind)
+        #print str(pages[int(pagenum)][1]())
+        if pages[int(pagenum)-1][1].meta_type=='File':
+            return str(pages[int(pagenum)-1][1])
+        else:
+            return str(pages[int(pagenum)-1][1]())
+        
+    def nextPage(self,pagenum,url):
+        pages=len(self.ZopeFind(self,obj_metatypes=['DTML Document'])) # teste ob performance ok, sonst in variable
+        if int(pagenum)+1 <= pages:
+            retstr=url+"?p="+str(int(pagenum)+1)
+            return """<td align="right" <a href="%s">next</a></td>"""%retstr
+        
+    def previousPage(self,pagenum,url):
+        pages=len(self.ZopeFind(self,obj_metatypes=['DTML Document'])) # teste ob performance ok, sonst in variable
+        if int(pagenum)-1 > 0:
+            retstr=url+"?p="+str(int(pagenum)-1)
+            return """<td align="left" <a href="%s">previous</a></td>"""%retstr
+        
+        
+def manage_addVLP_essayForm(self):
+    """Form for adding"""
+    pt=PageTemplateFile('Products/ECHO_content/vlp/AddVLP_essay.zpt').__of__(self)
+    return pt()
+
+def manage_addVLP_essay(self, id,title,label,RESPONSE=None):
+	"""add the copyright"""
+
+	
+	self._setObject(id, VLP_essay(id, title,label))
+
+	if RESPONSE is not None:
+		RESPONSE.redirect('manage_main')
+	
+
+
 class VLP_collection(ECHO_collection):
     """VLP spezifische Erweiterung der Collection"""