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.17 -r1.18
--- openacs-4/packages/dotlrn/www/members-chunk-table.tcl	23 Oct 2002 12:38:39 -0000	1.17
+++ openacs-4/packages/dotlrn/www/members-chunk-table.tcl	12 Nov 2002 08:44:05 -0000	1.18
@@ -63,62 +63,62 @@
 
 set table_def [list]
 
-lappend table_def {
-    first_names
-    "[_ dotlrn.First_Names]"
-    {upper(first_names) $order}
-    {<td>[acs_community_member_link -user_id $user_id -label $first_names</td>]}
-}
+lappend table_def [list \
+    first_names \
+    [_ dotlrn.First_Names] \
+    {upper(first_names) $order} \
+    {<td>[acs_community_member_link -user_id $user_id -label $first_names</td>]} \
+]
 
-lappend table_def {
-    last_name
-    "[_ dotlrn.Last_Name]"
-    {upper(last_name) $order}
-    {<td>[acs_community_member_link -user_id $user_id -label $last_name</td>]}
-}
+lappend table_def [list \
+    last_name \
+    [_ dotlrn.Last_Name] \
+    {upper(last_name) $order} \
+    {<td>[acs_community_member_link -user_id $user_id -label $last_name</td>]} \
+]
 
 if {$read_private_data_p || [string equal $my_user_id \$user_id]} {
-    lappend table_def {
-        email
-        [_ dotlrn.Email_1]
-        {upper(email) $order, upper(role)}
-        {<td><a href="mailto:$email">$email</a></td>}
-    }
+    lappend table_def [list \
+        email \
+        [_ dotlrn.Email_1] \
+        {upper(email) $order, upper(role)} \
+        {<td><a href="mailto:$email">$email</a></td>} \
+    ]
 } else {
-    lappend table_def {
-        email
-        [_ dotlrn.Email_1]
-        {upper(email) $order, upper(role)}
-        {<td>&nbsp;</td>}
-    }
+    lappend table_def [list \
+        email \
+        [_ dotlrn.Email_1] \
+        {upper(email) $order, upper(role)} \
+        {<td>&nbsp;</td>} \
+    ]
 }
 
-lappend table_def {
-    role
-    [_ dotlrn.Role]
-    {decode(role,'instructor',1,'admin',2,'teaching_assistant',3,'course_assistant',4,'course_admin',5,'student',6,'member',7) asc, last_name $order}
-    {<td><nobr>[dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]</nobr></td>}
-}
+lappend table_def [list \
+    role \
+    [_ dotlrn.Role] \
+    {decode(role,'instructor',1,'admin',2,'teaching_assistant',3,'course_assistant',4,'course_admin',5,'student',6,'member',7) asc, last_name $order} \
+    {<td><nobr>[dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]</nobr></td>} \
+]
 
 if {$site_wide_admin_p} {
-    lappend table_def {
-        manage
-        [_ dotlrn.Actions]
-        {}
-        {<td>\[<small> <a href="deregister?user_id=$user_id&referer=$referer">Drop&nbsp;Membership</a> | <a href="[dotlrn::get_url]/admin/user?user_id=$user_id">Manage</a> </small>\]</td>}
-    }
+    lappend table_def [list \
+        manage \
+        [_ dotlrn.Actions] \
+        {} \
+        {<td>\[<small> <a href=\"deregister?user_id=$user_id&referer=$referer\">[_ dotlrn.Drop_Membership]</a> | <a href=\"[dotlrn::get_url]/admin/user?user_id=$user_id\">[_ dotlrn.Manage]</a> </small>\]</td>} \
+    ]
 } elseif {$admin_p} {
-    lappend table_def {
-        manage
-        [_ dotlrn.Actions]
-        {}
-        {<td>\[<small> <a href="deregister?user_id=$user_id&referer=$referer">Drop&nbsp;Membership</a> <small>\]}
-    }
+    lappend table_def [list \
+        manage \
+        [_ dotlrn.Actions] \
+        {} \
+        {<td>\[<small> <a href="deregister?user_id=$user_id&referer=$referer">Drop&nbsp;Membership</a> <small>\]} \
+    ]
 } else {
-    lappend table_def {
-        manage
-        [_ dotlrn.Actions]
-        {}
+    lappend table_def [list \
+        manage \
+        [_ dotlrn.Actions] \
+        {} \
         {
             [eval {
                 if {$my_user_id == $user_id} {
@@ -127,8 +127,8 @@
                     return "<td>&nbsp;</td>"
                 }
             }]
-        }
-    }
+        } \
+    ]
 }
 
 set table [ad_table \