Index: openacs-4/packages/bm-portlet/www/bm-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bm-portlet/www/bm-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bm-portlet/www/bm-portlet.tcl	15 May 2002 22:11:37 -0000	1.1
+++ openacs-4/packages/bm-portlet/www/bm-portlet.tcl	16 May 2002 00:41:45 -0000	1.2
@@ -38,6 +38,6 @@
 set admin_p [permission::permission_p -object_id $package_id -privilege "admin"]
 
 set spam_name [bulk_mail::parameter -parameter PrettyName -default Spam]
-set spam_url [portal::mapping::get_url -object_id $package_id]
+set spam_url [site_nodes::get_url_from_package_id -package_id $package_id]
 
-ad_return_template 
+ad_return_template