Index: openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl 12 Sep 2013 14:38:11 -0000 1.10 +++ openacs-4/contrib/packages/irc-logger/tcl/irc-logger-procs.tcl 12 Sep 2013 20:34:21 -0000 1.11 @@ -423,7 +423,7 @@ # it always returned / for the subsite since we run from a # scheduled proc. This needs to be smarter. - set community_member_url "[ad_parameter -package_id [ad_acs_kernel_id] CommunityMemberURL]?[export_vars {user_id}]" + set community_member_url "[parameter::get -package_id [ad_acs_kernel_id] -parameter CommunityMemberURL]?[export_vars {user_id}]" if {[db_0or1row get_user {}]} { set link "$nick" Index: openacs-4/contrib/packages/irc-logger/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/www/index.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/contrib/packages/irc-logger/www/index.tcl 1 Mar 2005 00:01:18 -0000 1.3 +++ openacs-4/contrib/packages/irc-logger/www/index.tcl 12 Sep 2013 20:34:21 -0000 1.4 @@ -18,7 +18,7 @@ # Check for admin privileges set package_id [ad_conn package_id] -set admin_p [ad_permission_p $package_id admin] +set admin_p [permission::permission_p -object_id $package_id -privilege admin] # Get the name of the package Index: openacs-4/contrib/packages/irc-logger/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/www/admin/index.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/contrib/packages/irc-logger/www/admin/index.tcl 1 Mar 2005 00:01:18 -0000 1.5 +++ openacs-4/contrib/packages/irc-logger/www/admin/index.tcl 12 Sep 2013 20:34:21 -0000 1.6 @@ -23,7 +23,7 @@ set package_id [ad_conn package_id] set package_key [ad_conn package_key] -set admin_p [ad_permission_p $package_id admin] +set admin_p [permission::permission_p -object_id $package_id -privilege admin] # Get the package name and set the title. Index: openacs-4/contrib/packages/irc-logger/www/admin/update.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/irc-logger/www/admin/update.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/contrib/packages/irc-logger/www/admin/update.tcl 1 Mar 2005 00:01:18 -0000 1.5 +++ openacs-4/contrib/packages/irc-logger/www/admin/update.tcl 12 Sep 2013 20:34:21 -0000 1.6 @@ -15,7 +15,7 @@ # Check for admin privileges set package_id [ad_conn package_id] -set admin_p [ad_permission_p $package_id admin] +set admin_p [permission::permission_p -object_id $package_id -privilege admin] foreach rdf_log [glob -nocomplain -directory [parameter::get \ -parameter irc_rdf_dir \