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.51 -r1.52
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	15 May 2002 22:13:57 -0000	1.51
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	16 May 2002 05:17:09 -0000	1.52
@@ -239,14 +239,6 @@
 	return $node(object_id)
     }
 
-    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 get_users_rel_segment_id {} {
 	returns the rel_segment_id of the dotLRN users segment
     } {