Index: openacs-4/packages/dotlrn/www/one-community-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-admin.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/one-community-admin.tcl	23 Jan 2002 01:15:10 -0000	1.15
+++ openacs-4/packages/dotlrn/www/one-community-admin.tcl	23 Jan 2002 06:29:14 -0000	1.16
@@ -16,6 +16,7 @@
 }
 
 set community_id [dotlrn_community::get_community_id]
+set user_id [ad_get_user_id]
 
 # Permissions
 dotlrn::require_user_admin_community $community_id
@@ -25,6 +26,8 @@
 # render the admin page
 set rendered_page [dotlrn::render_page -render_style all_in_one $admin_portal_id]
 
+set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
+
 set context_bar {Admin}
 
 ad_return_template