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.6 -r1.7
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	28 Aug 2003 11:35:01 -0000	1.6
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	29 Aug 2003 12:25:10 -0000	1.7
@@ -431,21 +431,22 @@
         set result(account_status) "closed"
         set result(account_message) "<p>[_ acs-subsite.lt_Registration_informat_1]</p><p>[_ acs-subsite.lt_Please_read_and_follo]</p>"
 
-	set row_id [db_string rowid_for_email {
-            select rowid from users where user_id = :user_id
-        }]
+	set row_id [auth::get_user_secret_token -user_id $user_id]
 
+        # Lars TODO: Refactor with code in authentication-procs.tcl
+        
         # Send email verification email to user
-        set confirmation_url "[ad_url]/register/email-confirm?[export_vars { row_id }]"
+        set confirmation_url [export_vars -base "[ad_url]/register/email-confirm" { row_id }]
 	with_catch errmsg {
             ns_sendmail \
                 $email \
                 $notification_address \
                 "[_ acs-subsite.lt_Welcome_to_system_nam]" \
                 "[_ acs-subsite.lt_To_confirm_your_regis]"
         } {
-	    #ns_returnerror "500" "$errmsg"
-	    ns_log Warning "Error sending email verification email to $email. Error: $errmsg"
+            global errorInfo
+            ns_log Error "auth::get_local_account: Error sending out email verification email to email $email:\n$errorInfo"
+            set auth_info(account_message) "We got an error sending out the email for email verification"
 	}
 
     } else {