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.25 -r1.26
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	8 Dec 2001 01:22:40 -0000	1.25
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	11 Dec 2001 03:19:48 -0000	1.26
@@ -180,6 +180,14 @@
 	return $node(object_id)
     }
 
+    ad_proc -public admin_p {
+        {-user_id ""}
+    } {
+        check if a user is admin for dotLRN
+    } {
+        return [ad_permission_p -user_id $user_id [dotlrn::get_package_id] admin]
+    }
+
     ad_proc -public get_users_rel_segment_id {} {
 	returns the rel_segment_id of the dotLRN users segment
     } {