Index: openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl,v diff -u -r1.14.2.5 -r1.14.2.6 --- openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl 24 Apr 2019 11:57:39 -0000 1.14.2.5 +++ openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl 27 Jun 2019 08:55:54 -0000 1.14.2.6 @@ -32,6 +32,8 @@ set instance $_test_instance_name set testfolder .testfolder + set locale [lang::system::locale] + set lang [string range $locale 0 1] try { ########################################################### @@ -60,11 +62,12 @@ -path $testfolder \ -parent_id $folder_id \ -form_name page.form \ - -update { + -update [subst { _title "Sample page" _name hello _text "Hello world!" - } + _nls_language $locale + }] ########################################################### @@ -75,10 +78,11 @@ -user_id $user_id \ -instance $instance \ -path $testfolder/hello \ - -update { + -update [subst { _title "Sample page 2" _text "Brave new world!" - } + _nls_language $locale + }] } on error {errorMsg} { aa_true "Error msg: $errorMsg" 0