Index: openacs-4/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/forums/www/message-email.tcl	7 Oct 2007 22:37:01 -0000	1.14
+++ openacs-4/packages/forums/www/message-email.tcl	13 Dec 2007 14:22:54 -0000	1.15
@@ -53,48 +53,11 @@
 lappend context [list "./message-view?message_id=$message(message_id)" "$message(subject)"]
 lappend context [_ forums.Email_to_a_friend]
 
-if {![template::multirow exists link]} {
-    template::multirow create link rel type href title lang media
-}
+set lang [ad_conn language]
+template::head::add_css -href /resources/forums/forums.css -media all -lang $lang
+template::head::add_css -alternate -href /resources/forums/flat.css -media all -lang $lang -title "flat"
+template::head::add_css -alternate -href /resources/forums/flat-collapse.css -media all -lang $lang -title "flat-collapse"
+template::head::add_css -alternate -href /resources/forums/collapse.css -media all -lang $lang -title "collapse"
+template::head::add_css -alternate -href /resources/forums/expand.css -media all -lang $lang -title "expand"
 
-template::multirow append link \
-    stylesheet \
-    text/css \
-    /resources/forums/forums.css \
-    "" \
-    [ad_conn language] \
-    all
-
-template::multirow append link \
-    "alternate stylesheet" \
-    text/css \
-    /resources/forums/flat.css \
-    "flat" \
-    [ad_conn language] \
-    all
-
-template::multirow append link \
-    "alternate stylesheet"  \
-    text/css \
-    /resources/forums/flat-collapse.css \
-    "flat-collapse" \
-    [ad_conn language] \
-    all
-
-template::multirow append link \
-    "alternate stylesheet" \
-    text/css \
-    /resources/forums/collapse.css \
-    "collapse" \
-    [ad_conn language] \
-    all 
-
-template::multirow append link \
-    "alternate stylesheet" \
-    text/css \
-    /resources/forums/expand.css \
-    "expand" \
-    [ad_conn language] \
-    all
-
 ad_return_template