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.9 -r1.10
--- openacs-4/packages/assessment/www/asm-admin/one-a.adp	7 Apr 2005 22:14:15 -0000	1.9
+++ openacs-4/packages/assessment/www/asm-admin/one-a.adp	8 Apr 2005 23:04:23 -0000	1.10
@@ -81,7 +81,7 @@
 	<if @admin_p@ eq 1>	
 	 <if @anonymous_p@ eq t>
 	   <if @read_p@ eq 1>
-	      <br><a href="/admin/set-reg-assessment?assessment_id=@assessment_id@">#acs-subsite.set_reg_asm#</a>
+	      <br><a href="@url@admin/set-reg-assessment?assessment_id=@assessment_id@">#acs-subsite.set_reg_asm#</a>
 	   </if>
          </if>
         </if>
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.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/one-a.tcl	8 Apr 2005 22:49:31 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/one-a.tcl	8 Apr 2005 23:04:23 -0000	1.9
@@ -25,7 +25,7 @@
 
 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 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]