Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.375 -r1.376 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 22 Nov 2009 22:54:21 -0000 1.375 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 23 Nov 2009 09:55:36 -0000 1.376 @@ -2039,6 +2039,13 @@ return $count } + PageTemplate instproc css_class_name {{-margin_form:boolean true}} { + set name [expr {$margin_form ? "margin-form " : ""}] + set CSSname [my name] + regexp {^..:(.*)$} $CSSname _ CSSname + return [append name "Form-$CSSname"] + } + # # PageInstance methods # @@ -2224,7 +2231,7 @@ set html ""; set mime "" foreach {html mime} [my get_from_template text] break set html [my adp_subst $html] - return [my substitute_markup $html] + return "