Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -N -r1.37.2.2 -r1.37.2.3
--- openacs-4/packages/search/tcl/search-procs.tcl	17 Feb 2007 22:03:17 -0000	1.37.2.2
+++ openacs-4/packages/search/tcl/search-procs.tcl	1 Jun 2007 17:47:28 -0000	1.37.2.3
@@ -257,33 +257,6 @@
     }
 }
 
-ad_proc -private search::choice_bar { 
-    items links values {default ""} 
-} {
-    @author Neophytos Demetriou
-} {
-
-    set count 0
-    set return_list [list]
-
-    foreach value $values {
-        if {[string compare $default $value] == 0} {
-            lappend return_list "<font color=\"\#a90a08\"><strong>[lindex $items $count]</strong></font>"
-        } else {
-            lappend return_list "<a href=\"[lindex $links $count]\"><font color=\"\#000000\">[lindex $items $count]</font></a>"
-        }
-
-        incr count
-    }
-
-    if {[llength $return_list] > 0} {
-        return "[join $return_list " "]"
-    } else {
-        return ""
-    }
-
-}
-
 ad_proc -callback search::datasource {
     -object_id:required
 } {