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.59 -r1.1.2.60 --- openacs-4/packages/xowf/lib/inclass-exam-answer.wf 8 Oct 2022 19:36:46 -0000 1.1.2.59 +++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf 22 Oct 2022 18:48:13 -0000 1.1.2.60 @@ -363,11 +363,17 @@ set titleString [dict get $title_info full_title] set title [list [string trim $titleString]] } + # + # Add the exam name to the title + # lappend title [$parent_obj title] if {[$parent_obj property show_ip t]} { + # + # Add the IP address to the title + # lappend title "IP: [$obj property ip]" } - $obj title [join $title " 𐄁 "] + $obj title [join $title "; "] #ns_log notice "TITLE [binary encode hex $title]" #:msg set_title-set_parameter-MenuBar-[$obj state] 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.252 -r1.7.2.253 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 19 Oct 2022 18:22:26 -0000 1.7.2.252 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 22 Oct 2022 18:48:13 -0000 1.7.2.253 @@ -3835,7 +3835,7 @@ set grading_scheme "" set achieved_points "" } - set heading "$userName 𐄁 $fullName 𐄁 $pretty_date" + set heading "$userName · $fullName · $pretty_date" append HTML [subst [ns_trim {