Index: openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl,v diff -u -r1.3.10.2 -r1.3.10.3 --- openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl 8 Sep 2015 08:18:10 -0000 1.3.10.2 +++ openacs-4/packages/acs-subsite/tcl/subsite-navigation-procs.tcl 15 Sep 2015 06:24:22 -0000 1.3.10.3 @@ -59,7 +59,7 @@ if { ![template::multirow exists $navigation_multirow] } { template::multirow create $navigation_multirow group label href target \ - title lang accesskey class id tabindex name parent display_template + title lang accesskey class id tabindex name parent display_template display_template_sm } foreach { section_name section_spec } $pageflow { @@ -71,7 +71,8 @@ folder {} selected_patterns {} accesskey {} - display_template {} + display_template {} + display_template_sm {} } array set section_a $section_spec @@ -94,6 +95,7 @@ selected_patterns {} accesskey {} display_template {} + display_template_sm {} } array set subsection_a $subsection_spec set subsection_a(name) $subsection_name @@ -176,9 +178,9 @@ } template::multirow append $multirow \ - $group $info(label) [file join $base_url $info(url)] \ + $group $info(label) [file join $base_url $info(url)] \ "" $info(title) "" $info(accesskey) "" $navigation_id [template::multirow size $multirow] \ - $info(name) $parent $info(display_template) + $info(name) $parent $info(display_template) $info(display_template_sm) return $selected_p } @@ -239,15 +241,15 @@ autogenerating tabs for applications } { if { ![string is list $initial_pageflow]} { - ns_log Warning "subsite_navigation: ignoring invalid initial_pageflow: $initial_pageflow" - set initial_pageflow "" + ns_log Warning "subsite_navigation: ignoring invalid initial_pageflow: $initial_pageflow" + set initial_pageflow "" } if { ![string is list $no_tab_application_list]} { - ns_log Warning "subsite_navigation: ignoring invalid no_tab_application_list: $no_tab_application_list" - set no_tab_application_list "" + ns_log Warning "subsite_navigation: ignoring invalid no_tab_application_list: $no_tab_application_list" + set no_tab_application_list "" } if {$subsite_id eq ""} { - set subsite_id [ad_conn subsite_id] + set subsite_id [ad_conn subsite_id] } set pageflow $initial_pageflow