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.28 -r1.29
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	31 Mar 2005 11:09:28 -0000	1.28
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	4 Apr 2005 18:22:36 -0000	1.29
@@ -247,19 +247,6 @@
     return $revision_id
 } 
 
-
-ad_proc -public evaluation::set_live {
-    -revision_id:required
-} {
-
-    Makes a live revision of the revision_id provided.
-
-    @param revision_id The revision to set live.
-} {
-    db_exec_plsql content_set_live_revision { *SQL* }
-    return 
-}
-
 ad_proc -private evaluation::now_plus_days { -ndays } {
     Create a new Date object for the current date and time 
     plus the number of days given
@@ -321,11 +308,12 @@
     }
 
     set item_name "${item_id}_${title}"
+    set to_folder_id [content::item::get_id -item_path "${content_type}_${to_package_id}" -resolve_index f]
 
     set revision_id [db_nextval acs_object_id_seq]
 
     set item_id [content::item::new -item_id $item_id \
-		     -parent_id $folder_id \
+		     -parent_id $to_folder_id \
 		     -content_type evaluation_tasks \
 		     -creation_user $creation_user \
 		     -name $item_name \