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.23 -r1.2.2.24
--- openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml	16 Apr 2020 16:43:54 -0000	1.2.2.23
+++ openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml	19 Apr 2020 15:30:45 -0000	1.2.2.24
@@ -52,6 +52,7 @@
   <msg key="online-exam-publish">Schalte Pr�fung frei</msg>
   <msg key="online-exam-unpublish">Schlie�e Pr�fung</msg>
   <msg key="online-exam-republish">Schalte Pr�fung nochmals frei</msg>
+  <msg key="online-exam-review-protocol">Pr�fungseinsicht</msg>
   <msg key="refresh">Aktualisieren</msg>
   <msg key="print">Drucken</msg>
 
@@ -73,6 +74,11 @@
   <msg key="online-exam-name">Bezeichung der Pr�fung</msg>
   <msg key="online-exam-default_name">Pr�fung aus ...</msg>
 
+  <msg key="open_submission_review">Einsicht �ffnen</msg>
+  <msg key="open_submission_review_title">�ffne Einsicht f�r Studierende</msg>
+  <msg key="close_submission_review">Schlie�e Einsicht</msg>
+  <msg key="close_submission_review_title">Schlie�e Einsicht f�r Studierende</msg>
+
   <msg key="participant">Teilnehmer</msg>
   <msg key="participants_answered_question">Teilnehmer haben diese Frage beantwortet</msg>
   <msg key="please_answer">Bitte beantworten Sie</msg>
@@ -120,14 +126,16 @@
   <msg key="menu-New-Item-MCInteraction">MC-Frage</msg>
   <msg key="menu-New-Item-SCInteraction">SC-Frage</msg>
   <msg key="menu-New-Item-UploadInteraction">Dateiabgabefrage</msg>
-  <msg key="menu-New-Item-ReorderInteraction">Anordnungsfrage</msg>  
+  <msg key="menu-New-Item-ReorderInteraction">Anordnungsfrage</msg>
 
-
   <msg key="inclass-exam-draft_exam">Entwurf des Inclass-Exams (nicht freigegeben)</msg>
   <msg key="inclass-exam-open">Inclass-Exam ge�ffnet (Zur Bearbeitung freigegeben)</msg>
   <msg key="inclass-exam-closed">Inclass-Exam geschlossen</msg>
+  <msg key="inclass-exam-review">Inclass-Exam geschlossen (Einsicht ge�ffnet)</msg>
+  <msg key="Exam-review-not-open">Die Einsicht f�r diese Pr�fung ist nicht ge�ffnet.</msg>
+
   <msg key="nr_changes">Anzahl der �nderungen</msg>
-  <msg key="Duration">Dauer</msg>
+  <msg key="Duration">Bearbeitungsdauer</msg>
   <msg key="not_submitted">nicht abgegeben</msg>
   <msg key="submitted">abgegeben</msg>
   <msg key="Status">Status</msg>
@@ -142,4 +150,5 @@
   <msg key="Synchronized_help_text">Wird die angezeigte Bearbeitungszeit strikt vom Lehrenden vorgegeben, oder hat jeder Student die Anzeige seiner aktuellen Bearbeitsdauer, auch wenn er etwas sp�ter beginnt</msg>
   <msg key="Exam_published">Ver�ffentlichung der Pr�fung</msg>
   <msg key="since_published">seit der Ver�ffentlichung</msg>
+  <msg key="Achieved_points">Erreichte Punkte</msg>
 </message_catalog>
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.20 -r1.2.2.21
--- openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml	2 Apr 2020 16:20:04 -0000	1.2.2.20
+++ openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml	19 Apr 2020 15:30:45 -0000	1.2.2.21
@@ -62,59 +62,6 @@
 
   <msg key="online-exam-select">Create Exam</msg>
   <msg key="online-exam-review">Review Exam</msg>
-  <msg key="online-exam-submit">Final submission</msg>
-  <msg key="online-exam-save">Save Answer</msg>
-  <msg key="online-exam-start">Start Exam</msg>
-  <msg key="online-exam-end">Leave Exam</msg>
-  <msg key="online-exam-publish">Publish Exam</msg>
-  <msg key="online-exam-unpublish">Close Exam</msg>
-  <msg key="online-exam-republish">Open Exam again</msg>
-  <msg key="online-exam-title-republish">Publish exam again, existing answers are NOT deleted.</msg>
-  <msg key="online-exam-title-publish">Publish exam (already existing answers will be deleted)</msg>
-  <msg key="online-exam-title-restart">Go back to start where questions can be selected (existing anwers will be deleted).</msg>
-  <msg key="online-exam-title-select">Create a fresh Exam (will delete all answers to this exam)</msg>
-
-  <msg key="online-exam-exam_instances">Listing of Filled-out Exams</msg>
-  <msg key="online-exam-try_out">Do you want to try out the exam?</msg>
-  <msg key="online-exam-can_answer">Students can now answer via</msg>
-
-  <msg key="online-exam-not-published">The Exam has not been published</msg>
-  <msg key="online-exam-finished">The Exam is finished</msg>
-  <msg key="online-exam-protocol">Exam Protocol</msg>
-  <msg key="online-exam-results-table">Results</msg>
-  <msg key="online-exam-submitted_exams_heading">Submitted exams</msg>
-  <msg key="online-exam-submitted_exams_msg">Persons have submitted exam</msg>
-  <msg key="online-exam-name">Name of Exam</msg>
-  <msg key="online-exam-default_name">Exam ...</msg>
-
-
-  <msg key="inclass-quiz-not-published">The quiz has not been published</msg>
-  <msg key="inclass-quiz-open">The quiz is open</msg>
-  <msg key="inclass-quiz-closed">The quiz is closed</msg>
-  <msg key="inclass-quiz-draft">Draft (quiz not published)</msg>
-  <msg key="inclass-quiz-create">Create quiz</msg>
-  <msg key="inclass-quiz-publish">Publish quiz</msg>
-  <msg key="inclass-quiz-publish_question">Get answers for this question</msg>
-  <msg key="inclass-quiz-unpublish">Close quiz</msg>
-  <msg key="inclass-quiz-republish">Publish quiz again</msg>
-  <msg key="inclass-quiz-save">Save Answer"</msg>
-  <msg key="inclass-quiz-submit">Submit</msg>
-  <msg key="inclass-quiz-waiting_for_next">Waiting for next question ...</msg>
-  <msg key="inclass-quiz-not_available">The quiz is currently not available for answering</msg>
-  <msg key="inclass-quiz-already_answered">You have already answered question %number%</msg>
-  <msg key="inclass-quiz-quiz_instances">Listing of Submitted Quizzes</msg>
-  <msg key="inclass-quiz-name">Name of Quiz</msg>
-  <msg key="inclass-quiz-default_name">Quiz ...</msg>
-
-  <msg key="select_question_help_text">Drag and Drop Questions ...</msg>
-
-  <msg key="randomized_items">Randomized Item Order</msg>
-  <msg key="randomized_items_help_text">Present question of exam to every student in different order</msg>
-
-  <msg key="inclass-exam-submit">Submit and Finish Exam</msg>
-  <msg key="inclass-exam-already_answered">You have finished this exam.</msg>
-
-  <msg key="short_text_question">Short Text Question</msg>
   <msg key="sc_question">Single Choice Question</msg>
   <msg key="mc_question">Multiple Choice Question</msg>
   <msg key="text_question">Text Question</msg>
@@ -134,7 +81,7 @@
   <msg key="menu-New-Item-MCInteraction">MC Interaction</msg>
   <msg key="menu-New-Item-SCInteraction">SC Interaction</msg>
   <msg key="menu-New-Item-UploadInteraction">Upload Interaction</msg>
-  <msg key="menu-New-Item-ReorderInteraction">Ordering Interaction</msg>  
+  <msg key="menu-New-Item-ReorderInteraction">Ordering Interaction</msg>
 
   <msg key="menu-New-App-OnlineExam">Online Exam</msg>
   <msg key="menu-New-App-InclassQuiz">Inclass Quiz</msg>
@@ -143,6 +90,8 @@
   <msg key="inclass-exam-draft_exam">Draft Inclass Exam (not published)</msg>
   <msg key="inclass-exam-open">Inclass Exam open (published)</msg>
   <msg key="inclass-exam-closed">Inclass Exam closed</msg>
+  <msg key="inclass-exam-review">Inclass Exam closed (review open)</msg>
+  <msg key="Exam-review-not-open">Exam review for this exam is not open</msg>
 
   <msg key="Created_Questions">Created Questions</msg>
   <msg key="Created_Assessments">Created Assessments</msg>
@@ -162,4 +111,5 @@
   <msg key="Synchronized_help_text">Is the exam duration strictly controlled by the lecturer, or does every student get his working time displayed, independent from his starting time.</msg>
   <msg key="Exam_published">Exam Published</msg>
   <msg key="since_published">since published</msg>
+  <msg key="Achieved_points">Achieved Points</msg>
 </message_catalog>
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.12 -r1.1.2.13
--- openacs-4/packages/xowf/lib/inclass-exam-answer.wf	10 Apr 2020 14:14:09 -0000	1.1.2.12
+++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf	19 Apr 2020 15:30:45 -0000	1.1.2.13
@@ -190,7 +190,6 @@
   set parent_id [$obj parent_id]
   #:msg "working_form_loader [$obj instance_attributes]"
   set parent_obj [::xo::db::CrClass get_instance_from_db -item_id $parent_id]
-  set  parent_state [$parent_obj state]
 
   #
   # In case shuffling is required, fetch via the shuffled position.
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.19 -r1.1.2.20
--- openacs-4/packages/xowf/lib/inclass-exam.wf	18 Apr 2020 17:32:26 -0000	1.1.2.19
+++ openacs-4/packages/xowf/lib/inclass-exam.wf	19 Apr 2020 15:30:45 -0000	1.1.2.20
@@ -37,14 +37,15 @@
 #
 #  - "answer" (for students),
 #  - "proctor" (for students),
+#  - "view-my-exam" (for students),
 #  - "edit" (for students),
 #  - "poll" (for teachers),
 #  - "print-answers" (for teachers),
 #  - "print-answer-table" (for teachers),
 #  - "delete" (for teachers),
 #  - "qrcode" (for teachers)
 #
-# Gustaf Neumann, Feb 2012
+# Gustaf Neumann, Feb 2012-2020
 ########################################################################
 set :autoname 1   ;# to avoid editable name field
 set :policy ::xowf::test_item::test-item-policy-publish
@@ -60,6 +61,10 @@
     -title #xowf.online-exam-title-republish#
 Action restart -next_state initial -label #xowf.restart# \
     -title #xowf.online-exam-title-restart#
+Action open_submission_review -next_state submission_review -label #xowf.open_submission_review# \
+    -title #xowf.open_submission_review_title#
+Action close_submission_review -next_state done -label #xowf.close_submission_review# \
+    -title #xowf.close_submission_review_title#
 
 State parameter {
   {extra_css {/resources/xowf/test-item.css}}
@@ -69,8 +74,10 @@
     -form "#xowf.inclass-exam-draft_exam#"
 State published -actions {unpublish} -form_loader load_form -view_method edit \
     -form "#xowf.inclass-exam-open#"
-State done -actions {republish restart} -form_loader load_form -view_method edit \
+State done -actions {republish open_submission_review restart} -form_loader load_form -view_method edit \
     -form "#xowf.inclass-exam-closed#"
+State submission_review -actions {close_submission_review} -form_loader load_form -view_method edit \
+    -form "#xowf.inclass-exam-review#"
 
 ########################################################################
 # Activate action select: After the teacher has selected the
@@ -106,6 +113,12 @@
   :unpublish_link $obj
 }
 
+open_submission_review proc activate {obj} {
+  set aLink [$obj pretty_link -query m=view-my-exam]
+  util_user_message -html \
+      -message "[$obj name] exam review is available as <a target='_blank' href='[ns_quotehtml $aLink]'>[ns_quotehtml $aLink]</a>"
+}
+
 ########################################################################
 # publish_link: make the user participation link available for the
 # target group
@@ -116,7 +129,6 @@
       -message "[$obj name] is available as <a target='_blank' href='[ns_quotehtml $aLink]'>[ns_quotehtml $aLink]</a>"
   # TODO: make it happen in the LMS
 }
-
 ########################################################################
 # unpublish_link: remove the user participation link for the target
 # group
@@ -208,6 +220,7 @@
   switch $state {
     "created" -
     "done" -
+    "submission_review" -
     "published" {
       #
       # In inclass cases, never show all questions on screen, since
@@ -239,7 +252,7 @@
 
   set answerStatus ""
   set marked ""
-  if {$state in {published done}} {
+  if {$state in {published done submission_review}} {
     if {$state eq "done"} {
       [$ctx object] setCSSDefaults
       set marked [xowf::test_item::answer_manager marked_results -obj $obj -wf $wf $combined_form_info]
@@ -366,9 +379,13 @@
   # Provide feedback to the student about the results.
   #
   :proc www-view-my-exam {} {
-    ::xo::cc set_query_parameter creation_user [ad_conn user_id]
-    ::xo::cc set_query_parameter as_student 1
-    :www-print-answers
+    if {${:state} eq "submission_review"} {
+      ::xo::cc set_query_parameter creation_user [ad_conn user_id]
+      ::xo::cc set_query_parameter as_student 1
+      :www-print-answers
+    } else {
+      :www-view "#xowf.Exam-review-not-open#"
+    }
   }
 
   ########################################################################
@@ -378,15 +395,18 @@
   #
   :proc www-print-answers {} {
     set HTML ""
+    set heading ""
+    set as_student [${:package_id} query_parameter as_student:boolean 0]
+
     set ctx [::xowf::Context require [self]]
     set wf [xowf::test_item::answer_manager get_answer_wf [self]]
     if {$wf ne ""} {
       set package_id [$wf package_id]
       set filter_id     [$package_id query_parameter id:integer ""]
       set creation_user [$package_id query_parameter creation_user:integer ""]
       set revision_id   [$package_id query_parameter rid:integer ""]
-      set as_student    [$package_id query_parameter as_student:boolean 0]
 
+
       set items [xowf::test_item::answer_manager get_wf_instances \
                      {*}[expr {$creation_user ne "" ? "-creation_user $creation_user" : ""}] \
                      {*}[expr {$filter_id ne "" ? "-item_id $filter_id" : ""}] \
@@ -417,10 +437,10 @@
         set fullName [$i set online-exam-fullName]
         set state [$i state]
 
-        if {$state ne "done"} {
-          ns_log notice "online-exam: submission of $userName is not finished (state $state)"
-          #continue
-        }
+        #if {$state ne "done"} {
+        #  ns_log notice "online-exam: submission of $userName is not finished (state $state)"
+        #  #continue
+        #}
 
         set revisions [$i get_revision_sets]
         if {[llength $revisions] <=1 } {
@@ -469,7 +489,7 @@
 
           set proctoring_dir [acs_root_dir]/proctoring/${:item_id}/$user_id/
           set files [glob -nocomplain -path $proctoring_dir *.*]
-          ns_log notice "proctoring_dir $proctoring_dir files $files"
+          #ns_log notice "proctoring_dir $proctoring_dir files $files"
 
           if {$revision_id ne ""} {
             set filtered_revisions [xowf::test_item::answer_manager revisions_up_to $revisions $revision_id]
@@ -481,9 +501,6 @@
           set end_date [ns_set get [lindex $filtered_revisions end] creation_date]
           set start_clock [clock scan [::xo::db::tcl_date $start_date tz_var]]
           set end_clock [clock scan [::xo::db::tcl_date $end_date tz_var]]
-          foreach r $revisions {
-            ns_log notice "$r: [ns_set get $r revision_id] creation date [ns_set get $r creation_date]"
-          }
 
           set image ""
           ns_log notice "start date $start_date end_date $end_date / $start_clock $end_clock"
@@ -518,7 +535,6 @@
             append markup </div>\n
           }
 
-
           set question_form [subst {
             <div class="container">
               <div class="row">
@@ -538,10 +554,11 @@
                                -view $view \
                                -achieved_points $achieved_points \
                                $i]
+        set heading "$userName · $fullName · $pretty_date"
         append HTML [subst {
           <div class='single_exam'>
           <div class='runtime-data'>
-          <h2>$userName · $fullName · $pretty_date</h2>
+          [expr {$as_student ? "" : "<h2>$heading</h2>"}]
           $runtime_panel
           </div>
           $signatureString
@@ -553,8 +570,16 @@
 
     if {$HTML eq ""} {
       set HTML "#xowiki.no_data#"
+    }
+    if {$as_student} {
+      if {$heading eq ""} {
+        set userName [acs_user::get_element -user_id [ad_conn user_id] -element username]
+        set fullName [::xo::get_user_name  [ad_conn user_id]]
+        set heading "$userName - $fullName"
+      }
+      set HTML "<h1>#xowf.online-exam-review-protocol# - $heading</h1>\n$HTML"
     } else {
-      set HTML "<h1>#xowf.online-exam-protocol#</h1>$HTML"
+      set HTML "<h1>#xowf.online-exam-protocol#</h1>\n$HTML"
     }
     set return_url [$package_id query_parameter local_return_url:localurl [:pretty_link]]
     append HTML "<hr><p><a  class='btn btn-default' href='$return_url'>#xowiki.back#</a></p>\n"
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.48 -r1.7.2.49
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	18 Apr 2020 16:58:34 -0000	1.7.2.48
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	19 Apr 2020 15:30:45 -0000	1.7.2.49
@@ -1486,6 +1486,7 @@
         set IPinfo ""
         set statusInfo ""
         set extraDurationInfo ""
+        set publishedInfo ""
       } else {
         set IPinfo [subst {IP: <span class="data">[:get_IPs $revision_sets]</span>}]
         set statusInfo "#xowf.Status#: <span class='data'>$submission_info</span><br>"
@@ -1495,7 +1496,7 @@
         set achievedPoints [format  %.2f [dict get $achieved_points achievedPoints]]
         set percentage [format %.2f [expr {$achievedPoints*100.0/$possiblePoints}]]
         set achievedPointsInfo [subst {
-          Punkte: <span class='data'>$achievedPoints von möglichen $possiblePoints Punkten, $percentage%</span>
+          #xowf.Achieved_points#: <span class='data'>$achievedPoints von möglichen $possiblePoints Punkten, $percentage%</span>
         }]
       } else {
         set achievedPointsInfo ""