Index: openacs-4/packages/forums/www/user-history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/user-history.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/forums/www/user-history.tcl	3 Jun 2002 16:33:01 -0000	1.3
+++ openacs-4/packages/forums/www/user-history.tcl	2 Jul 2002 20:00:23 -0000	1.4
@@ -17,20 +17,25 @@
 set dimensional_list {
     {
         view "View:" date {
-            {date "by Date" { order by date desc } }
-            {forum "by Forum" { order by forums_forums.name, date desc } }
+            {date "by Date" {}}
+            {forum "by Forum" {}}
         }
     }
 }
 
-set sql_order_by [ad_dimensional_sql $dimensional_list]
+set query select_messages
+if {[string equal $view forum]} {
+    set query select_messages_by_forum
+}
 
 # Select the postings
-db_multirow messages select_messages {}
+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