Index: openacs-4/contrib/packages/events/www/admin/spam/spam-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/spam/spam-confirm.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/admin/spam/spam-confirm.tcl	9 Mar 2003 12:08:36 -0000	1.1
+++ openacs-4/contrib/packages/events/www/admin/spam/spam-confirm.tcl	1 Mar 2005 00:01:17 -0000	1.2
@@ -55,8 +55,8 @@
 
 #maybe create_comment_p & event_id
 
-set admin_user_id [ad_verify_and_get_user_id]
-ad_maybe_redirect_for_registration
+set admin_user_id [ad_conn user_id]
+auth::require_login
 
 if {[info exists from_file_p] && [string compare $from_file_p "t"] == 0} {
     set message [get_spam_from_filesystem "plain"]