Index: openacs-4/packages/acs-templating/tcl/head-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/head-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/head-procs.tcl	6 Oct 2007 13:22:55 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/head-procs.tcl	30 Nov 2007 18:16:43 -0000	1.3
@@ -160,6 +160,35 @@
     ]
 }
 
+ad_proc -public template::head::add_style {
+    {-style:required}
+    {-title ""}
+    {-lang ""}
+    {-media ""}
+    {-type "text/css"}
+} {
+
+    Add an embedded css style declaration
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2007-11-30
+    
+    @param style CSS content to be included in the style tag
+    @param type    the type attribute of the link tag, eg. 'text/css'
+    @param media   the media attribute of the link tag describing which display
+                   media this link is relevant to.  This may be a comma 
+                   separated list of values, eg. 'screen,print,braille'
+    @param title   the title attribute of the link tag describing the target of
+                   this link 
+    @param lang    the lang attribute of the link tag specifying the language 
+                   of its attributes if they differ from the document language
+} {
+    variable ::template::head::styles
+
+    lappend styles(anonymous) $type $media $title $lang $style
+ 
+}
+
 ad_proc -public template::head::add_javascript {
     {-defer:boolean}
     {-src ""}