Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	25 Sep 2007 15:22:39 -0000	1.28
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	12 Feb 2008 16:03:34 -0000	1.29
@@ -901,3 +901,19 @@
 template_tag contract { chunk params } {}
 
 template_tag comment { chunk params } {}
+
+template_tag box { chunk params } {
+    set class [ns_set iget $params class]
+    set title [ns_set iget $params title]
+
+    template::adp_append_code "append __adp_output \"                           
+<div class=\\\"portlet-wrapper\\\">                                             
+<div class=\\\"portlet-header\\\">                                              
+<div class=\\\"portlet-title-no-controls\\\">                                   
+<h1>$title</h1>                                                                 
+</div>                                                                          
+</div>                                                                          
+<div class=\\\"portlet\\\">\""
+    template::adp_compile_chunk $chunk
+    template::adp_append_code "append __adp_output {</div></div>}"
+}