Index: openacs-4/packages/dotlrn/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/index.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/admin/index.tcl	29 Oct 2003 14:23:52 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/index.tcl	24 Jul 2004 08:34:12 -0000	1.16
@@ -21,6 +21,8 @@
     @creation-date 2001-11-04
 }
 
+set oacs_site_wide_admin_p [acs_user::site_wide_admin_p]
+
 set admin_pretty_name [parameter::get -localize -parameter dotlrn_admin_pretty_name]
 set context_bar {}
 
@@ -30,4 +32,6 @@
 
 set parameters_url [export_vars -base /shared/parameters { { package_id {[dotlrn::get_package_id]} } { return_url [ad_return_url] } }] 
 
+set parameters_d_url [export_vars -base /shared/parameters { { package_id {[apm_package_id_from_key dotlrn-portlet]} } { return_url [ad_return_url] } }]
+
 ad_return_template