Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/www/blank-master.tcl	26 Feb 2004 15:29:25 -0000	1.10
+++ openacs-4/www/blank-master.tcl	4 Mar 2004 17:50:34 -0000	1.11
@@ -25,31 +25,19 @@
 
 # Attributes
 
-template::multirow create attribute key value
+multirow create attribute key value
 
-# Pull out the package_id of the subsite closest to our current node
-set pkg_id [site_node_closest_ancestor_package "acs-subsite"]
+set onload {}
 
-template::multirow append \
-    attribute bgcolor [ad_parameter -package_id $pkg_id bgcolor   dummy "white"]
-template::multirow append \
-    attribute text    [ad_parameter -package_id $pkg_id textcolor dummy "black"]
-
-if { [info exists prefer_text_only_p]
-     && $prefer_text_only_p == "f"
-     && [ad_graphics_site_available_p] } {
-  template::multirow append attribute background \
-    [ad_parameter -package_id $pkg_id background dummy "/graphics/bg.gif"]
-}
-
 if { ![template::util::is_nil focus] } {
     # Handle elements wohse name contains a dot
     if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } {
-        template::multirow append \
-                attribute onload "javascript:acs_Focus('${form_name}', '${element_name}')"
+        lappend onload "acs_Focus('${form_name}', '${element_name}');"
     }
 }
 
+multirow append attribute onload [join $onload " "]
+
 # Header links (stylesheets, javascript)
 multirow create header_links rel type href media
 multirow append header_links "stylesheet" "text/css" "/resources/acs-templating/lists.css" "all"
@@ -64,15 +52,8 @@
     set developer_support_p 0
 }
 
-if { [llength [namespace eval :: info procs ds_link]] == 1 } {
-     set ds_link [ds_link]
-} else {
-    set ds_link {}
-}
-
 set translator_mode_p [lang::util::translator_mode_p]
 
-
 set openacs_version [ad_acs_version]
 
 # Toggle translator mode link