+Forums: Posting history for @user.full_name@
+@context_bar@
+
+
+ Posting history for
+
+ <%
+ if {![permission::permission_p -object_id [acs_magic_object security_context_root] -privilege admin]} {
+ adp_puts [acs_community_member_link -user_id $user(user_id)]
+ } else {
+ adp_puts [acs_community_member_admin_link -user_id $user(user_id)]
+ }
+ %>
+
+
+
+
+
+@dimensional_chunk@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ @messages.forum_name@
|
+
+
+
+ | Subject |
+ Posted |
+
+
+
+
+
+
+
+
+
+
+
+ | @messages.subject@ |
+ @messages.posting_date@ |
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-forums/www/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/www/user.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-forums/www/user.tcl 9 Jul 2002 19:48:46 -0000 1.1
@@ -0,0 +1,39 @@
+ad_page_contract {
+
+ Posting History for a User
+
+ @author Ben Adida (ben@openforce)
+ @creation-date 2002-05-29
+ @version $Id: user.tcl,v 1.1 2002/07/09 19:48:46 yon Exp $
+
+} {
+ user_id:integer,notnull
+ {view "date"}
+}
+
+# choosing the view
+set dimensional_list {
+ {
+ view "View:" date {
+ {date "by Date" {}}
+ {forum "by Forum" {}}
+ }
+ }
+}
+
+set query select_messages
+if {[string equal $view forum]} {
+ set query select_messages_by_forum
+}
+
+# Select the postings
+db_multirow messages $query {}
+
+# Get user information
+oacs::user::get -user_id $user_id -array user
+
+set dimensional_chunk [ad_dimensional $dimensional_list]
+
+set context_bar {{Posting History}}
+
+ad_return_template