*** authentication-procs.tcl	2003-10-10 17:28:50.000000000 +0200
--- /tmp/authentication-procs.tcl	2003-10-10 17:28:38.000000000 +0200
***************
*** 298,303 ****
--- 298,309 ----
          }
      }
          
+     if { [string equal $result(auth_status) "ok"] && [acknowledgement::overdue_acks_p $result(user_id)] } {
+         set result(auth_status) ack_missing
+         set result(auth_message) "[_ acknowledgement.not_all_acks_accepted] [acknowledgement::repent_url $result(user_id)]"
+     }
+ 
+ 
      # Issue login cookie if login was successful
      if { [string equal $result(auth_status) "ok"] && !$no_cookie_p && [exists_and_not_null result(user_id)] } {
          auth::issue_login \