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 -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/asm-admin/one-a.adp 30 Mar 2005 07:10:45 -0000 1.5 +++ openacs-4/packages/assessment/www/asm-admin/one-a.adp 4 Apr 2005 17:48:43 -0000 1.6 @@ -13,7 +13,7 @@ #assessment.Edit# - @assessment_data.title@ + @assessment_data.title@
@reg_p@

#assessment.None#@assessment_data.description;noquote@

#assessment.None#@assessment_data.instructions;noquote@ Index: openacs-4/packages/assessment/www/asm-admin/one-a.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/one-a.tcl 2 Feb 2005 21:31:15 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl 4 Apr 2005 17:48:43 -0000 1.3 @@ -10,14 +10,21 @@ } { assessment_id:integer } - +set reg_p "" 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 # Get the assessment data as::assessment::data -assessment_id $assessment_id +set value [parameter::get_from_package_key -parameter AsmForRegisterId -package_key "acs-subsite"] +if { [string eq $assessment_id $value] } { + set reg_p "[_ assessment.reg_asm]" +} + if {![info exists assessment_data(assessment_id)]} { ad_return_complaint 1 "[_ assessment.Requested_assess_does]" ad_script_abort