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.31.2.4 -r1.31.2.5 --- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl 16 Jun 2005 23:59:53 -0000 1.31.2.4 +++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl 24 Jun 2005 02:08:17 -0000 1.31.2.5 @@ -415,6 +415,7 @@ {-title ""} {-mime_type "text/plain"} {-item_name ""} + {-package_id ""} } { Build a new content revision of a task. If new_item_p is set true then a new item is first created, otherwise a new revision is created for @@ -440,7 +441,9 @@ set creation_ip [ad_conn peeraddr] } - set package_id [ad_conn package_id] + if {[empty_string_p $package_id]} { + set package_id [ad_conn package_id] + } set folder_id [content::item::get_id -item_path "${content_type}_${package_id}" -resolve_index f] if { [empty_string_p $item_name] } { set item_name "${item_id}_${title}"