-- added icons

www/index.tcl

@@ -189,6 +189,11 @@ array set wiki_hash {
 # ---------------------------------------------------------
 
 set list_columns {
+        object_icon {
+            display_col object_icon
+	    display_template {@object_types.object_icon;noquote@}
+            label ""
+        }        
         object_type {
             display_col object_type
             label "Object Type"
@@ -350,9 +355,11 @@ set not_in_object_type "
 
 db_multirow -extend $multirow_extend object_types select_object_types "
 	select
+		ot.object_type as object_icon,
 		ot.object_type,
 		ot.pretty_name,
 		rot.object_type_id,
+		ot.icon_path,
 		im_object_permission_p(rot.object_type_id, :current_user_id, 'read') as current_user_read_p
 		$multirow_select
 	from
@@ -367,6 +374,7 @@ db_multirow -extend $multirow_extend object_types select_object_types "
 	order by
 		ot.object_type
 " {
+    set object_icon "<img src='$icon_path' alt=''>"
     set object_type_url "/intranet-rest/$object_type?format=html"
     switch $object_type {
 	im_company - im_project - bt_bug - im_company - im_cost - im_conf_item - im_project - im_user_absence - im_office - im_ticket - im_timesheet_task - im_translation_task - user {