Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 03:08:21 -0000	1.16
+++ openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 03:19:48 -0000	1.17
@@ -22,6 +22,9 @@
 # Make sure user is logged in
 set user_id [ad_maybe_redirect_for_registration]
 
+set admin_p [dotlrn::admin_p]
+set admin_url [dotlrn::get_url]/admin
+
 # Permission dotLRN
 if {![dotlrn::user_can_browse_p]} {
     ns_log Notice "DOTLRN- CANNOT BROWSE!"