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.25 -r1.26
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	26 Feb 2005 19:09:22 -0000	1.25
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	1 Mar 2005 00:01:35 -0000	1.26
@@ -222,7 +222,7 @@
     if { [empty_string_p $package_id] } {
     set package_id [ad_conn package_id]
     }
-    set creation_user [ad_verify_and_get_user_id]
+    set creation_user [ad_conn user_id]
     set creation_ip [ad_conn peeraddr]
     set creation_date [db_string get_date { *SQL* }]
     set item_name "${content_type}_${item_id}"
@@ -433,7 +433,7 @@
 } {
 
     set package_id [ad_conn package_id]
-    set creation_user [ad_verify_and_get_user_id]
+    set creation_user [ad_conn user_id]
     set creation_ip [ad_conn peeraddr]
     set folder_id [content::item::get_id -item_path "${content_type}_${package_id}" -resolve_index {f}]
     set item_name "${item_id}_${title}"
@@ -495,7 +495,7 @@
 } {
 
     set package_id [ad_conn package_id]
-    set creation_user [ad_verify_and_get_user_id]
+    set creation_user [ad_conn user_id]
     set creation_ip [ad_conn peeraddr]
     set creation_date [db_string get_date { *SQL* }]
     set folder_id [content::item::get_id -item_path "${content_type}_${package_id}" -resolve_index {f}]
@@ -574,7 +574,7 @@
 } {
 
     set package_id [ad_conn package_id]
-    set creation_user [ad_verify_and_get_user_id]
+    set creation_user [ad_conn user_id]
     set creation_date [db_string get_date { *SQL* }]
     set creation_ip [ad_conn peeraddr]
     set folder_id [content::item::get_id -item_path "${content_type}_${package_id}" -resolve_index {f}]
@@ -629,7 +629,7 @@
     if { [empty_string_p $context] } {
 	set context [ad_conn package_id]
     }
-    set creation_user [ad_verify_and_get_user_id]
+    set creation_user [ad_conn user_id]
     set creation_ip [ad_conn peeraddr]
 
     if { [empty_string_p $creation_date] } {
@@ -683,7 +683,7 @@
 } {
 
     set package_id [ad_conn package_id]
-    set creation_user [ad_verify_and_get_user_id]
+    set creation_user [ad_conn user_id]
     set creation_ip [ad_conn peeraddr]
     set folder_id [content::item::get_id -item_path "${content_type}_${package_id}" -resolve_index {f}]
     set item_name "${item_id}_${title}"