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.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl	18 May 2002 22:42:11 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl	21 May 2002 17:30:02 -0000	1.6
@@ -29,12 +29,12 @@
     -datatype text \
     -widget text \
     -html {size 50} \
-    -value [dotlrn::parameter auto_dotlrn_user_email_patterns]
+    -value [parameter::get -parameter auto_dotlrn_user_email_patterns]
 
 if {[form is_valid edit_emails]} {
     form get_values edit_emails emails
 
-    dotlrn::parameter -set $emails auto_dotlrn_user_email_patterns
+    parameter::set_value -parameter auto_dotlrn_user_email_patterns -value $emails
 
     ad_returnredirect $referer
     ad_script_abort