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