ad_include_contract {
Posting History for a User
@author Ben Adida (ben@openforce.net)
@creation-date 2002-05-29
@cvs-id $Id: post-history-chunk.tcl,v 1.10.2.1 2021/10/12 09:27:01 hectorr Exp $
} {
user_id:naturalnum,notnull
{groupby:word "forum_name"}
{view:word "date"}
{alt_template ""}
}
set package_id [ad_conn package_id]
# provide screen_name functionality
set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
set message(screen_name) [expr {$useScreenNameP ?
[acs_user::get_user_info \
-user_id $user_id \
-element "screen_name"] : ""}]
set user_link [acs_community_member_link -user_id $user_id]
# choosing the view
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
template::list::create \
-name messages \
-multirow messages \
-no_data "#forums.No_Postings#" \
-key message_id \
-elements {
forum_name {
label "\#forums.Forum\#"
hide_p t
html {align left}
display_template {@messages.forum_name@}
}
subject {
label "\#forums.Subject\#"
html {align left}
display_template {@messages.subject@}
}
posting_date_pretty {
label "\#forums.Posted\#"
html {align right}
}
} -groupby {
label "\#forums.Forum\#"
values { "\#forums.Forum\#" {{groupby forum_name} {orderby forum_name,desc}}}
}
} else {
template::list::create \
-name messages \
-multirow messages \
-no_data "#forums.No_Postings#" \
-key message_id \
-elements {
forum_name {
label "\#forums.Forum\#"
html {align left}
display_template {@messages.forum_name@}
}
subject {
label "\#forums.Subject\#"
html {align left}
display_template {@messages.subject@}
}
posting_date_pretty {
label "\#forums.Posted\#"
html {align right}
}
}
}
# Select the postings
db_multirow -extend { posting_date_pretty } messages $query {} {
set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
}
template::list::create \
-name posts \
-multirow posts \
-no_data "#forums.No_Postings#" \
-key message_id \
-elements {
name {
label "\#forums.Forum\#"
html {align left}
display_template {@posts.name@}
}
num_msg {
label "\#forums.Number_of_Posts\#"
html {align left}
}
posting_date_pretty {
label "\#forums.Posted\#"
html {align right}
}
}
# select number of post from this user
db_multirow -extend { posting_date_pretty } posts select_num_post {} {
set posting_date_pretty [lc_time_fmt $last_post "%x %X"]
}
set dimensional_chunk [ad_dimensional $dimensional_list]
if {$alt_template ne ""} {
ad_return_template $alt_template
}
# Local variables:
# mode: tcl
# tcl-indent-level: 4
# indent-tabs-mode: nil
# End: