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.16 -r1.17
--- openacs-4/packages/dotlrn/www/one-community.tcl	23 Jan 2002 05:03:16 -0000	1.16
+++ openacs-4/packages/dotlrn/www/one-community.tcl	25 Jan 2002 20:02:24 -0000	1.17
@@ -6,6 +6,7 @@
     @creation-date 2001-10-04
     @version $Id$
 } -query {
+    {page_num 0}
 }
 
 # Check that this is a community type
@@ -37,7 +38,7 @@
 
     # Possible that there is no portal page for non-members
     if {! [empty_string_p $portal_id]} {
-	set rendered_page [dotlrn::render_page -hide_links_p "t" $portal_id]
+	set rendered_page [dotlrn::render_page -hide_links_p -page_num $page_num "t" $portal_id]
     } else {
 	set rendered_page ""
     }
@@ -48,9 +49,11 @@
     # Pull out the NPP page ID and render it!
     set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
 
-    set rendered_page [dotlrn::render_page -hide_links_p "t" $portal_id]
+#    ad_return_complaint 1 "$portal_id"
+    set rendered_page [dotlrn::render_page -hide_links_p "t" -page_num $page_num $portal_id]
 
     set context_bar {View}
+    set url_stub "one-community"
 
-    ad_return_template
+    ad_return_template 
 }