-- Disable notification when registering users because it's handled in

   /packages/intranet-core/www/users/user-add-3.tcl

tcl/local-procs.tcl

@@ -499,28 +499,32 @@ ad_proc -private auth::local::registration::Register {
     set system_name [ad_system_name]
     set system_url [ad_url]
 
+	# --------------------------------------------------------------------------------------
+	# PO Patch: notification is handled in /packages/intranet-core/www/users/user-add-3.tcl
+	# --------------------------------------------------------------------------------------
+
     # LARS TODO: Move this out of the local driver and into the auth framework
     # Send password confirmation email to user
-    if { [set email_reg_confirm_p [parameter::get -parameter EmailRegistrationConfirmationToUserP -package_id [ad_conn subsite_id] -default 0]] != -1 } {
-	if { $generated_pwd_p || \
-		 [parameter::get -parameter RegistrationProvidesRandomPasswordP -package_id [ad_conn subsite_id] -default 0] || \
-		 $email_reg_confirm_p } {
-
-	    with_catch errmsg {
-		auth::password::email_password \
-		    -username $username \
-		    -authority_id $authority_id \
-		    -password $password \
-		    -from [parameter::get -parameter NewRegistrationEmailAddress -package_id [ad_conn subsite_id] -default [ad_system_owner]] \
-		    -subject_msg_key "acs-subsite.email_subject_Registration_password" \
-		    -body_msg_key "acs-subsite.email_body_Registration_password" 
-	    } {
+    #if { [set email_reg_confirm_p [parameter::get -parameter EmailRegistrationConfirmationToUserP -package_id [ad_conn subsite_id] -default 0]] != -1 } {
+	#if { $generated_pwd_p || \
+	#	 [parameter::get -parameter RegistrationProvidesRandomPasswordP -package_id [ad_conn subsite_id] -default 0] || \
+	#	 $email_reg_confirm_p } {
+
+	#    with_catch errmsg {
+	#	auth::password::email_password \
+	#	    -username $username \
+	#	    -authority_id $authority_id \
+	#	    -password $password \
+	#	    -from [parameter::get -parameter NewRegistrationEmailAddress -package_id [ad_conn subsite_id] -default [ad_system_owner]] \
+	#	    -subject_msg_key "acs-subsite.email_subject_Registration_password" \
+	#	    -body_msg_key "acs-subsite.email_body_Registration_password" 
+	#    } {
 		# We don't fail hard here, just log an error
-		global errorInfo
-		ns_log Error "Error sending registration confirmation to $email.\n$errorInfo"
-	    }
-	}
-    }
+	#	global errorInfo
+	#	ns_log Error "Error sending registration confirmation to $email.\n$errorInfo"
+	#    }
+	#}
+    #}
 
     # LARS TODO: Move this out of the local driver and into the auth framework
     # Notify admin on new registration