Index: openacs-4/packages/acs-subsite/tcl/callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/callback-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/callback-procs.tcl	4 Jun 2006 00:45:42 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/callback-procs.tcl	13 Jul 2006 02:29:05 -0000	1.4
@@ -33,3 +33,16 @@
     used to verify if there is another registration process.
     The implementation must return the url of the registration page.
 } - 
+
+ad_proc -callback subsite::get_extra_headers {
+} {
+    returns any further header stuff that needs to be added
+} -
+
+ad_proc -callback subsite::header_onload {
+} {
+    returns any javascript function that needs to be loaded
+    the callback implementation should simply do:
+    return {your_function(params);}
+} -
+
Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/www/blank-master.tcl	4 Jun 2006 00:45:56 -0000	1.18
+++ openacs-4/www/blank-master.tcl	13 Jul 2006 02:28:22 -0000	1.19
@@ -30,7 +30,7 @@
 # Attributes
 
 multirow create attribute key value
-set onload {}
+set onload $on_load
 
 # Handle richtext widgets, which needs special javascript and css 
 # in the page header
Index: openacs-4/www/site-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/site-master.adp,v
diff -u -r1.24 -r1.25
--- openacs-4/www/site-master.adp	4 Jun 2006 00:45:56 -0000	1.24
+++ openacs-4/www/site-master.adp	13 Jul 2006 02:28:22 -0000	1.25
@@ -11,9 +11,14 @@
   <property name="header_stuff">
     <link rel="stylesheet" type="text/css" href="@css_url@" media="all">
     @header_stuff;noquote@
+    @extra_headers;noquote@
   </property>
+  <property name="on_load">
+    @on_load;noquote@@callback_on_load;noquote@
+  </property>
 
 
+
 <!-- Header -->
 
 <div id="site-header">
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]
+