Index: openacs-4/packages/forums/www/mark-all-read.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/mark-all-read.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/www/mark-all-read.tcl	9 Nov 2008 23:29:26 -0000	1.2
+++ openacs-4/packages/forums/www/mark-all-read.tcl	27 Oct 2014 16:41:38 -0000	1.3
@@ -1,16 +1,16 @@
-ad_page_contract {
-
-    one forum view
-
-    @author Andreas Benisch (andreas.benisch@wu-wien.ac.at)
-    @creation-date 2004-09-06
-
-} {
-    forum_id:integer,notnull
-}
-
-    set user_id [ad_verify_and_get_user_id]
-    set db_antwort [db_exec_plsql forums_reading_info__user_add_forum {}]
-
-
-ad_returnredirect forum-view?forum_id=$forum_id
+ad_page_contract {
+
+    one forum view
+
+    @author Andreas Benisch (andreas.benisch@wu-wien.ac.at)
+    @creation-date 2004-09-06
+
+} {
+    forum_id:naturalnum,notnull
+}
+
+    set user_id [ad_conn user_id]
+    set db_antwort [db_exec_plsql forums_reading_info__user_add_forum {}]
+
+
+ad_returnredirect forum-view?forum_id=$forum_id