Index: openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql	31 Mar 2005 11:09:27 -0000	1.1
+++ openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql	4 Apr 2005 18:22:36 -0000	1.2
@@ -155,5 +155,45 @@
         select sysdate from dual
       </querytext>
 </fullquery>
+
+<fullquery name="evaluation::clone_task.from_task_info">      
+      <querytext>
+
+	select et.task_name,
+	et.number_of_members,
+	et.due_date,
+	et.weight,
+	et.online_p,
+	et.late_submit_p,
+	et.requires_grade_p,
+	crr.content, 
+	crr.filename,
+	crr.content_length,
+	crr.title,
+	crr.description,
+	crr.mime_type,
+	cri.storage_type,
+	cri.content_type
+	from evaluation_tasksi et, 
+	cr_revisions crr, 
+	cr_items cri
+	where task_id = :from_task_id 
+	and et.task_id = crr.revision_id
+	and cri.item_id = crr.item_id
+
+      </querytext>
+</fullquery>
+
+<fullquery name="evaluation::clone_task.clone_content">      
+      <querytext>
+
+	update cr_revisions	
+ 	set content = :content,
+	content_length = :content_length,
+	filename = :filename
+	where revision_id = :revision_id
+	
+      </querytext>
+</fullquery>
  
 </queryset>