Index: openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-login.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-login.tcl	9 Jul 2002 17:34:58 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-ldap-authentication/www/examples/user-login.tcl	8 Oct 2002 15:46:46 -0000	1.1.1.2
@@ -15,14 +15,14 @@
     # The user is not in the database. Redirect to user-new.tcl so the user can register.
     ad_set_client_property -persistent "f" register password $password
     ad_returnredirect "user-new?[ad_export_vars { email return_url persistent_cookie_p }]"
-
-    return
+    ad_script_abort
 }
 
 set user_id [ldap_check_password $email $password]
 if [empty_string_p $user_id] {
     # The user is in the database, but has provided an incorrect password.
-    ad_returnredirect "bad-password.tcl?user_id=$user_id"
+    ad_returnredirect "bad-password?user_id=$user_id"
+    ad_script_abort
 }
 
 
@@ -31,4 +31,4 @@
 ad_user_login -forever=$persistent_cookie_p $user_id
 
 ad_returnredirect $return_url
-return
+ad_script_abort