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.2 -r1.3
--- openacs-4/packages/bm-portlet/www/bm-portlet.tcl	16 May 2002 00:41:45 -0000	1.2
+++ openacs-4/packages/bm-portlet/www/bm-portlet.tcl	22 Jun 2002 20:11:03 -0000	1.3
@@ -35,9 +35,9 @@
 set user_id [ad_conn user_id]
 set package_id $config(package_id)
 set scoped_p [ad_decode $config(scoped_p) t 1 0]
-set admin_p [permission::permission_p -object_id $package_id -privilege "admin"]
+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 [site_nodes::get_url_from_package_id -package_id $package_id]
+set spam_url [site_node::get_url_from_object_id -object_id $package_id]
 
 ad_return_template