Index: openacs-4/packages/forums/www/message-post.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v diff -u -r1.34 -r1.34.6.1 --- openacs-4/packages/forums/www/message-post.tcl 15 Mar 2005 20:06:45 -0000 1.34 +++ openacs-4/packages/forums/www/message-post.tcl 23 May 2007 19:13:33 -0000 1.34.6.1 @@ -66,6 +66,50 @@ # Template variables # +if {![template::multirow exists link]} { + template::multirow create link rel type href title lang media +} + +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 + if {![string equal [template::form::get_button message] "preview"]} { set context [list [list "./forum-view?forum_id=$forum_id" [ad_quotehtml $forum(name)]]]