Index: openacs-4/packages/webmail/www/util-pages/constraint-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail/www/util-pages/constraint-form.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail/www/util-pages/constraint-form.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/webmail/www/util-pages/constraint-form.tcl	1 Mar 2005 00:01:46 -0000	1.2
@@ -22,7 +22,7 @@
 template::multirow create constr_selected comp_object comp_type comp_string
 
 
-set user_id [ad_verify_and_get_user_id]
+set user_id [ad_conn user_id]
 
 if { ![exists_and_not_null num_per_line] } {
     set num_per_line 2