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