Index: openacs-4/packages/xotcl-core/xotcl-core.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v diff -u -r1.92.2.12 -r1.92.2.13 --- openacs-4/packages/xotcl-core/xotcl-core.info 21 May 2016 11:07:28 -0000 1.92.2.12 +++ openacs-4/packages/xotcl-core/xotcl-core.info 23 May 2016 16:39:57 -0000 1.92.2.13 @@ -10,7 +10,7 @@ t xotcl - + Gustaf Neumann XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes) 2016-02-13 @@ -48,7 +48,7 @@ BSD-Style 2 - + Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v diff -u -r1.57.2.4 -r1.57.2.5 --- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 15 Mar 2016 10:27:22 -0000 1.57.2.4 +++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 23 May 2016 16:39:57 -0000 1.57.2.5 @@ -189,6 +189,12 @@ foreach o [my children] { $o render } } + ::xo::tdom::Object instproc CSRFToken {} { + if {[info exists ::__csrf_token]} { + ::html::input -type hidden -name __csrf_token -value [set ::__csrf_token] {} + } + } + }