Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.23 -r1.23.2.1
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	22 Jun 2015 21:03:13 -0000	1.23
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	25 Aug 2015 11:09:37 -0000	1.23.2.1
@@ -4,108 +4,7 @@
     @cvs-id $Id$
 }
     
-# Dimensional selection bars.
-#
-ad_proc ad_dimensional {
-    option_list 
-    {url {}} 
-    {options_set ""} 
-    {optionstype url}
-} {
-    Generate an option bar as in the ticket system; 
-    <ul>
-      <li> option_list -- the structure with the option data provided 
-      <li> url -- url target for select (if blank we set it to ad_conn url).
-      <li> options_set -- if not provided defaults to [ns_getform], for hilite of selected options.
-      <li> optionstype -- only url is used now, was thinking about extending 
-            so we get radio buttons and a form since with a slow select updating one 
-            thing at a time would be stupid.
-    </ul>
-    
-    <p>
-    option_list structure is 
-    <pre>
-    { 
-        {variable "Title" defaultvalue
-            {
-                {value "Text" {key clause}}
-                ...
-            }
-        }
-        ...
-    }
 
-    an example:
-
-    set dimensional_list {
-        {visited "Last Visit" 1w {
-            {never "Never" {where "last_visit is null"}}
-            {1m "Last Month" {where "last_visit + 30 > sysdate"}}
-            {1w "Last Week" {where "last_visit + 7 > sysdate"}}
-            {1d "Today" {where "last_visit > trunc(sysdate)"}}
-        }}
-        ..(more of the same)..
-    }
-    </pre>
-} {
-    set html {}
-
-    if {$option_list eq ""} {
-        return
-    }
-
-    if {$options_set eq ""} {
-        set options_set [ns_getform]
-    }
-    
-    if {$url eq ""} {
-        set url [ad_conn url]
-    }
-
-    append html "<table border=\"0\" cellspacing=\"0\" cellpadding=\"3\" width=\"100%\">\n<tr>\n"
-
-    foreach option $option_list { 
-        append html " <th style=\"background-color: #ECECEC\">[lindex $option 1]</th>\n"
-    }
-    append html "</tr>\n"
-
-    append html "<tr>\n"
-
-    foreach option $option_list { 
-        append html " <td align='center'>\["
-
-        # find out what the current option value is.
-        # check if a default is set otherwise the first value is used
-        set option_key [lindex $option 0]
-        set option_val {}
-        if { $options_set ne ""} {
-            set option_val [ns_set get $options_set $option_key]
-        }
-        if { $option_val eq "" } {
-            set option_val [lindex $option 2]
-        }
-        
-        set first_p 1
-        foreach option_value [lindex $option 3] { 
-            set thisoption [lindex $option_value 0]
-            if { $first_p } {
-                set first_p 0
-            } else {
-                append html " | "
-            } 
-            
-            if {$option_val eq $thisoption } {
-                append html "<strong>[ns_quotehtml [lindex $option_value 1]]</strong>"
-            } else {
-		set href $url?[export_ns_set_vars url $option_key $options_set]&[ns_urlencode $option_key]=[ns_urlencode $thisoption]
-                append html [subst {<a href="[ns_quotehtml $href]">[ns_quotehtml [lindex $option_value 1]]</a>}]
-            }
-        }
-        append html "\]</td>\n"
-    }
-    append html "</tr>\n</table>\n"
-}
-
 ad_proc ad_dimensional_sql {
     option_list 
     {what "where"} 
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-templating/resources/dimensional/dimensional-table-option.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-templating/resources/dimensional/dimensional-table.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-templating/tcl/dimensional-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/openacs-default-theme/www/resources/styles/default-master.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openacs-default-theme/www/resources/styles/default-master.css,v
diff -u -r1.14 -r1.14.4.1
--- openacs-4/packages/openacs-default-theme/www/resources/styles/default-master.css	10 May 2012 02:31:58 -0000	1.14
+++ openacs-4/packages/openacs-default-theme/www/resources/styles/default-master.css	25 Aug 2015 11:09:37 -0000	1.14.4.1
@@ -714,6 +714,14 @@
   clear:left;
 }
 
+.dimensional-table tr th {
+    background-color: #ECECEC;
+}
+.dimensional-table tr td {
+    text-align: center;
+}
+
+
 /**********************************************************************
 /* DEPRECATED CLASSES
 /**********************************************************************/