Index: openacs-4/packages/forums/lib/user/post-history-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/user/post-history-chunk.adp,v
diff -u -r1.5 -r1.5.8.1
--- openacs-4/packages/forums/lib/user/post-history-chunk.adp	23 Dec 2007 14:50:15 -0000	1.5
+++ openacs-4/packages/forums/lib/user/post-history-chunk.adp	22 Sep 2015 12:37:53 -0000	1.5.8.1
@@ -3,7 +3,7 @@
 <p>
   #forums.Posting_history_for#
   <b>
-    <if @useScreenNameP@>@screen_name@</if>
+    <if @useScreenNameP@>@message.screen_name@</if>
     <else>@user_link;noquote@</else>
   </b>
 </p>
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.2.1 -r1.8.2.2
--- openacs-4/packages/forums/lib/user/post-history-chunk.tcl	12 Sep 2015 11:06:25 -0000	1.8.2.1
+++ openacs-4/packages/forums/lib/user/post-history-chunk.tcl	22 Sep 2015 12:37:53 -0000	1.8.2.2
@@ -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,7 +127,7 @@
 
 set dimensional_chunk [ad_dimensional $dimensional_list]
 
-if {([info exists alt_template] && $alt_template ne "")} {
+if {$alt_template ne ""} {
     ad_return_template $alt_template
 }
 
Index: openacs-4/packages/forums/www/user-history.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/user-history.adp,v
diff -u -r1.15 -r1.15.2.1
--- openacs-4/packages/forums/www/user-history.adp	3 Jul 2015 10:47:33 -0000	1.15
+++ openacs-4/packages/forums/www/user-history.adp	22 Sep 2015 12:37:53 -0000	1.15.2.1
@@ -2,4 +2,4 @@
 <property name="doc(title)">#forums.Forums_Posting_hist_lt# @user.first_names@ @user.last_name@</property>
 <property name="context">@context;literal@</property>
 
-<include src="/packages/forums/lib/user/post-history-chunk" &="user_id" &="groupby" &view="view">
+<include src="/packages/forums/lib/user/post-history-chunk" &="user_id" &="groupby" &="view">