Index: openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl	7 Aug 2017 23:48:09 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl	3 Sep 2024 15:37:37 -0000	1.11
@@ -25,50 +25,50 @@
 #Pages in this directory are only runnable by dotlrn-wide admins.
 dotlrn::require_admin 
 
-set context_bar "[_ dotlrn.Administrators]"
+set context_bar [_ dotlrn.Administrators]
 set referer [ns_conn url]
 
-set dotlrn_admins_group [db_string group_id_from_name "
-            select group_id from groups where group_name='dotlrn-admin'" -default ""]
+set dotlrn_admins_group [db_string group_id_from_name {
+    select group_id from groups where group_name='dotlrn-admin'} -default ""]
 
 set admin_id [ad_conn user_id]
 
 set elements [list user \
-		  [list label "[_ dotlrn.User]"\
-                   link_url_col user_url ] \
-                   remove \
+		  [list label "[_ dotlrn.User]" \
+                       link_url_col user_url ] \
+                  remove \
                   [list label "[_ dotlrn.Remove]" \
-                   link_url_col remove_url \
-		       display_template { <if @dotlrn_admins.no_auto_remove@ true><center><img src="/resources/acs-subsite/Delete16.gif" width="16" height="16" border="0"></center></if> } \
+                       link_url_col remove_url \
+		       display_template { <if @dotlrn_admins.no_auto_remove@ true><center><adp:icon name="trash"></center></if> } \
                        sub_class narrow ] \
-		  ]
+                 ]
 
 set multirow_name dotlrn_admins
 set actions ""
 
 template::list::create \
-     -name dotlrn_admins \
-     -multirow $multirow_name \
-     -actions $actions \
-    -no_data "[_ dotlrn.No_dotlrn-admins]" \
-     -elements $elements
+    -name dotlrn_admins \
+    -multirow $multirow_name \
+    -actions $actions \
+    -no_data [_ dotlrn.No_dotlrn-admins] \
+    -elements $elements
 
 db_multirow \
     -extend {
-       user
-       remove_url
-       user_url
-       no_auto_remove 
+        user
+        remove_url
+        user_url
+        no_auto_remove 
     } dotlrn_admins dotlrn_admins_select {} {
         append user $last_name ", " $first_names " (" $email " )"
 	set remove_url [export_vars -base "admin-remove" {user_id}]
         set user_url [export_vars -base "user" {user_id}] 
-       if { $user_id == $admin_id } {
+        if { $user_id == $admin_id } {
             set no_auto_remove 0
 	} else {
             set no_auto_remove 1
 	}  
- }
+    }
 
 # Local variables:
 #    mode: tcl