Fisheye: Tag 1.2.8.1 refers to a dead (removed) revision in file `openacs-4/packages/forums/www/mark-all-read-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2.8.1 refers to a dead (removed) revision in file `openacs-4/packages/forums/www/mark-all-read-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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.5 -r1.5.2.1
--- openacs-4/packages/forums/www/mark-all-read.tcl	19 Jan 2018 14:20:33 -0000	1.5
+++ openacs-4/packages/forums/www/mark-all-read.tcl	8 Feb 2021 12:27:14 -0000	1.5.2.1
@@ -9,10 +9,24 @@
     forum_id:naturalnum,notnull
 }
 
-    set user_id [ad_conn user_id]
-    set db_antwort [db_exec_plsql forums_reading_info__user_add_forum {}]
+set user_id [ad_conn user_id]
 
+db_dml forums_reading_info_user_add_forum {
+    insert into forums_reading_info (
+                                     root_message_id,
+                                     user_id,
+                                     forum_id
+                                     )
+    select message_id, :user_id, m.forum_id
+    from forums_messages_approved m
+    where m.forum_id = :forum_id
+      and m.parent_id is null
+      and not exists (select 1 from forums_reading_info
+                       where user_id = :user_id
+                         and root_message_id = m.message_id)
+}
 
+
 ad_returnredirect forum-view?forum_id=$forum_id
 ad_script_abort