Index: openacs-4/packages/assessment/www/asm-admin/action-select.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/action-select.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/action-select.tcl 2 Feb 2005 16:54:12 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/action-select.tcl 2 Feb 2005 21:31:15 -0000 1.3 @@ -14,6 +14,9 @@ item_id:optional } +set package_id [ad_conn package_id] +permission::require_permission -object_id $package_id -privilege create + permission::require_permission -object_id $assessment_id -privilege admin as::assessment::data -assessment_id $assessment_id if {![info exists assessment_data(assessment_id)]} {