Index: openacs-4/packages/forums/www/mark_all_readed.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/Attic/mark_all_readed.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/www/mark_all_readed.tcl	22 May 2007 09:43:45 -0000	1.1
+++ openacs-4/packages/forums/www/mark_all_readed.tcl	15 Jun 2007 11:50:14 -0000	1.2
@@ -10,12 +10,7 @@
 }
 
     set user_id [ad_verify_and_get_user_id]
-    set db_antwort [db_string forums_reading_info__user_add_forum {
-        select forums_reading_info__user_add_forum (
-            :forum_id,
-            :user_id
-        );
-    }]
+    set db_antwort [db_exec_plsql forums_reading_info__user_add_forum {}]
 
 
 ad_returnredirect forum-view?forum_id=$forum_id
\ No newline at end of file