Index: openacs-4/packages/xowf/xowf.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/xowf.info,v diff -u -r1.12.2.100 -r1.12.2.101 --- openacs-4/packages/xowf/xowf.info 28 Feb 2023 15:18:13 -0000 1.12.2.100 +++ openacs-4/packages/xowf/xowf.info 11 Mar 2023 10:46:32 -0000 1.12.2.101 @@ -10,15 +10,15 @@ t xowf - + Gustaf Neumann XoWiki Content Flow - an XoWiki based workflow system implementing state-based behavior of wiki pages and forms 2021-09-15 WU Vienna BSD-Style 2 - + Index: openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml,v diff -u -r1.2.2.85 -r1.2.2.86 --- openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml 28 Feb 2023 15:18:13 -0000 1.2.2.85 +++ openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml 11 Mar 2023 10:46:32 -0000 1.2.2.86 @@ -5,6 +5,8 @@ Erreichbare Punkte Ausschneiden und Einf�gen erlaubt Darf der Studierende in mehrzeiligen Textfeldern Ausschneiden und Einf�gen verwenden? + Ist die automatische �bersetzung der Seite erlaubt? + Darf der Studierende die Seite automatisiert durch Browser-Einstellungen �bersetzen? Alternative Antwort Antwortspalten @@ -255,6 +257,8 @@ Zeitablauf Gesamtbewertung 2-Spaltig + Automatische Seiten�bersetzung ist erlaubt + Automatische Seiten�bersetzung ist nicht erlaubt Dateiabgabefrage Wert muss kleiner oder gleich sein als Wert muss gr��er oder gleich sein als Index: openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml,v diff -u -r1.2.2.91 -r1.2.2.92 --- openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml 28 Feb 2023 15:18:13 -0000 1.2.2.91 +++ openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml 11 Mar 2023 10:46:32 -0000 1.2.2.92 @@ -7,6 +7,8 @@ Is the student allowed to use cut and paste in multiline text fields? Allow spellcheck Is the built-in spellcheck activated in multiline text fields? + Allow translation of the page + Is the built-in translation of web pages by the browser allowed? Alternative Answer Answer Columns @@ -259,6 +261,8 @@ Solution Spellcheck is activated in multi-line text fields Spellcheck is deactivated in multi-line text fields + Page translation is allowed + Page translation is not allowed State Sub-Question Sub-Questions Index: openacs-4/packages/xowf/lib/inclass-exam-answer.wf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-exam-answer.wf,v diff -u -r1.1.2.65 -r1.1.2.66 --- openacs-4/packages/xowf/lib/inclass-exam-answer.wf 25 Jan 2023 16:51:55 -0000 1.1.2.65 +++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf 11 Mar 2023 10:46:33 -0000 1.1.2.66 @@ -293,8 +293,8 @@ # # Disallow spellcheck/paste if required # - foreach p {paste spellcheck} { - if {![$parent_obj property allow_$p true]} { + foreach {p default} {paste true spellcheck true translation false} { + if {![$parent_obj property allow_$p $default]} { :QM disallow_$p $form_obj } } Index: openacs-4/packages/xowf/lib/inclass-exam.wf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-exam.wf,v diff -u -r1.1.2.106 -r1.1.2.107 --- openacs-4/packages/xowf/lib/inclass-exam.wf 28 Feb 2023 15:18:13 -0000 1.1.2.106 +++ openacs-4/packages/xowf/lib/inclass-exam.wf 11 Mar 2023 10:46:33 -0000 1.1.2.107 @@ -72,6 +72,7 @@ {max_items:number,min=1,label=#xowf.Max_items#,help_text=#xowf.Max_items_help_text#} {allow_paste:boolean,horizontal=true,default=t,label=#xowf.Allow_paste#,help_text=#xowf.Allow_paste_help_text#} {allow_spellcheck:boolean,horizontal=true,default=t,label=#xowf.Allow_spellcheck#,help_text=#xowf.Allow_spellcheck_help_text#} + {allow_translation:boolean,horizontal=true,default=f,label=#xowf.Allow_translation#,help_text=#xowf.Allow_translation_help_text#} {show_minutes:boolean,horizontal=true,default=t,label=#xowf.Show_minutes#,help_text=#xowf.Show_minutes_help_text#} {show_points:boolean,horizontal=true,default=t,label=#xowf.Show_points#,help_text=#xowf.Show_points_help_text#} {show_ip:boolean,horizontal=true,default=t,label=#xowf.Show_IP#,help_text=#xowf.Show_IP_help_text#} Index: openacs-4/packages/xowf/lib/online-exam.wf =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/online-exam.wf,v diff -u -r1.6.2.29 -r1.6.2.30 --- openacs-4/packages/xowf/lib/online-exam.wf 31 Jan 2022 15:25:59 -0000 1.6.2.29 +++ openacs-4/packages/xowf/lib/online-exam.wf 11 Mar 2023 10:46:33 -0000 1.6.2.30 @@ -56,6 +56,7 @@ {max_items:number,min=1,label=#xowf.Max_items#,help_text=#xowf.Max_items_help_text#} {allow_paste:boolean,horizontal=true,default=t,label=#xowf.Allow_paste#,help_text=#xowf.Allow_paste_help_text#} {allow_spellcheck:boolean,horizontal=true,default=t,label=#xowf.Allow_spellcheck#,help_text=#xowf.Allow_spellcheck_help_text#} + {allow_translation:boolean,horizontal=true,default=f,label=#xowf.Allow_translation#,help_text=#xowf.Allow_translation_help_text#} {show_minutes:boolean,horizontal=true,default=t,label=#xowf.Show_minutes#,help_text=#xowf.Show_minutes_help_text#} {show_points:boolean,horizontal=true,default=t,label=#xowf.Show_points#,help_text=#xowf.Show_points_help_text#} {show_ip:boolean,horizontal=true,default=t,label=#xowf.Show_IP#,help_text=#xowf.Show_IP_help_text#} Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -r1.7.2.273 -r1.7.2.274 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 6 Mar 2023 12:46:28 -0000 1.7.2.273 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 11 Mar 2023 10:46:33 -0000 1.7.2.274 @@ -6316,6 +6316,18 @@ #---------------------------------------------------------------------- # Class: Question_manager + # Method: disallow_translation + #---------------------------------------------------------------------- + :public method disallow_translation {form_obj:object} { + # + # This function disallows translation of the full page by + # seeting the HTML5 "translate" attribute of the body to "no". + # + ::xo::Page set_property body translate no + } + + #---------------------------------------------------------------------- + # Class: Question_manager # Method: question_randomization_ok #---------------------------------------------------------------------- :method question_randomization_ok {form_obj} { @@ -7024,7 +7036,8 @@ # already working on the exam. # set modifiable { - allow_paste allow_spellcheck show_minutes show_points show_ip + allow_paste allow_spellcheck allow_translation + show_minutes show_points show_ip countdown_audio_alarm grading } set wf [:AM get_answer_wf $obj] @@ -7063,7 +7076,8 @@ -id config-question \ -form_constraints $fcrepo \ -obj $obj { - shuffle_items max_items allow_paste allow_spellcheck + shuffle_items max_items + allow_paste allow_spellcheck allow_translation show_minutes show_points show_ip }] \ [:exam_configuration_block \ @@ -7334,6 +7348,7 @@ set max_items [$obj property max_items ""] set time_window [$obj property time_window ""] set allow_spellcheck [$obj property allow_spellcheck true] + set allow_translation [$obj property allow_translation false] append text [subst {

[expr {$synchronized ? "" : "Non-"}]Synchronized Exam @@ -7391,6 +7406,7 @@ [expr {$randomizationOk ? "#xowf.randomization_for_exam_ok#" : "#xowf.randomization_for_exam_not_ok#"}]
[expr {$allow_paste ? "#xowf.Cut_and_paste_allowed#" : "#xowf.Cut_and_paste_not_allowed#"}]
[expr {$allow_spellcheck ? "#xowf.Spellcheck_allowed#" : "#xowf.Spellcheck_not_allowed#"}]
+ [expr {$allow_translation ? "#xowf.Translation_allowed#" : "#xowf.Translation_not_allowed#"}]
$time_window_msg [expr {[llength $published_periods] > 0 ? "
#xowf.inclass-exam-open#: [join $published_periods {, }]
" : ""}] [expr {[llength $review_periods] > 0 ? "#xowf.inclass-exam-review#: [join $review_periods {, }]
" : ""}]