Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -N -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	10 Aug 2003 12:22:52 -0000	1.1.2.5
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	10 Aug 2003 12:44:32 -0000	1.1.2.6
@@ -35,6 +35,7 @@
     {-main_class "list"}
     {-sub_class ""}
     {-class ""}
+    {-html ""}
     {-page_size ""}
     {-page_groupsize 10}
     {-page_query ""}
@@ -164,6 +165,9 @@
 
     @param  class          Alternatively, you can specify the CSS class directly. If specified, this overrides main_class/sub_class.
 
+    @param  html           HTML attributes to be output for the table tag, e.g. { align right style "background-color: yellow;" }. 
+                           Value should be a Tcl list with { name value name value }
+
     @param  page_size      The number of rows to display on each page. If specified, the list will be paginated.
 
     @param  page_groupsize The page group size for the paginator. See template::paginator::create for more details.
@@ -230,6 +234,7 @@
         main_class {list}
         sub_class {}
         class {}
+        html {}
         actions {}
         bulk_actions {}
         bulk_action_export_vars {}
@@ -277,6 +282,7 @@
         main_class
         sub_class
         class
+        html
         page_size
         page_groupsize
         page_query
@@ -762,6 +768,9 @@
         }
     }
 
+    # Table tag HTML attributes
+    set list_properties(table_attributes) [template::list::util_html_to_attributes_string $list_properties(html)]
+
     #
     # Find the list template
     #