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.7 -r1.8
--- openacs-4/packages/assessment/www/asm-admin/one-a.tcl	8 Apr 2005 21:23:23 -0000	1.7
+++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl	8 Apr 2005 22:49:31 -0000	1.8
@@ -24,10 +24,11 @@
 set context [list [list index [_ assessment.admin]] $assessment_data(title)]
 
 set assessment_rev_id $assessment_data(assessment_rev_id)
-
+set subsite_id [ad_conn subsite_id]
+set url [subsite::get_url -node_id $subsite_id]
 set anonymous_p [db_string has_privilege {} -default "f"]
 set read_p [permission::permission_p -object_id $assessment_id -privilege read -party_id -1]
-set value [parameter::get_from_package_key -parameter AsmForRegisterId -package_key "acs-subsite"]
+set value [parameter::get -parameter AsmForRegisterId -package_id $subsite_id]
 
 if { [string eq $assessment_id $value] } {
     set is_reg_asm_p "[_ assessment.reg_asm]"