Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -r1.83 -r1.84 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 18 Jul 2007 11:36:28 -0000 1.83 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 18 Jul 2007 12:29:03 -0000 1.84 @@ -602,7 +602,9 @@ {-validation_errors ""} } { my instvar page_template doc root package_id - + + ::xowiki::Form requireFormCSS + set form [lindex [my get_from_template form] 0] set anon_instances [my get_from_template anon_instances] @@ -1009,4 +1011,20 @@ } + if {[apm_version_names_compare [ad_acs_version] 5.3.0] == 1} { + ns_log notice "Zen-state: 5.3.2 or newer" + Form set extraCSS "" + } else { + ns_log notice "Zen-state: pre 5.3.1, use backward compatible form css file" + Form set extraCSS "zen-forms-backward-compatibility.css" + } + Form proc requireFormCSS {} { + #my msg requireFormCSS + set css [my set extraCSS] + if {$css ne ""} { + #my msg "requireCSS $css" + ::xowiki::Page requireCSS $css + } + } + } \ No newline at end of file