Index: openacs-4/packages/forums/www/user-history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/user-history.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/forums/www/user-history.tcl	28 Jun 2018 08:26:35 -0000	1.16
+++ openacs-4/packages/forums/www/user-history.tcl	3 Sep 2024 15:37:39 -0000	1.17
@@ -7,18 +7,12 @@
     @cvs-id $Id$
 
 } {
-    user_id:naturalnum,notnull
+    user_id:object_type(user),notnull
     {view:word "date"}
     {groupby "forum_name"}
-} -validate {
-    valid_user -requires user_id {
-        if {$user_id == 0 || ![person::person_p -party_id $user_id]} {
-            ad_complain "Invalid user_id"
-        }
-    }
 }
 
-# Get user name
+# Get username
 set user_name [person::name -person_id $user_id]
 
 set context [list [_ forums.Posting_History]]