Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-subsite/www/admin/users/new.tcl 10 Jan 2007 21:22:08 -0000 1.9 +++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl 6 Jan 2009 02:25:34 -0000 1.10 @@ -135,7 +135,7 @@ # Get whether they requre some sort of approval -if {[ad_parameter RegistrationRequiresApprovalP "security" 0]} { +if {[parameter::get -parameter RegistrationRequiresApprovalP -default 0]} { set member_state "" } else { set member_state "approved" @@ -154,7 +154,7 @@ set add_to_group_id [application_group::group_id_from_package_id] } - if {[ad_parameter RegistrationRequiresEmailVerificationP "security" 0]} { + if {[parameter::get -parameter RegistrationRequiresEmailVerificationP -default 0]} { set email_verified_p "f" } else { set email_verified_p "t" @@ -219,9 +219,9 @@ if {!$double_click_p} { - set notification_address [ad_parameter NewRegistrationEmailAddress "security" [ad_system_owner]] + set notification_address [parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]] - if {[ad_parameter NotifyAdminOfNewRegistrationsP "security" 0]} { + if {[parameter::get -parameter NotifyAdminOfNewRegistrationsP -default 0]} { set creation_user [ad_conn user_id] set creation_name [db_string creation_name_query { @@ -250,7 +250,7 @@ ns_sendmail [template::element::get_value add_user email] \ $notification_address \ "Welcome to [ad_system_name]" \ - "To confirm your registration, please go to [ad_parameter -package_id [ad_acs_kernel_id] SystemURL]/register/email-confirm?[export_url_vars row_id] + "To confirm your registration, please go to [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL]/register/email-confirm?[export_url_vars row_id] After confirming your email, here's how you can log in at [ad_url]: