Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v diff -u -r1.178 -r1.178.2.1 --- openacs-4/packages/new-portal/tcl/portal-procs.tcl 11 May 2005 13:59:44 -0000 1.178 +++ openacs-4/packages/new-portal/tcl/portal-procs.tcl 26 Sep 2005 08:57:38 -0000 1.178.2.1 @@ -446,9 +446,14 @@ set first_page_p [portal::first_page_p -portal_id $portal_id -page_id $page_id] # We allow portal page names to have embedded message keys that we localize on the fly - set page_name [lang::util::localize [portal::get_page_pretty_name -page_id $page_id]] + db_1row get_page_info {} + set page_name [lang::util::localize $pretty_name_unlocalized] set page_layout_id [portal::get_layout_id -page_id $page_id] - + if { [string equal $hidden_p t] } { + set tab_toggle_label [lang::util::localize "\#new-portal.Show_in_main_navigation\#"] + } else { + set tab_toggle_label [lang::util::localize "\#new-portal.Hide_in_main_navigation\#"] + } append template "" # @@ -464,8 +469,15 @@ - - + + + + + + + + + " append template "$page_name_chunk" @@ -819,6 +831,9 @@ ad_return_complaint 1 "[_ new-portal.lt_You_must_enter_new_na]" } set_page_pretty_name -pretty_name $pretty_name -page_id $page_id + } elseif { ![empty_string_p [ns_set get $form "op_toggle_tab_visibility"]] } { + set page_id [ns_set get $form page_id] + db_dml toggle_tab_visibility {} } elseif { ![empty_string_p [ns_set get $form "op_toggle_pinned"]] } { set element_id [ns_set get $form element_id]
\"\"