Index: openacs-4/contrib/packages/acknowledgement/auth.patch =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/acknowledgement/auth.patch,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/acknowledgement/auth.patch 10 Oct 2003 15:25:30 -0000 1.1 @@ -0,0 +1,17 @@ +*** 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 \