Index: openacs-4/packages/dotlrn/www/members-chunk-table.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk-table.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/dotlrn/www/members-chunk-table.tcl 4 Dec 2002 09:51:04 -0000 1.19
+++ openacs-4/packages/dotlrn/www/members-chunk-table.tcl 29 May 2003 18:05:01 -0000 1.20
@@ -30,6 +30,8 @@
n_parent_users:onevalue
}
+set dotlrn_url [dotlrn::get_url]
+
# use my_user_id here so we don't confuse with user_id from the query
set my_user_id [ad_conn user_id]
@@ -61,15 +63,16 @@
if {[string compare $order_direction "asc"]==0} {
- set order_html ""
+ set order_html ""
set opposite_order_direction "desc"
} else {
- set order_html ""
+ set order_html ""
set opposite_order_direction "asc"
}
# Variables that will be used if the column
# is not selected.
+
set first_names_order_html ""
set last_name_order_html ""
set email_order_html ""
@@ -78,7 +81,6 @@
set last_name_order_direction $order_direction
set email_order_direction $order_direction
-
# Special case for the selected column.
switch $order {
"first_names" {