Index: openacs-4/packages/assessment/lib/feedback.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/feedback.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/assessment/lib/feedback.tcl 27 Jun 2006 19:11:40 -0000 1.4 +++ openacs-4/packages/assessment/lib/feedback.tcl 12 Jul 2006 07:05:04 -0000 1.5 @@ -41,4 +41,13 @@ } else { set next_url [export_vars -base assessment {assessment_id session_id section_order item_order password return_url next_asm section_id}] } -} \ No newline at end of file +} + +if {[info exists assessment_id]} { + # check if this assessment even allows feedback if not, bail out + + if {$assessment_data(show_feedback) eq "none"} { + ad_returnredirect $next_url + ad_script_abort + } +} Index: openacs-4/packages/assessment/lib/session-items.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/assessment/lib/session-items.tcl 27 Jun 2006 19:11:40 -0000 1.13 +++ openacs-4/packages/assessment/lib/session-items.tcl 12 Jul 2006 07:05:04 -0000 1.14 @@ -16,15 +16,6 @@ set next_url [export_vars -base session {session_id next_url}] } -if {[info exists assessment_id]} { - # check if this assessment even allows feedback if not, bail out - - if {$feedback_only_p && $assessment_data(show_feedback) eq "none"} { - ad_returnredirect $next_url - ad_script_abort - } -} - set items_clause "" if {[info exists item_id_list]} { if {[llength $item_id_list]} { Index: openacs-4/packages/assessment/www/asm-admin/one-a.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.adp,v diff -u -r1.15 -r1.16 --- openacs-4/packages/assessment/www/asm-admin/one-a.adp 12 Jun 2006 12:14:58 -0000 1.15 +++ openacs-4/packages/assessment/www/asm-admin/one-a.adp 12 Jul 2006 07:05:05 -0000 1.16 @@ -28,7 +28,7 @@ #assessment.View_Responses# - #assessment.All# | + #assessment.All# | #assessment.By_user# | #assessment.CSV_file#