Index: openacs-4/packages/calendar/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/admin/index.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/calendar/www/admin/index.tcl	9 May 2018 15:33:29 -0000	1.11
+++ openacs-4/packages/calendar/www/admin/index.tcl	3 Sep 2024 15:37:36 -0000	1.12
@@ -33,7 +33,7 @@
         edit {
             label ""
             display_template {
-                <img src="/shared/images/Edit16.gif" height="16" width="16" alt="Edit" style="border:0">
+                <adp:icon name="edit">
             }
             link_url_eval {[export_vars -base calendar-edit { calendar_id }]}
             sub_class narrow
@@ -44,7 +44,7 @@
         }
         type {
             label {Type}
-            display_eval {[ad_decode $private_p "t" "Personal" "Shared"]}
+            display_eval {[expr {$private_p ? "Personal" : "Shared"}]}
         }
         num_items {
             label "Items"
@@ -61,7 +61,7 @@
             label ""
             display_template {
                 <if @calendars.num_items@ eq 0>
-                  <img src="/shared/images/Delete16.gif" height="16" width="16" alt="Delete" style="border:0">
+                  <adp:icon name="trash" text="Delete">
                 </if>
             }
             link_url_eval {[export_vars -base calendar-delete { calendar_id }]}