Index: openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	18 Mar 2002 04:59:39 -0000	1.16
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	18 Mar 2002 22:30:04 -0000	1.17
@@ -41,11 +41,11 @@
     set package_id [dotlrn::get_package_id]
 
     # Grant the permission
-    ad_permission_grant $grantee_id $package_id dotlrn_browse
+    permission::grant -party_id $grantee_id -object_id $package_id -privilege "dotlrn_browse"
 
     # check read permission on dotLRN for all users
     set grantee_id [dotlrn::get_users_rel_segment_id]
-    ad_permission_grant $grantee_id $package_id read
+    permission::grant -party_id $grantee_id -object_id $package_id -privilege "read"
 
     # initialize the applets subsystem (ooh, I'm using big words - ben)
     dotlrn_applet::init
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	18 Mar 2002 03:39:39 -0000	1.38
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	18 Mar 2002 22:30:04 -0000	1.39
@@ -188,7 +188,7 @@
     } {
         check if a user is admin for dotLRN
     } {
-        return [ad_permission_p -user_id $user_id [dotlrn::get_package_id] admin]
+        return [permission::permission_p -party_id $user_id -object_id [dotlrn::get_package_id] -privilege "admin"]
     }
 
     ad_proc -public get_users_rel_segment_id {} {
Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	16 Mar 2002 17:38:08 -0000	1.29
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	18 Mar 2002 22:30:04 -0000	1.30
@@ -186,7 +186,7 @@
     } {
         Check is a user can browse dotLRN
     } {
-        return [ad_permission_p -user_id $user_id [dotlrn::get_package_id] dotlrn_browse]
+        return [permission::permission_p -party_id $user_id -object_id [dotlrn::get_package_id] -privilege "dotlrn_browse"]
     }
 
     ad_proc -public require_user_browse {
@@ -258,7 +258,7 @@
     } {
         Check if a user can read a community
     } {
-        return [ad_permission_p -user_id $user_id $community_id dotlrn_view_community]
+        return [permission::permission_p -party_id $user_id -object_id $community_id -privilege "dotlrn_view_community"]
     }
 
     ad_proc -public require_user_read_community {
@@ -302,7 +302,7 @@
     } {
         check if a user can admin a community
     } {
-        return [ad_permission_p -user_id $user_id $community_id dotlrn_admin_community]
+        return [permission::permission_p -party_id $user_id -object_id $community_id -privilege "dotlrn_admin_community"]
     }
 
     ad_proc -public require_user_admin_community {