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 -N -r1.542.2.39 -r1.542.2.40 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 18 Sep 2019 19:27:03 -0000 1.542.2.39 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 19 Sep 2019 12:56:50 -0000 1.542.2.40 @@ -4668,7 +4668,9 @@ FormPage instproc render_content {} { set package_id ${:package_id} :include_header_info -prefix form_view - if {[::xo::cc mobile]} {:include_header_info -prefix mobile} + if {[::xo::cc mobile]} { + :include_header_info -prefix mobile + } set text [:get_from_template text] if {$text ne ""} { @@ -4726,16 +4728,18 @@ # context. if {$varname eq "current_user"} { set value [::xo::cc set untrusted_user_id] + } elseif {$varname eq "current_url"} { set value [::xo::cc url] + } else { # # First check to find an existing form-field with that name # set f [::xowiki::formfield::FormField get_from_name [self] $varname] if {$f ne ""} { # - # the form field exists already, we just fill in the actual + # The form field exists already, we just fill in the actual # value (needed e.g. in weblogs, when the same form field is # used for multiple page instances in a single request) #