Index: openacs-4/packages/dotlrn/www/dotlrn-default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/dotlrn-default-master.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/dotlrn-default-master.tcl	24 May 2002 01:58:45 -0000	1.9
+++ openacs-4/packages/dotlrn/www/dotlrn-default-master.tcl	3 Jun 2002 07:39:00 -0000	1.10
@@ -200,9 +200,12 @@
 set title "SloanSpace"
 
 
-# the ColorHack!
+# the ColorHack and fonthack!
 set color_hack "#cc0000"
 set color_hack_name "red"
+set header_font ""
+set header_font_size "medium"
+set header_font_color "black"
 
 if {[empty_string_p [dotlrn_community::get_parent_community_id -package_id [ad_conn package_id]]]} {
     set parent_comm_p 0
@@ -230,6 +233,23 @@
         }
     }
 
+    # font hack
+    set header_font [dotlrn_community::get_attribute \
+        -community_id $community_id \
+        -attribute_name header_font
+    ]
+    append header_font ", "
+
+    set header_font_size [dotlrn_community::get_attribute \
+        -community_id $community_id \
+        -attribute_name header_font_size
+    ]
+
+    set header_font_color [dotlrn_community::get_attribute \
+        -community_id $community_id \
+        -attribute_name header_font_color
+    ]
+
     # The header text is the name of the community
     set text [dotlrn_community::get_community_header_name $community_id] 
 
@@ -268,6 +288,14 @@
     width: 100px;
 }
 
+.header-text {
+    font-family: $header_font;
+    font-size: $header_font_size;
+    color: $header_font_color;
+    background: white;
+    width: 100px;
+}
+
 table.element {
 }