Index: openacs-4/packages/assessment/lib/session.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/lib/session.adp	12 Jun 2006 12:17:10 -0000	1.1
+++ openacs-4/packages/assessment/lib/session.adp	12 Jun 2006 19:25:39 -0000	1.2
@@ -42,3 +42,9 @@
 
 <hr>
 <if @assessment_data.survey_p@ ne t and @assessment_data.show_feedback@ ne none ><b>#assessment.Total_score#:</b> @session_score@ / @assessment_score@ = @percent_score@%</if>
+
+
+<if @comments_installed_p@>
+<include src="/packages/assessment/lib/comments-chunk" object_id="@session_id@" />
+</if>
+</master>
Index: openacs-4/packages/assessment/www/session.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.adp,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/assessment/www/session.adp	12 Jun 2006 03:02:38 -0000	1.29
+++ openacs-4/packages/assessment/www/session.adp	12 Jun 2006 19:25:40 -0000	1.30
@@ -3,8 +3,3 @@
 <property name="context_bar">@context_bar;noquote@</property>
 
 <include src="/packages/assessment/lib/session">
-
-<if @comments_installed_p@>
-<include src="/packages/assessment/lib/comments-chunk" object_id="@session_id@" />
-</if>
-</master>
Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/assessment/www/session.tcl	12 Jun 2006 03:02:38 -0000	1.36
+++ openacs-4/packages/assessment/www/session.tcl	12 Jun 2006 19:25:40 -0000	1.37
@@ -1,74 +1,19 @@
-# ad_page_contract {
+ ad_page_contract {
 
-#     Show the result of a session.
+     Show the result of a session.
 
-#     @author timo@timohentschel.de
-#     @date   2004-12-24
-#     @cvs-id $Id: 
-# } {
-#     session_id:integer
-# } -properties {
-#     context_bar:onevalue
-#     page_title:onevalue
-# }
+     @author timo@timohentschel.de
+     @date   2004-12-24
+     @cvs-id $Id: 
+ } {
+ } -properties {
+     context_bar:onevalue
+     page_title:onevalue
+ }
 
-# db_1row find_assessment {}
 
-# # Get the assessment data
-# as::assessment::data -assessment_id $assessment_id
-# permission::require_permission -object_id $assessment_id -privilege read
+ set page_title "[_ assessment.View_Results]"
+ set context_bar [ad_context_bar [list [export_vars -base sessions {assessment_id}] "[_ assessment.Show_Sessions]"] $page_title]
 
-# if {![info exists assessment_data(assessment_id)]} {
-#     ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
-#     ad_script_abort
-# }
 
-# set user_id [ad_conn user_id]
-# if {$subject_id != $user_id} {
-#     permission::require_permission -object_id $assessment_id -privilege admin
-# }
-
-# set page_title "[_ assessment.View_Results]"
-# set context_bar [ad_context_bar [list [export_vars -base sessions {assessment_id}] "[_ assessment.Show_Sessions]"] $page_title]
-# set format "[lc_get formbuilder_date_format], [lc_get formbuilder_time_format]"
-# set session_user_url [acs_community_member_url -user_id $subject_id]
-
-# # get start and end times
-# db_1row session_data {}
-# set session_time [as::assessment::pretty_time -seconds $session_time -hours]
-
-# # get the number of attempts
-# set session_attempt [db_string session_attempt {}]
-
-# set show_username_p 1
-# # only admins are allowed to see responses of other users
-# if {$assessment_data(anonymous_p) == "t" && $subject_id != $user_id} {
-#     set show_username_p 0
-# }
-
-# if {[empty_string_p $assessment_data(show_feedback)]} {
-#     set assessment_data(show_feedback) "all"
-# }
-
-# # show_feedback: none, all, incorrect, correct
-
-
-# set session_score 0
-# set assessment_score 0
-# db_multirow sections sections {} {
-#     if {[empty_string_p $points]} {
-# 	set points 0
-#     }
-#     if {[empty_string_p $max_points]} {
-# 	set max_points 0
-#     }
-#     set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]
-#     incr session_score $points
-#     incr assessment_score $max_points
-# }
-
-# set showpoints [parameter::get -parameter "ShowPoints" -default 1 ]
-
- set comments_installed_p [apm_package_enabled_p "general-comments"]
-
 ad_return_template