Index: openacs-4/packages/assessment/assessment.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/assessment.info,v diff -u -r1.57.2.10 -r1.57.2.11 --- openacs-4/packages/assessment/assessment.info 16 Sep 2021 08:27:17 -0000 1.57.2.10 +++ openacs-4/packages/assessment/assessment.info 17 Aug 2022 17:07:21 -0000 1.57.2.11 @@ -7,7 +7,7 @@ f f - + Eduardo Perez Ureta Assessment package that will replace the surveys quizz, complex survey, poll and other data collection packages @@ -18,9 +18,9 @@ 2 #assessment.Assessment# - + - + Index: openacs-4/packages/assessment/lib/comments-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/comments-chunk.tcl,v diff -u -r1.6 -r1.6.2.1 --- openacs-4/packages/assessment/lib/comments-chunk.tcl 28 Jun 2018 10:39:36 -0000 1.6 +++ openacs-4/packages/assessment/lib/comments-chunk.tcl 17 Aug 2022 17:07:21 -0000 1.6.2.1 @@ -1,22 +1,13 @@ -# packages/assessment/lib/comments-chunk.tcl -# -# shows comments for an object -# -# @author Deds Castillo (deds@i-manila.com.ph) -# @creation-date 2005-08-16 -# @arch-tag: 989f6620-380f-49b9-a6e0-00c0effd7bb8 -# @cvs-id $Id$ +ad_include_contract { + Shows comments for an object -foreach required_param {object_id} { - if {![info exists $required_param]} { - return -code error "$required_param is a required parameter." - } + @author Deds Castillo (deds@i-manila.com.ph) + @creation-date 2005-08-16 + @arch-tag: 989f6620-380f-49b9-a6e0-00c0effd7bb8 + @cvs-id $Id$ +} { + object_id:object_type(acs_object) } -foreach optional_param {} { - if {![info exists $optional_param]} { - set $optional_param {} - } -} set return_url [ad_return_url]