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.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]