Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v
diff -u -r1.20 -r1.20.6.1
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	8 Feb 2005 01:22:52 -0000	1.20
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	1 Jun 2007 17:47:28 -0000	1.20.6.1
@@ -220,7 +220,6 @@
 
     @return html fragment
 
-    @see ad_choice_bar
     @see ad_context_bar_html
 } {
     set counter 0
@@ -235,34 +234,7 @@
     }
 }
 
-ad_proc -public ad_choice_bar { items links values {default ""} } {
-    Displays a list of choices (Yahoo style), with the currently selected one highlighted.
 
-    @see ad_navbar 
-} {
-
-    set count 0
-    set return_list [list]
-
-    foreach value $values {
-	if { [string compare $default $value] == 0 } {
-	        lappend return_list "<strong>[lindex $items $count]</strong>"
-	} else {
-	        lappend return_list "<a href=\"[lindex $links $count]\">[lindex $items $count]</a>"
-	}
-
-	incr count
-    }
-
-    if { [llength $return_list] > 0 } {
-        return "\[[join $return_list " | "]\]"
-    } else {
-	return ""
-    }
-    
-}
-
-
 # directories that should not receive links to move up one level
 
 proc ad_no_uplevel_patterns {} {
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 -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
 } {