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 -r1.9 -r1.10
--- openacs-4/packages/assessment/www/asm-admin/one-a.tcl	8 Apr 2005 23:04:23 -0000	1.9
+++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl	9 Jun 2005 19:19:48 -0000	1.10
@@ -11,6 +11,8 @@
     assessment_id:integer
     {context ""}
     {reg_p ""}
+    {asm_instance ""}
+    {reg_url ""}
 }
 set is_reg_asm_p ""
 set package_id [ad_conn package_id]
@@ -24,12 +26,17 @@
 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 subsite_id [subsite::main_site_id]
 set url [apm_package_url_from_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 -parameter AsmForRegisterId -package_id $subsite_id]
 
+if { [exists_and_not_null asm_instance]} {
+    set reg_url "[apm_package_url_from_id $asm_instance]admin"
+} else {
+    set reg_url "../admin"
+} 
 if { [string eq $assessment_id $value] } {
     set is_reg_asm_p "[_ assessment.reg_asm]"
 }