Index: openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl	29 Mar 2002 19:14:47 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl	18 May 2002 22:42:11 -0000	1.5
@@ -29,12 +29,12 @@
     -datatype text \
     -widget text \
     -html {size 50} \
-    -value [ad_parameter "auto_dotlrn_user_email_patterns"]
+    -value [dotlrn::parameter auto_dotlrn_user_email_patterns]
 
 if {[form is_valid edit_emails]} {
     form get_values edit_emails emails
 
-    ad_parameter -set $emails "auto_dotlrn_user_email_patterns"
+    dotlrn::parameter -set $emails auto_dotlrn_user_email_patterns
 
     ad_returnredirect $referer
     ad_script_abort