Index: openacs-4/packages/dotlrn/www/one-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/one-community.tcl	11 Dec 2001 03:08:21 -0000	1.10
+++ openacs-4/packages/dotlrn/www/one-community.tcl	17 Dec 2001 23:02:56 -0000	1.11
@@ -1,4 +1,3 @@
-
 ad_page_contract {
     Displays a community
     
@@ -7,9 +6,6 @@
 } {
 }
 
-# ns_log Notice "BEN TEST!"
-
-
 # Check that this is a community type
 if {[ad_parameter community_level_p] != 1} {
     ns_returnredirect "./"
@@ -28,6 +24,11 @@
 if {![dotlrn_community::member_p $community_id $user_id]} {
     set context_bar [list "Not a member"]
 
+    if {[dotlrn_community::member_pending_p -community_id $community_id -user_id $user_id]} {
+        set member_pending_p "t"
+        set context_bar [list "Pending approbal"]
+    }
+
     set portal_id [dotlrn_community::get_community_non_members_portal_id $community_id]
 
     # Possible that there is no portal page for non-members