Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	10 Nov 2003 16:16:13 -0000	1.25
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	11 Dec 2003 21:39:46 -0000	1.26
@@ -457,15 +457,23 @@
     # Notify admin on new registration
     if { [parameter::get -parameter  NotifyAdminOfNewRegistrationsP -default 0] } {
 	with_catch errmsg {
+	    set admin_email [parameter::get \
+				 -parameter NewRegistrationEmailAddress \
+				 -package_id [ad_conn subsite_id] \
+				 -default [ad_system_owner]]
+
+	    set admin_locale [lang::user::locale -user_id [party::get_by_email -email $admin_email]]
+	    set system_url [ad_url]
+
             ns_sendmail \
-                [parameter::get -parameter NewRegistrationEmailAddress -package_id [ad_conn subsite_id] -default [ad_system_owner]] \
+		$admin_email \
                 $email \
-                [_ acs-subsite.lt_New_registration_at_s] \
-                [_ acs-subsite.lt_first_names_last_name]
+		[lang::message::lookup $admin_locale acs-subsite.lt_New_registration_at_s] \
+		[lang::message::lookup $admin_locale acs-subsite.lt_first_names_last_name]
 	} {
             # We don't fail hard here, just log an error
             global errorInfo
-	    ns_log Error "Error sending admin notification to $notification_address.\n$errorInfo"
+	    ns_log Error "Error sending admin notification to $admin_email.\n$errorInfo"
 	}
     }