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