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.40 -r1.41
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	15 May 2002 05:18:10 -0000	1.40
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	16 May 2002 05:17:09 -0000	1.41
@@ -361,11 +361,7 @@
     } {
         check if a user can admin a community
     } {
-        return [permission::permission_p \
-            -party_id $user_id \
-            -object_id $community_id \
-            -privilege "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 {
@@ -379,4 +375,22 @@
         }
     }
 
+    ad_proc -public admin_p {
+        {-user_id ""}
+    } {
+        check if a user is admin for dotLRN
+    } {
+        return [permission::permission_p -party_id $user_id -object_id [dotlrn::get_package_id] -privilege admin]
+    }
+
+    ad_proc -public require_admin {
+        {-user_id ""}
+    } {
+        require that a user have admin privileges on all of dotlrn
+    } {
+        if {![admin_p -user_id $user_id]} {
+            do_abort
+        }
+    }
+
 }