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.450 -r1.451 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 27 Dec 2011 15:27:05 -0000 1.450 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 21 Feb 2012 13:09:14 -0000 1.451 @@ -2479,7 +2479,7 @@ my instvar page_template #set form_constraints [my get_from_template form_constraints] set form_constraints [my get_form_constraints] - #my msg "fc of [my name] = $form_constraints" + #my msg "fc of [self] [my name] = $form_constraints" if {$form_constraints ne ""} { set s [::xowiki::PageInstance get_short_spec_from_form_constraints \ -name $name -form_constraints $form_constraints] @@ -3349,8 +3349,9 @@ FormPage instproc include_header_info {{-prefix ""} {-js ""} {-css ""}} { if {$css eq ""} {set css [my get_from_template ${prefix}_css]} if {$js eq ""} {set js [my get_from_template ${prefix}_js]} - foreach line [split $js \n] {::xo::Page requireJS $line} + foreach line [split $js \n] {::xo::Page requireJS [string trim $line]} foreach line [split $css \n] { + set line [string trim $line] set order 1 if {[llength $line]>1} { set e1 [lindex $line 0] @@ -3506,7 +3507,6 @@ } - Page instproc is_new_entry {old_name} { return [expr {[my publish_status] eq "production" && $old_name eq [my revision_id]}] }