Index: openacs-4/packages/imsld/lib/imsld-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/imsld-chunk.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/imsld/lib/imsld-chunk.tcl	29 May 2006 15:10:52 -0000	1.9
+++ openacs-4/packages/imsld/lib/imsld-chunk.tcl	20 Jun 2006 19:20:38 -0000	1.10
@@ -17,6 +17,12 @@
             orderby_desc {imsld_title desc}
             display_template {<a href="${imsld_url}imsld-frameset?run_id=@imsld_runs.run_id@">@imsld_runs.imsld_title@</a>}
         }
+        status {
+            label "[_ imsld.Status]"
+            orderby_asc {status asc}
+            orderby_desc {status desc}
+            display_template {<img src="@imsld_runs.image_path;noquote@" alt="@imsld_runs.image_alt@" title="@imsld_runs.image_title@" border="0"></a>}
+        }
         creation_date {
             label "[_ imsld.Creation_Date]"
             orderby_asc {creation_date asc}
@@ -34,12 +40,29 @@
 
 set cr_root_folder_id [imsld::cr::get_root_folder -community_id $community_id]
 
-template::multirow create imsld_runs run_id imsld_title creation_date
+template::multirow create imsld_runs run_id imsld_title creation_date image_alt image_title image_path
 
 db_foreach active_runs { *SQL* } {
-        if { [llength [imsld::roles::get_user_roles -user_id $user_id -run_id $run_id]] } {
-            template::multirow append imsld_runs $run_id $imsld_title $creation_date
+    if { [llength [imsld::roles::get_user_roles -user_id $user_id -run_id $run_id]] } {
+        switch $status {
+            waiting {
+                set image_alt "[_ imsld.waiting]"
+                set image_title "[_ imsld.waiting]"
+                set image_path "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]/resources/waiting.png"
+            }
+            active {
+                set image_alt "[_ imsld.active]"
+                set image_title "[_ imsld.active]"
+                set image_path "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]/resources/active.png"
+            }
+            stopped {
+                set image_alt "[_ imsld.stopped]"
+                set image_title "[_ imsld.stopped]"
+                set image_path "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]/resources/completed.png"
+            }
         }
+        template::multirow append imsld_runs $run_id $imsld_title $creation_date $image_alt $image_title $image_path
+    }
 }