Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v diff -u -r1.18 -r1.19 --- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 13 Feb 2009 20:28:08 -0000 1.18 +++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 27 Oct 2014 16:38:51 -0000 1.19 @@ -33,7 +33,7 @@ } } -ad_proc apm_header { { -form "" } args } { +ad_proc -deprecated apm_header { { -form "" } args } { Generates HTML for the header of a page (including context bar). Must only be used for APM admin pages (under /acs-admin/apm). @@ -59,10 +59,10 @@ # this is rather a hack, but just needed for streaming output # a more general solution can be provided at some later time... regsub "#acs-kernel.Main_Site#" $context_bar \ - [_ acs-kernel.Main_Site] context_bar + [_ acs-kernel.Main_Site] context_bar } - set header [ad_header $title ""] - append body "$header\n" + + append body [ad_header $title ""] "\n" if {$form ne ""} { append body "