Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.12.2.1 -r1.12.2.2
--- openacs-4/www/blank-master.tcl	23 Jul 2004 06:54:03 -0000	1.12.2.1
+++ openacs-4/www/blank-master.tcl	17 Aug 2004 07:49:01 -0000	1.12.2.2
@@ -47,6 +47,16 @@
 
 multirow append attribute onload [join $onload " "]
 
+# Additional Body Attributes
+
+if {[exists_and_not_null body_attributes]} {
+    foreach body_attribute $body_attributes {
+	multirow append attribute [lindex $body_attribute 0] [lindex $body_attribute 1]
+    }
+} else {
+    set body_attributes ""
+}
+
 # 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"