Index: openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-new-2.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-new-2.tcl	9 Jul 2002 17:34:58 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-new-2.tcl	8 Oct 2002 15:46:46 -0000	1.1.1.2
@@ -65,7 +65,7 @@
 
 if {$exception_count > 0} {
     ad_return_complaint $exception_count $exception_text
-    return
+    ad_script_abort
 }
 
 set double_click_p 0
@@ -77,13 +77,13 @@
     set result [ldap_add_user_to_server $dn $first_names $last_name $email $password]
     if [empty_string_p $result] {
         ad_return_error "User Creation Failed" "We were unable to create your user record in the ldap database."
-        return
+        ad_script_abort
     }
     set user_id [ldap_user_new -dn $dn $email $first_names $last_name $password $question \
             $answer $url $email_verified_p $member_state $user_id]
     if { !$user_id } {
 	ad_return_error "User Creation Failed" "We were unable to create your user record in the database."
-        return
+        ad_script_abort
     }
 }