Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	14 Sep 2002 21:43:36 -0000	1.5
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	14 Sep 2002 22:05:24 -0000	1.6
@@ -85,4 +85,13 @@
     }
     array set site_node [site_node::get_from_object_id -object_id [ad_conn package_id]]
     return $site_node(instance_name)
-}
\ No newline at end of file
+}
+
+ad_proc -public lars_blog_header_background_color {
+    -package_id
+} {
+    if { ![exists_and_not_null package_id] } {
+        set package_id [ad_conn package_id]
+    }
+    return [ad_parameter -package_id $package_id "HeaderBackgroundColor" "lars-blogger" "#dcdcdc"] 
+}