Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	4 Dec 2002 09:50:08 -0000	1.14
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	20 Apr 2004 21:13:34 -0000	1.15
@@ -51,6 +51,9 @@
 # get the community info
 db_1row select_community_info {}
 
+# get Guest policy info
+set guests_can_view_private_data_p [dotlrn_privacy::guests_can_view_private_data_p -object_id $community_id]
+
 # get the subcomm info
 set rows [dotlrn_community::get_subcomm_info_list -community_id $community_id]
 template::util::list_of_ns_sets_to_multirow -rows $rows -var_name subgroups