Index: openacs-4/www/site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/www/site-master.tcl	2 Feb 2005 18:26:10 -0000	1.20
+++ openacs-4/www/site-master.tcl	13 Jul 2006 02:28:22 -0000	1.21
@@ -3,6 +3,7 @@
 #   focus
 #   header_stuff
 #   section
+#   on_load (expects funtion_name(params);)
 
 if { ![info exists section] } {
     set section {}
@@ -96,3 +97,8 @@
 #----------------------------------------------------------------------
 
 util_get_user_messages -multirow "user_messages"
+
+set extra_headers ""
+set extra_headers [join [callback subsite::get_extra_headers] " \n "]
+set callback_on_load [callback subsite::header_onload]
+