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.5.2.8 -r1.5.2.9 --- openacs-4/packages/theme-selva/tcl/selva-procs.tcl 18 May 2006 19:24:29 -0000 1.5.2.8 +++ openacs-4/packages/theme-selva/tcl/selva-procs.tcl 23 May 2006 23:05:45 -0000 1.5.2.9 @@ -77,6 +77,14 @@ set tabs_list [list] + foreach {url name} [parameter::get_from_package_key -package_key "theme-selva" -parameter "AdditionalNavbarTabs" -default ""] { + lappend tabs_list [list "$url" "$name"] + } + + if { $sw_admin_p } { + lappend tabs_list [list "$dotlrn_admin_url" "#dotlrn.Administration#"] + } + if { [exists_and_not_null community_id] } { set type [dotlrn_community::get_community_type_from_community_id $community_id] if { $type eq "dotlrn_community" || $type eq "dotlrn_pers_community" } { @@ -89,14 +97,6 @@ lappend tabs_list [list "$current_url" $community_message_key] } - foreach {url name} [parameter::get_from_package_key -package_key "theme-selva" -parameter "AdditionalNavbarTabs" -default ""] { - lappend tabs_list [list "$url" "$name"] - } - - if { $sw_admin_p } { - lappend tabs_list [list "$dotlrn_admin_url" "#dotlrn.Administration#"] - } - ns_log Debug "TABS" $tabs_list foreach tab_entry $tabs_list { set url [lindex $tab_entry 0]