Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	4 Apr 2005 18:22:36 -0000	1.29
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	7 Apr 2005 11:26:58 -0000	1.30
@@ -340,7 +340,8 @@
 					  [list requires_grade_p $requires_grade_p] \
 					  [list number_of_members $number_of_members]]]
 
-    db_dml clone_content { *SQL* }
+    db_exec_plsql clone_content { *SQL* }
+
     return $revision_id
 }
 
@@ -556,11 +557,11 @@
     set revision_id [db_nextval acs_object_id_seq]
 
     if { [empty_string_p $publish_date] } {
-	set publish_date [db_string get_date { *SQL* }]
+		set publish_date [db_string get_date { *SQL* }]
     }
-
+	
     if { [empty_string_p $creation_date] } {
-	set creation_date [db_string get_date { *SQL* }]
+		set creation_date [db_string get_date { *SQL* }]
     }
     if { $new_item_p } {
         set item_id [content::item::new \
@@ -579,7 +580,7 @@
 			 -item_id $item_id \
 			 -content_type $content_type \
 			 -mime_type $mime_type \
-			 -title $title\
+			 -title $title \
 			 -creation_user $creation_user \
 			 -creation_ip $creation_ip \
 			 -creation_date $creation_date \