user-history.tcl

Posting History for a User

Location:

/packages/forums/www/user-history.tcl

Author:

Ben Adida <ben@openforce.net>

Created:

2002-05-29

CVS ID:

$Id: user-history.tcl,v 1.16.2.4 2022/08/30 13:08:30 antoniop Exp $

Related Files

• packages/forums/www/user-history.tcl
• packages/forums/www/user-history.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    
    Posting History for a User

    @author Ben Adida (ben@openforce.net)
    @creation-date 2002-05-29
    @cvs-id $Id: user-history.tcl,v 1.16.2.4 2022/08/30 13:08:30 antoniop Exp $

} {
    user_id:object_type(user),notnull
    {view:word "date"}
    {groupby "forum_name"}
}

# Get username
set user_name [person::name -person_id $user_id]
ns_log notice "User History view user_id $user_id ( [ns_conn url]?[ns_conn query] )"

set context [list [_ forums.Posting_History]]

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: