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"}