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