Index: openacs-4/packages/xowf/lib/online-exam-answer.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/online-exam-answer.wf,v
diff -u -r1.2.2.3 -r1.2.2.4
--- openacs-4/packages/xowf/lib/online-exam-answer.wf	4 Jul 2019 18:01:25 -0000	1.2.2.3
+++ openacs-4/packages/xowf/lib/online-exam-answer.wf	15 Oct 2019 21:41:45 -0000	1.2.2.4
@@ -1,9 +1,9 @@
 # -*- Tcl -*-
-# 
+#
 # Workflow template for answering online exams. The workflow is
 # typically controlled from a parent workflow that a teacher can use
 # to create the exam, to try it out and to publish it
-# (oneline-exam.wf).
+# (online-exam.wf).
 #
 # This workflow is similar to the classical "iterate.wf" but is more
 # configurable (the answer forms are passed via template
@@ -27,12 +27,12 @@
 #
 # Properties
 #
-# pages: the form pages used as inout forms
+# pages: the form pages used as in/out forms
 # position: the current page in the exam
 # return_url: when the exam is finished, the user proceeds to this url
 # try_out_mode: a teacher can try the exam in this mode
-# current_form: used internally to keep the current form 
-# ip: ip address of the user, kept in the instance attribute as record
+# current_form: used internally to keep the current form
+# ip: IP address of the user, kept in the instance attribute for auditing
 #
 ########################################################################
 
@@ -52,23 +52,24 @@
 set page_count 1
 set page_actions {}
 foreach page $pages {
-    Action $page_count \
-        -next_state working \
-        -label "$page_count" \
-        -proc activate {obj} [list :goto_page [expr {$page_count -1}]]
-    lappend page_actions $page_count
-    incr page_count
+  Action $page_count \
+      -next_state working \
+      -label "$page_count" \
+      -proc activate {obj} [list :goto_page [expr {$page_count -1}]]
+  lappend page_actions $page_count
+  incr page_count
 }
+
 ########################################################################
 #
 # Action definitions
 #
 ########################################################################
 
 Action allocate -proc activate {obj} {
-  #my msg "allocate $obj"
+  #:msg "allocate $obj"
   # Called, when we try to create or use a workflow instance
-  # via a workflow definition ($obj is a workflow definition) 
+  # via a workflow definition ($obj is a workflow definition)
   $obj set_property -new 1 name ___[::xo::cc set untrusted_user_id]
 }
 
@@ -77,23 +78,24 @@
 
   $obj set_property -new 1 _title "@wfTitle@"
   set parent_id [$obj parent_id]
-  set package_id [$obj package_id]
+  #set package_id [$obj package_id]
 
   # make sure to create the parent (the controlling workflow)
-  ::xo::db::CrClass  get_instance_from_db -item_id $parent_id
-  set parent_state [$parent_id state]
+  set parent_obj [::xo::db::CrClass  get_instance_from_db -item_id $parent_id]
+  set parent_state [$parent_obj state]
 
   #
   # Don't allow one to enter values when the state of the master workflow
   # is not published (e.g. trial mode, or closed) or when try-out-mode
   # is not set
   #
   if {$parent_state ne "published" && [$obj property try_out_mode 0] == 0} {
-    #my msg "LOCKED"
+    #:msg "LOCKED"
     set current_state [$obj property _state]
     set lockin_state [expr {$current_state eq "initial" ? "initial" : "done"}]
-    set lockin_msg(initial) "Die Prüfung ist von der Aufsicht nicht freigegeben!"
-    set lockin_msg(done) "Die Prüfungszeit ist abgelaufen!"
+    set lockin_msg(initial) "#xowf.online-exam-not-published#"
+    set lockin_msg(done) "#xowf.online-exam-finished#"
+
     foreach a [Action info instances] {
       if {[namespace tail $a] eq "logout"} continue
       $a next_state $lockin_state
@@ -102,19 +104,19 @@
       $a set_property current_form ""
     }
   } else {
-    #my msg "not LOCKED"
-  }  
+    #:msg "not LOCKED"
+  }
 }
 
 Action instproc goto_page {position} {
-    set pages [:property pages]
-    :set_property position $position
-    :set_property current_form [lindex $pages $position]
+  set pages [:property pages]
+  :set_property position $position
+  :set_property current_form [lindex $pages $position]
 }
 Action instproc set_page {increment} {
   set pages [:property pages]
   set position [:property position 0]
-  incr position $increment 
+  incr position $increment
   if {$position < 0} {
     set position 0
   } elseif {$position >= [llength $pages]} {
@@ -124,47 +126,48 @@
   :set_property current_form [lindex $pages $position]
 }
 
-Action prev \
+Action prevQuestion \
     -next_state working \
-    -label "Vorherige Frage" \
+    -label #xowf.previous_question# \
     -proc activate {obj} {:set_page -1}
 
-Action next \
+Action nextQuestion \
     -next_state working \
-    -label "Nächste Frage" \
+    -label #xowf.next_question# \
     -proc activate {obj} {:set_page 1}
 
-Action abgabe \
+Action review \
     -next_state done \
-    -label "Abgabe"
+    -label #xowf.online-exam-review#
 
 Action save \
-    -label "Antwort zwischenspeichern"
+    -label #xowf.online-exam-save#
 
 Action logout \
-    -label "Prüfung verlassen" \
+    -label #xowf.online-exam-submit# \
     -proc activate {obj} {
       set pid [$obj package_id]
       set try_out_mode [$obj property try_out_mode 0]
       set return_url [$obj property return_url .]
-      #my msg "tryout $try_out_mode return_url $return_url"
+      #:msg "tryout $try_out_mode return_url $return_url"
       if {$try_out_mode} {
         ad_returnredirect $return_url
+        ad_script_abort
       } else {
         ::xo::cc set_parameter return_url /register/logout?return_url=$return_url
       }
     }
 
 Action start \
     -next_state working \
-    -label Beginnen \
+    -label #xowf.online-exam-start# \
     -proc activate {obj} {
       $obj set_property position 0
       $obj set_property current_form [lindex [$obj property pages] 0]
     }
 
 Action start_again \
-    -label "Erste Frage" \
+    -label #xowf.first_question# \
     -next_state working -proc activate {obj} {
       $obj set_property position 0
       $obj set_property current_form [lindex [$obj property pages] 0]
@@ -176,23 +179,26 @@
 #
 ########################################################################
 
-State parameter { {view_method edit} 
+State parameter {
+  {view_method edit}
   {extra_js {
-    /resources/xowiki/jquery/jquery.js
+    urn:ad:js:jquery
     ../file:seal.js?m=download
   }}
   {extra_css {
     ../file:seal.js?m=download
-  }}}
+  }}
+  {form_loader get_question_form_object}
+}
 
 State working
 working set page_actions $page_actions
 working proc actions {} {
   set actions ""
-  if {[more_before]} {lappend actions prev}
+  if {[more_before]} {lappend actions prevQuestion}
   set actions [concat $actions ${:page_actions}]
-  if {[more_ahead]} {lappend actions next}
-  lappend actions save abgabe
+  if {[more_ahead]} {lappend actions nextQuestion}
+  lappend actions save review
 }
 
 State initial \
@@ -206,101 +212,227 @@
     -form_loader summary_form
 
 
-:object-specific {
-  # ensure default value is updated for each instance individually
-  Property ip -default [expr {[ns_conn isconnected] ? [ad_conn peeraddr] : "nowhere"}]
+########################################################################
+#
+# Helper methods for the workflow context
+#
+########################################################################
 
-  set ctx [:wf_context]
-  set working_state_object [$ctx wf_definition_object working]
-  $working_state_object set form [:property current_form]
-  # fallback if the current_form isn't set
-  if {[$working_state_object set form] eq ""} {
-    $working_state_object set form [lindex [:property pages] 0]
-  }
+#
+# Field-renaming form loader
+#
+# The renaming is performed for simple plain HTML forms and forms with
+# @answers.
+#
+:proc map_form_constraints {form_constraints oldName newName} {
+  return [lmap f $form_constraints {
+    #:msg check?'$f'
+    if {[string match "${oldName}*" $f]} {
+      regsub $oldName $f $newName f
+      if {[string match "*answer=$oldName*" $f]} {
+        regsub answer=$oldName $f answer=$newName f
+        #:log "MAP VALUE=answer=$oldName => answer=$newName "
+      }
+    }
+    set f
+  }]
+}
 
-  ########################################################################
-  #
-  # Helper methods for the workflow context
-  #
-  ########################################################################
+#MAP OLD demc-exercise-1-1:checkbox,answer=demc-exercise-1-1
+#MAP demc-exercise-1-1 => mc-exercise-1-a1
+#MAP NEW mc-exercise-1-a1:checkbox,answer=demc-exercise-1-1
+#MAP match with *value=demc-exercise-1-1* -> 0
 
+
+:proc get_question_form_object {form_name} {
+  #:msg "renaming_form_loader for form_name <$form_name> (counter $counter)"
+  set form_id [:default_load_form_id $form_name]
+  set form_obj [::xo::db::CrClass get_instance_from_db -item_id $form_id]
+
+  set form     [$form_obj get_property -name form]
+  #set fc      [:get_form_constraints]
+  set fc       [$form_obj get_property -name form_constraints]
+
   #
-  # Overload default form loader to rename the input fields
-  # to avoid name clashes
+  # Map "answer" to a generic name in the form "@answer@" and in the
+  # form constraints
   #
-  $ctx proc default_load_form_id {form_name} {
-    #my msg "renaming_form_loader $form_name"
-    set form_id [next]
-    ::xo::db::CrClass get_instance_from_db -item_id $form_id
+  #
+  set strippedName [lindex [split [$form_obj name] :] end]
+  regsub -all {[-]} $strippedName _ formName
+  set newName ${formName}_a; #$counter
 
-    set form [$form_id get_property -name form]
-    set prefix [lindex [split [$form_id name] :] end]-a
-    set counter 0
-    set fc [:get_form_constraints]
-    lappend fc @cr_fields:hidden
-    dom parse -simple -html $form doc
-    $doc documentElement root
-    if {$root ne ""} {
-      $root setAttribute id "online-exam-answer"
-      foreach node [$root selectNodes "//textarea|//input"] {
-        set newName $prefix[incr counter]
-        $node setAttribute name $newName
-        #lappend fc $newName:richtext,editor=xinha,slim=true
+  regsub -all {@answer} $form @$newName form
+  set fc [:map_form_constraints $fc "answer" $newName]
+  set disabled_fc [lmap f $fc {
+    if {[string match "$newName*" $f]} { append f ,disabled=true }
+    set f
+    }]
+
+  lappend fc @cr_fields:hidden
+  lappend disabled_fc @cr_fields:hidden
+  #:msg fc=$fc
+
+  dom parse -simple -html $form doc
+  set prefix [lindex [split [$form_id name] :] end]-a
+  set counter 0
+  $doc documentElement root
+  if {$root ne ""} {
+    $root setAttribute id "online-exam-answer"
+    foreach node [$root selectNodes "//textarea|//input"] {
+      set oldName [$node getAttribute name]
+      set newName $prefix[incr counter]
+      #:log "rename= $oldName -> '$newName'"
+      set fc [:map_form_constraints $fc $oldName $newName]
+      set disabled_fc [lmap f $fc {
+        if {[string match "$newName*" $f]} { append f ,disabled=true }
+        set f
+      }]
+      $node setAttribute name $newName
+      if {[$node hasAttribute value]} {
+        set oldValue [$node getAttribute value]
+        if {$oldValue eq $oldName} {
+          $node setAttribute value $newName
+        }
       }
-      $form_id set_property form [$root asHTML]
+      #lappend fc $newName:richtext,editor=xinha,slim=true
     }
-    # Currently, the computation and setting of the form_constraints has
-    # no effect, when the input field is provided raw in the form
-    # (e.g. as a handcoded textarea). We set it anyhow here for future
-    # use
-    $form_id set_property -new 1 form_constraints $fc
-    :set_title -question 1
-    return $form_id
+    $form_obj set_property form [$root asHTML]
+    #:log "FORM-DOM\n[$root asHTML]"
   }
-
   #
-  # set title with question and user information
+  # The computation and setting of the form_constraints has
+  # no effect, when the input field is provided raw in the form
+  # (e.g. as a handcoded textarea), but it is useful for other cases.
   #
-  $ctx proc set_title {{-question 1}} {
-    set t [list ]
-    set state [${:object} state]
-    set position [${:object} property position]
-    if {$question && $state eq "working"} {lappend title "Frage [expr {$position + 1}] [lindex [${:object} property titles] $position]"}
-    lappend title \
-        "@wfTitle@" \
-        "IP: [${:object} property ip]" 
+  #:log "FORM\n$form"
+  #:log "updating form_constraints to -> [llength $fc]\n[join $fc \n]"
+  #:log "updating disabled_form_constraints to -> [llength $disabled_fc] \n[join $disabled_fc \n]"
+  $form_obj set_property -new 1 form_constraints $fc
+  $form_obj set_property -new 1 disabled_form_constraints $disabled_fc
 
-    ${:object} title [join $title " / "]
-  }
-
   #
-  # Form loader for summary
+  # Update IP address each time the form is loaded.
   #
-  $ctx proc summary_form {form_title} {
-    #my msg "summary_form_loader $form_title"
+  if {[${:object} state] in {"initial" "working"}} {
+    ${:object} set_property ip [expr {[ns_conn isconnected] ? [ad_conn peeraddr] : "nowhere"}]
+  }
 
-    :set_title -question 0
-    set state [${:object} property _state]
+  :set_title -question 1 -minutes [:minutes_string $form_obj]
 
-    set summary_form ""
-    set counter 0
-    foreach form_name [${:object} property pages] {
-      set form_id [:default_load_form_id $form_name]
-      set title [lindex [${:object} property titles] $counter]
-      append summary_form "<h3>Frage [incr counter]: $title </h3>" \n
-      append summary_form [$form_id property form] \n<hr>\n
+  return $form_obj
+}
+
+
+#
+# Set "title" with question and user information
+#
+:proc set_title {{-question:boolean true} {-minutes ""}} {
+  set t [list ]
+  set state [${:object} state]
+  set position [${:object} property position]
+  if {$question && $state eq "working"} {
+    set titleString "[_ xowf.question] [expr {$position + 1}]: [lindex [${:object} property titles] $position]"
+    if {$minutes ne ""} {
+      append titleString " $minutes"
     }
+    lappend title $titleString
+  }
+  lappend title \
+      "@wfTitle@" \
+      "IP: [${:object} property ip]"
 
-    # disable all input fields and remove wrapping form
-    regsub -all {<textarea } $summary_form {<textarea disabled='disabled' } summary_form 
-    regsub -all {<input } $summary_form {<input disabled='disabled' } summary_form 
-    regsub -all {</?form[^>]*>} $summary_form {} summary_form
+  ${:object} title [join $title " · "]
+}
 
-    return [::xowiki::Form new \
-          -set name en:summary \
-          -form [list <form><div>$summary_form</div></form> text/html] \
-          -text {} \
-          -anon_instances t \
-          -form_constraints [list @cr_fields:hidden]]
+#
+# Get an attribute of the origninal question
+#
+:proc question_property {form_obj:object attribute {default ""}} {
+  set question [$form_obj get_property -name question]
+  #:msg question=$question
+  if {[dict exists $question question.$attribute]} {
+    set value [dict get $question question.$attribute]
+  } else {
+    set value $default
   }
+  #:msg "question_property-$attribute='$value' {$question}"
+  return $value
 }
+
+:proc minutes_string {form_obj:object} {
+  set minutes [:question_property $form_obj minutes]
+  if {$minutes ne ""} {
+    set key [expr {$minutes eq "1" ? [_ xowiki.minute] : [_ xowiki.minutes]}]
+    set minutes "($minutes $key)"
+  }
+}
+
+#
+# Form loader for summary (shows all submission of a user)
+#
+# This form loader is also called indirectly by www-print-answers of
+# oneline-exam.wf
+#
+:proc summary_form {form_title} {
+  #:msg "summary_form_loader $form_title [${:object} instance_attributes]"
+
+  #:set_title -question 0
+  set summary_form ""
+  set fc {}
+  set counter 0
+  foreach form_name [${:object} property pages] {
+    set form_obj [:get_question_form_object $form_name]
+    #set form_id [:default_load_form_id $form_name]
+    set title [lindex [${:object} property titles] $counter]
+    set minutes [:minutes_string $form_obj]
+    append summary_form \
+        "<h3>[_ xowf.question] [incr counter]: $title $minutes</h3>" \n \
+        [$form_obj property form] \
+        \n<hr>\n
+    lappend fc {*}[$form_obj property disabled_form_constraints]
+  }
+
+  #set correct [$i answer_is_correct]
+  #append question_form "<br><hr>correct $correct<hr>"
+  #:log "render_content [$i name] ([$i info class]) [$i procsearch render_content] correct=$correct"
+
+  # Disable all raw input fields and remove wrapping form
+  regsub -all {<textarea } $summary_form {<textarea disabled='disabled' } summary_form
+  regsub -all {<input } $summary_form {<input disabled='disabled' } summary_form
+  regsub -all {</?form[^>]*>} $summary_form {} summary_form
+  #:msg "final fc $fc"
+
+  return [::xowiki::Form new \
+              -set name en:summary \
+              -form [list <form><div>$summary_form</div></form> text/html] \
+              -text {} \
+              -anon_instances t \
+              -form_constraints [lsort -unique $fc]]
+}
+
+########################################################################
+#
+# Object specific operations
+#
+########################################################################
+
+:object-specific {
+  # ensure default value is updated for each instance individually
+  Property ip -default [expr {[ns_conn isconnected] ? [ad_conn peeraddr] : "nowhere"}]
+
+  set working_state_object [[:wf_context] wf_definition_object working]
+  $working_state_object set form [:property current_form]
+  # fallback if the current_form isn't set
+  if {[$working_state_object set form] eq ""} {
+    $working_state_object set form [lindex [:property pages] 0]
+  }
+
+}
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End:
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.4 -r1.6.2.5
--- openacs-4/packages/xowf/lib/online-exam.wf	9 Aug 2019 20:19:04 -0000	1.6.2.4
+++ openacs-4/packages/xowf/lib/online-exam.wf	15 Oct 2019 21:41:45 -0000	1.6.2.5
@@ -1,57 +1,72 @@
 # -*- Tcl -*-
 ########################################################################
 # Online-Exam workflow, designed similar to mobile-clicker
+# ========================================================
 #
 # This workflow lets a teacher choose from a predefined set of exam
-# questions, which are typically open text questions.  The user
-# selects one ore several exam question via drag and drop The teacher
+# questions, which are typically open text questions.  The teacher
+# selects one or several exam question via drag and drop. The teacher
 # can test the exam by entering test answers. The results are provided
 # in form of a table.
 #
-# When the teacher has finished testing of the exam, the exam can be
+# When the teacher is satisfied for the exam, the exam can be
 # published. In this step, all answers of the testing phase are
 # deleted. In the process of publishing, the link to start the exam is
 # offered to the user.  When the exam is published, the teacher can
 # see the incoming answers in the report by refreshing the page. When
 # the exam is done, it is unpublished. The workflow offers the teacher
 # to see a summary of the results in form of a table (an to download
-# the results via csv), or he can produce a printer friendly version
-# of the answers.
+# the results via csv), or the teacher can produce a printer friendly
+# version of the answers.
 #
+# You might with to add the following entries to the folder to ease
+# creation of exercises and exams
+#
+#  OLD HTML variant
+#   {entry -name New.App.Frage -label TextQuestion -form en:Frage.form}
+#
+# NEW question types
+#
+#   {entry -name New.App.TextInteraction -label "Text Interaction" -form en:TestItemText.form}
+#   {entry -name New.App.TextEntryInteraction -label "Text Entry Interaction" -form en:TestItemTextEntry.form}
+#   {entry -name New.App.MCInteraction -label "MC Interaction" -form en:TestItemMC.form}
+#   {entry -name New.App.Exam -label Exam -form en:online-exam.wf}
+#
 # Gustaf Neumann, Feb 2012
 ########################################################################
 set :autoname 1
 set :debug 1
-set :masterWorkflow //xowf/de:workflow.wf
+#set :masterWorkflow //xowf/de:workflow.wf
+set :masterWorkflow en:Workflow.form
 
-Action select -next_state created -label {Erstelle Prüfung}
-Action publish -next_state published -label {Schalte Prüfung frei}
-Action unpublish -next_state done -label {Schließe Prüfung}
-Action republish -next_state published -label {Schalte Prüfung nochmals frei}
-Action restart -next_state initial
+Action select -next_state created -label #xowf.online-exam-select#
+Action publish -next_state published -label #xowf.online-exam-publish#
+Action unpublish -next_state done -label #xowf.online-exam-unpublish#
+Action republish -next_state published -label #xowf.online-exam-republish#
+Action restart -next_state initial -label #xowf.restart#
 
-State initial -actions {select} -form en:select_question.form -view_method edit 
+State initial -actions {select} -form en:select_question.form -view_method edit
 State created -actions {publish restart} -form_loader load_form -view_method edit \
-    -form "Prüfungsentwurf (Prüfung nicht freigeschaltet)"
+    -form "#xowf.online-exam-draft_exam#"
 State published -actions {unpublish} -form_loader load_form -view_method edit \
-    -form "Prüfung ist freigeschaltet"
+    -form "#xowf.online-exam-open#"
 State done -actions {republish restart} -form_loader load_form -view_method edit \
-    -form "Die Prüfung ist geschlossen."
+    -form "#xowf.online-exam-closed#"
 
 ########################################################################
 # Activate action select: After the teacher has selected the
 # exercises, the answer workflow is created.
 #
 select proc activate {obj} {
-  [[:wf_context] wf_container] create_answer_workflow $obj
+  [[$obj wf_context] wf_container] create_answer_workflow $obj
 }
 
 ########################################################################
 # Activate action publish: delete all responses for the workflow and
 # publish user participation link.
 #
 publish proc activate {obj} {
-  [[:wf_context] wf_container] delete_all_answer_data $obj
+  [[$obj wf_context] wf_container] delete_all_answer_data $obj
   :publish_link $obj
 }
 
@@ -76,8 +91,8 @@
 # students. The name of the workflow is derived from the wokflow
 # instance and recorded in the formfield "wfName".
 #
-my proc create_answer_workflow {obj} {
-  :log "create_answer_workflow $obj"
+:proc create_answer_workflow {obj} {
+  #:log "create_answer_workflow $obj"
 
   # first delete workflow and data, when it exists
   if {[$obj property wfName] ne ""} {
@@ -91,7 +106,7 @@
 
   set wfMaster ${:masterWorkflow}
   set wfTitle [$obj property _title]
-  set questionObjs [[:wf_context] get_questions]
+  set questionObjs [[$obj wf_context] get_questions]
   set wfQuestionNames {}
   set wfQuestionTitles {}
   set attributeNames {}
@@ -102,8 +117,8 @@
     $doc documentElement root
     if {$root ne ""} {
       foreach node [$root selectNodes "//textarea|//input"] {
-    set newName $prefix[incr counter]
-    lappend attributeNames $newName
+        set newName $prefix[incr counter]
+        lappend attributeNames $newName
       }
     }
     lappend wfQuestionNames ../[$q name]
@@ -120,27 +135,28 @@
   }]
   set attributeNames [join $attributeNames ,]
 
+  #:log "create workflow by filling out form '$wfMaster'"
   set WF [::xowiki::Weblog instantiate_forms \
-          -parent_id [$obj parent_id] -package_id [$obj package_id] \
-          -default_lang [$obj lang] \
-          -forms $wfMaster]
+              -parent_id [$obj parent_id] -package_id [$obj package_id] \
+              -default_lang [$obj lang] \
+              -forms $wfMaster]
   set f [$WF create_form_page_instance \
-         -name $wfName \
-         -nls_language [$obj nls_language] \
+             -name $wfName \
+             -nls_language [$obj nls_language] \
              -publish_status ready \
-         -parent_id [$obj item_id] \
-         -package_id [$obj package_id] \
-         -default_variables [list title $wfTitle] \
-         -instance_attributes [list workflow_definition $wfDef \
-                  form_constraints "@table:_name,_state,$attributeNames @cr_fields:hidden"]]
+             -parent_id [$obj item_id] \
+             -package_id [$obj package_id] \
+             -default_variables [list title $wfTitle] \
+             -instance_attributes [list workflow_definition $wfDef \
+                                       form_constraints "@table:_name,_state,$attributeNames @cr_fields:hidden"]]
   $f save_new
-  :log "create_answer_workflow $obj DONE [$f pretty_link]"
+  #:log "create_answer_workflow $obj DONE [$f pretty_link]"
 }
 
 ########################################################################
 # get_answer_wf: return the workflow denoted by the property wfName in obj
 #
-my proc get_answer_wf {obj} {
+:proc get_answer_wf {obj} {
   return [::xowiki::Weblog instantiate_forms \
               -parent_id [$obj item_id] -package_id [$obj package_id] \
               -default_lang [$obj lang] \
@@ -150,7 +166,7 @@
 ########################################################################
 # get_wf_instances: return the workflow instances
 #
-my proc get_wf_instances {{-initialize false} wf} {
+:proc get_wf_instances {{-initialize false} wf} {
   return [::xowiki::FormPage get_form_entries \
               -base_item_ids [$wf item_id] -form_fields "" \
               -always_queried_attributes "*" -initialize $initialize \
@@ -160,7 +176,7 @@
 ########################################################################
 # delete_all_answer_data: delete all instances of the answer workflow
 #
-my proc delete_all_answer_data {obj} {
+:proc delete_all_answer_data {obj} {
   set wf [:get_answer_wf $obj]
   if {$wf ne ""} {
     set items [:get_wf_instances -initialize false $wf]
@@ -174,7 +190,7 @@
 # target group
 #
 Action instproc publish_link {obj} {
-  set aLink "[$obj pretty_link]?m=answer"
+  set aLink [$obj pretty_link -query m=answer]
   util_user_message -html -message "[$obj name] is available as <a target='_blank' href='[ns_quotehtml $aLink]'>[ns_quotehtml $aLink]</a>"
   # TODO: make it happen
 }
@@ -188,27 +204,136 @@
   # TODO: make it happen
 }
 
+
+
+########################################################################
+#
+# Helper methods for the workflow context
+#
+########################################################################
+
+########################################################################
+# form loader: create dynamically a form containing the disabled
+# questions and the survey results (the results can be refreshed)
+#
+:proc load_form {title} {
+  set state [:property _state]
+
+  set questions [:get_questions]
+  set counter 0
+  set fullQuestionForm ""
+  foreach q $questions {
+    append fullQuestionForm \
+        "<h2>#xowf.question# [incr counter]</h2>\n" \
+        [$q property form]
+  }
+
+  # Disable fields, remove wrapping form
+  regsub -all {<input } $fullQuestionForm {<input disabled='disabled' } fullQuestionForm
+  regsub -all {<textarea } $fullQuestionForm {<textarea disabled='disabled' } fullQuestionForm
+  regsub -all {</?form[^>]*>} $fullQuestionForm {} fullQuestionForm
+
+  #:log  fullQuestionForm=$fullQuestionForm
+  set text "<h2>$title</h2>"
+
+  set wf [[:wf_container] get_answer_wf ${:object}]
+  if {$wf eq ""} {
+    :msg "cannot get current workflow for [${:object} name]"
+    set lLink "."
+    set tLink "."
+    set aLink "."
+    set pLink "."
+    set menu ""
+  } else {
+    set wf_pretty_link [$wf pretty_link]
+    set tLink "$wf_pretty_link?m=create-new&p.return_url=[::xo::cc url]&p.try_out_mode=1"
+    set lLink "$wf_pretty_link?m=list"
+    set aLink [${:object} pretty_link -query m=answer]
+    set pLink [${:object} pretty_link -query m=print-answers]
+    #util_user_message -html -message "$survey is available as <a target='_blank' href='$pLink'>$pLink</a>"
+    set menu "\[<a href='[ns_quotehtml [::xo::cc url]]'>#xowf.refresh#</a>,\
+         <a href='[ns_quotehtml $lLink]'>#xowf.online-exam-exam_instances#</a>,\
+         <a href='[ns_quotehtml $pLink]'>#xowf.print#</a>\]"
+  }
+
+  set extraAction ""
+  switch [:property _state] {
+    "created"   {
+      set extraAction "<br>#xowf.online-exam-try_out# <a class='btn btn-default' href='[ns_quotehtml $tLink]'>#xowf.testrun#</a>"
+    }
+    "published" {
+      set extraAction "<br>#xowf.online-exam-can_answer# <a href='$aLink'>$aLink</a>"
+    }
+  }
+  append text "$menu $extraAction\n"
+
+  set wfName [:property wfName]
+  set report [expr {$wfName ne ""
+                    ? "{{form-stats -parent_id [${:object} item_id] -form $wfName}}\n"
+                    : ""}]
+  append report "<br> $menu"
+
+  set style "background: #dddddd; padding: 10px; margin:10px;"
+  set f [::xowiki::Form new \
+             -set name en:question \
+             -form [subst {<form>$text<div style='$style'>$fullQuestionForm</div>$report</form> text/html}] \
+             -text {} \
+             -anon_instances t \
+             -form_constraints {@cr_fields:hidden answer:disabled,label=#xowf.answer#} \
+            ]
+}
+
+########################################################################
+# get_question: load and initialize the interaction forms
+#
+:proc get_questions {} {
+  set questions [lmap ref [:property question] {
+    if {![string match "*/*" $ref]} {
+      set ref [[${:object} parent_id] name]/$ref
+    }
+    set ref
+  }]
+  set questionNames [join $questions |]
+  set questionForms [::xowiki::Weblog instantiate_forms \
+                         -package_id [${:object} package_id] \
+                         -default_lang [${:object} lang] \
+                         -forms $questionNames]
+  if {[llength $questionForms] < 1} {
+    error "unknown form $questionNames"
+  }
+  #:msg "questionNames '$questionNames', questionForms 'questionForms'"
+  return $questionForms
+}
+
+
+
+########################################################################
+#
+# Object specific operations
+#
+########################################################################
+
 :object-specific {
   ########################################################################
   # Extern callable methods
   ########################################################################
 
   ########################################################################
-  # delete: delete the workflow instance and all its associated data
+  # web-callable method "delete"
   #
+  # Delete the workflow instance and all its associated data.
+  #
   :proc www-delete {} {
     set ctx [::xowf::Context require [self]]
     [$ctx wf_container] delete_all_answer_data [self]
     next
   }
 
-  :proc -deprecated delete {} {
-    :www-delete
-  }
-
   ########################################################################
-  # print-answers: print the answers in a somewhat printer friendly way
+  # web-callable method "print-answers"
   #
+  # Print the answers in a somewhat printer friendly way.
+  #
   :proc www-print-answers {} {
     set HTML ""
     set ctx [::xowf::Context require [self]]
@@ -220,41 +345,70 @@
         set pretty_date [clock format [clock scan $time] -format "%Y-%m-%d %T"]
         set uid [$i property _creation_user]
         set text "<h2>[acs_user::get_element -user_id $uid -element username] / [::xo::get_user_name $uid] / $pretty_date</h2>"
+        #
+        # The call to "render_content" calls actually the
+        # "summary_form" of the oneline-exam-answer workflow.
+        #
+        $i set __feedback_mode 2
         set question_form [$i render_content]
+
         set answer $question_form
         set title [$i title]
         array set ia [$i set instance_attributes]
         regsub -all {<div class=\"question-text\"} $answer {<div class='question-text'} answer
-        regsub -all {<textarea|<input } $answer {<p style='white-space:pre-wrap;'} answer
-        regsub -all {</textarea>|</input>} $answer {</p>} answer
+        #regsub -all {<textarea|<input } $answer {<p style='white-space:pre-wrap;'} answer
+        #regsub -all {</textarea>|</input>} $answer {</p>} answer
+        regsub -all {<textarea } $answer {<p style='white-space:pre-wrap;'} answer
+        regsub -all {</textarea>} $answer {</p>} answer
         regsub -all {<hr>} $answer {} answer
         regsub -all {IP\: (.*)} $title "$ia(ip)" title
-        append HTML "<div class=\"single_exam\"><h1>$title</h1>$text$answer</div>"
+        append HTML "\n<div class='single_exam'><h1>$title</h1>$text$answer</div>\n"
       }
     }
     if {$HTML ne ""} {
-      ns_return 200 text/html "<html>
-                                  <head>
-                                      <meta http-equiv='content-type' content='text/html; charset=utf-8' />
-                                  </head>
-                                  <body>
-                                      $HTML
-                                  </body>
-                              </html>"
+      ns_return 200 text/html [subst {<!DOCTYPE HTML>
+        <html><head><meta http-equiv='content-type' content='text/html; charset=utf-8' />
+         <link rel="stylesheet" href="/resources/openacs-bootstrap3-theme/bootstrap/3.4.1/css/bootstrap.min.css" type="text/css" media="all">
+        <link rel="stylesheet" href="/resources/openacs-bootstrap3-theme/css/main.css" type="text/css" media="all">
+        <link rel="stylesheet" href="/resources/openacs-bootstrap3-theme/css/color/grey.css" type="text/css" media="all">
+        <style>
+        div.single_exam {
+          border-style: solid;
+          border-width: 1px;
+          border-color: #aaaaaa;
+          padding: 0px 5px 5px 20px;
+        }
+        div.single_exam div.correct input\[type="text"\]:disabled {
+          background: #ddFFdd;
+          color: black;
+        }
+        div.single_exam div.incorrect input\[type="text"\]:disabled {
+          background: #FFdddd;
+          color: black;
+        }
+        div.question_text {
+          background-color: #eeeeee;
+        }
+        div.form-label {
+          display: none;
+        }
+        </style>
+        </head>
+        <body>$HTML
+      }]
     } else {
       util_user_message -html -message "No answer data available"
       ad_returnredirect [::xo::cc url]
     }
+    ad_script_abort
   }
 
-  :proc -deprecated print-answers {} {
-    :www-print-answers
-  }
-
   ########################################################################
-  # answer: answer the exam; this is a convenience routine to shorten
+  # web-callable method "answer"
+  #
+  # answer the exam; this is a convenience routine to shorten
   # the published URL; make sure that no-one tries to start the answer
-  # workflow in a state different to "published"
+  # workflow in a state different to "published".
   #
   :proc www-answer {} {
     if {[:property _state] ne "published"} {
@@ -265,105 +419,6 @@
       $wf www-create-or-use -parent_id [:item_id]
     }
   }
-
-  :proc -deprecated answer {args} {
-      ad_log warning "????? who is calling me?"
-      :www-answer {*}$args
-  }
-
-  ########################################################################
-  #
-  # Helper methods for the workflow context
-  #
-  ########################################################################
-
-  set ctx [:wf_context]
-
-  ########################################################################
-  # form loader: create dynamically a form containing the disabled
-  # questions and the survey results (the results can be refreshed)
-  #
-  $ctx proc load_form {title} {
-    set state [:property _state]
-
-    set questions [:get_questions]
-    set counter 0
-    set fullQuestionForm ""
-    foreach q $questions {
-      append fullQuestionForm \
-      "<h2>Frage [incr counter]</h2>\n" \
-      [$q property form]
-    }
-
-    # disable fields, remove wrapping form
-    regsub -all {<input } $fullQuestionForm {<input disabled='disabled' } fullQuestionForm
-    regsub -all {<textarea } $fullQuestionForm {<textarea disabled='disabled' } fullQuestionForm
-    regsub -all {</?form[^>]*>} $fullQuestionForm {} fullQuestionForm
-
-    set text "<h2>$title</h2>"
-    set obj ${:object}
-
-    set wf [[:wf_container] get_answer_wf $obj]
-    if {$wf eq ""} {
-      :msg "cannot get current workflow for [$obj name]"
-      set lLink "."
-      set tLink "."
-      set aLink "."
-      set pLink "."
-      set menu ""
-    } else {
-      set wf_pretty_link [$wf pretty_link]
-      set tLink "$wf_pretty_link?m=create-new&p.return_url=[::xo::cc url]&p.try_out_mode=1"
-      set lLink "$wf_pretty_link?m=list"
-      set aLink "[$obj pretty_link]?m=answer"
-      set pLink "[$obj pretty_link]?m=print-answers"
-      #util_user_message -html -message "$survey is available as <a target='_blank' href='$pLink'>$pLink</a>"
-      set menu "\[<a href='[ns_quotehtml [::xo::cc url]]'>refresh</a>,\
-         <a href='[ns_quotehtml $lLink]'>listing</a>,\
-         <a href='[ns_quotehtml $pLink]'>print</a>\]"
-    }
-
-    set extraAction ""
-    switch [:property _state] {
-      "created"   {set extraAction "<br>Do you want to <a href='[ns_quotehtml $tLink]'>try out</a> the exam?"}
-      "published" {set extraAction "<br>Students can now answer via $aLink"}
-    }
-    append text "$menu $extraAction\n"
-
-    set style "background: #cccccc; padding: 10px; margin:10px;"
-    set report ""
-    set wfName [:property wfName]
-    if {$wfName ne ""} {set report "{{form-stats -parent_id [$obj item_id] -form $wfName}}\n"}
-    append report "<br> $menu"
-
-    set f [::xowiki::Form new \
-               -set name en:question \
-               -form [subst {<form>$text<div style='$style'>$fullQuestionForm</div>$report</form> text/html}] \
-               -text {} \
-               -anon_instances t \
-               -form_constraints {@cr_fields:hidden} \
-          ]
-  }
-
-  ########################################################################
-  # get_question: load and initialize the interaction forms
-  #
-  $ctx proc get_questions {} {
-    set questions [lmap ref [:property question] {
-        if {![string match "*/*" $ref]} {
-            set ref [[${:object} parent_id] name]/$ref
-        }
-        set ref
-    }]
-    set questionNames [join $questions |]
-    set questionForms [::xowiki::Weblog instantiate_forms \
-          -package_id [${:object} package_id] \
-          -default_lang [${:object} lang] \
-          -forms $questionNames]
-    if {[llength $questionForms] < 1} {error "unknown form $questionNames"}
-    #my msg "questionNames '$questionNames', questionForms 'questionForms'"
-    return $questionForms
-  }
 }
 
 #