Index: openacs-4/packages/theme-zen/lib/lrn-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/lib/lrn-master.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/theme-zen/lib/lrn-master.tcl 22 Jan 2007 23:57:35 -0000 1.1.2.1 +++ openacs-4/packages/theme-zen/lib/lrn-master.tcl 30 Jan 2007 19:47:31 -0000 1.1.2.2 @@ -4,11 +4,6 @@ set community_id [dotlrn_community::get_community_id] set dotlrn_url [dotlrn::get_url] -if { [info exists context ] } { -ns_log Notice "Huh? context: $context" -} - - #---------------------------------------------------------------------- # Display user messages #---------------------------------------------------------------------- @@ -73,6 +68,11 @@ if {[exists_and_not_null portal_id]} { set have_portal_id_p 1 + if { [set page_num [ns_queryget page_num]] ne "" } { + append header_stuff [portal::get_layout_header_stuff \ + -portal_id $portal_id \ + -page_num $page_num] + } } else { set have_portal_id_p 0 } @@ -266,9 +266,6 @@ - - - @@ -287,7 +284,7 @@ if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } { # Add safety code to test that the element exists ' - set header_stuff "$header_stuff + append header_stuff "$header_stuff