Index: openacs-4/packages/forums/lib/user/post-history-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/user/post-history-chunk.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/forums/lib/user/post-history-chunk.tcl	27 Oct 2014 16:41:37 -0000	1.8
+++ openacs-4/packages/forums/lib/user/post-history-chunk.tcl	7 Aug 2017 23:48:11 -0000	1.9
@@ -1,4 +1,4 @@
-ad_page_contract {
+ad_include_contract {
     
     Posting History for a User
 
@@ -7,7 +7,10 @@
     @cvs-id $Id$
 
 } {
-    groupby:optional
+    user_id:naturalnum,notnull
+    {groupby:word "forum_name"}
+    {view:word "date"}
+    {alt_template ""}
 }
 
 set package_id [ad_conn package_id]
@@ -17,7 +20,7 @@
 
 if {$useScreenNameP} {
 
-   acs_user::get -user_id $viewer_id -array user_info
+   acs_user::get -user_id $user_id -array user_info
    set message(screen_name) $user_info(screen_name)
 
 } else {
@@ -27,15 +30,14 @@
 
 
 # choosing the view
-set dimensional_list "
-    {
-        view \"[_ forums.View]:\" date {
-            {date \"[_ forums.by_Date]\" {}}
-            {forum \"[_ forums.by_Forum]\" {}}
-        }
-    }
-"
+set dimensional_list [subst {
+    { view "[_ forums.View]:" date {
+        {date "[_ forums.by_Date]" {}}
+        {forum "[_ forums.by_Forum]" {}}
+    }}
+}]
 
+
 set query select_messages
 if {$view eq "forum"} {
     set query select_messages_by_forum
@@ -125,6 +127,12 @@
 
 set dimensional_chunk [ad_dimensional $dimensional_list]
 
-if {([info exists alt_template] && $alt_template ne "")} {
+if {$alt_template ne ""} {
     ad_return_template $alt_template
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: