Index: openacs-4/packages/theme-selva/tcl/selva-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/tcl/selva-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/theme-selva/tcl/selva-procs.tcl 29 Sep 2005 10:51:13 -0000 1.7
+++ openacs-4/packages/theme-selva/tcl/selva-procs.tcl 23 Oct 2005 14:13:38 -0000 1.8
@@ -117,26 +117,6 @@
append subnavbar "\n"
}
- set current_url [ad_conn url]
-
- set subnavbar "
"
-
- foreach {url name } [parameter::get_from_package_key -package_key "theme-selva" -parameter "AdditionalSubnavbarTabs" -default ""] {
-
- # if url is /dotlrn or /dotlrn/index we highlight the "Home" tab, otherwise we highlight the tab with the current_url, if there is one, i.e. we are not in a community
- if { $url == $current_url || ($url == "/dotlrn/" && $current_url == "/dotlrn/index")} {
- append subnavbar "\n- "
- #if {$picture != "null" } { append subnavbar "" }
- append subnavbar "[_ $name]
"
- } else {
- append subnavbar "\n- [_ $name]
"
- }
-
- }
-
- append subnavbar "\n
"
- }
-
ad_proc -public portal_subnavbar {
{-user_id:required}
{-link_control_panel:required}