Skip to content

I
intranet-forum
Commit 952a2abe authored by podesign's avatar podesign
Browse files
Options

old tcl compat

parent 23ee8762
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 5 deletions
tcl/intranet-forum-procs.tcl
View file @ 952a2abe
......@@ -1239,11 +1239,11 @@ ad_proc -public im_forum_navbar { base_url export_var_list {forum_folder 0} } {
}
}
set active_topics [im_navbar_tab "index" [_ intranet-forum.Inbox] [expr {$section eq "Inbox"}]]
set deleted_topics [im_navbar_tab "index?forum_folder=1" [_ intranet-forum.Deleted] [expr {$section eq "Deleted"}]]
set unresolved_topics [im_navbar_tab "index?forum_folder=2" [_ intranet-forum.Unresolved] [expr {$section eq "Unresolved"}]]
set discussion_view [im_navbar_tab "index?forum_view_name=forum_list_discussion" [_ intranet-forum.Discussion_View] [expr {$section eq "Discussion View"}]]
set history [im_navbar_tab "index?forum_view_name=forum_list_history" [_ intranet-forum.History] [expr {$section eq "History"}]]
set active_topics [im_navbar_tab "index" [_ intranet-forum.Inbox] [string equal $section "Inbox"]]
set deleted_topics [im_navbar_tab "index?forum_folder=1" [_ intranet-forum.Deleted] [string equal $section "Deleted"]]
set unresolved_topics [im_navbar_tab "index?forum_folder=2" [_ intranet-forum.Unresolved] [string equal $section "Unresolved"]]
set discussion_view [im_navbar_tab "index?forum_view_name=forum_list_discussion" [_ intranet-forum.Discussion_View] [string equal $section "Discussion View"]]
set history [im_navbar_tab "index?forum_view_name=forum_list_history" [_ intranet-forum.History] [string equal $section "History"]]
# $discussion_view $history
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment