Index: openacs-4/packages/dotlrn/www/configure-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-element.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/dotlrn/www/configure-element.tcl	8 Aug 2006 21:26:24 -0000	1.17
+++ openacs-4/packages/dotlrn/www/configure-element.tcl	31 Aug 2007 10:42:27 -0000	1.18
@@ -23,8 +23,11 @@
 } -query {
     element_id:naturalnum,notnull
     op:notnull
+    {page_num:naturalnum 0}
 }
 
+set page_num [ad_get_client_property dotlrn page_num]
+
 if {[parameter::get -parameter community_type_level_p] == 1} {
     ad_returnredirect "one-community-type"
     ad_script_abort
@@ -34,21 +37,23 @@
 
 if {[parameter::get -parameter community_level_p] == 1} {
 
+
     set community_id [dotlrn_community::get_community_id]
     set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id -community_id $community_id]
 
     if {[dotlrn_community::member_p $community_id $user_id] || $admin_p} {
-	portal::configure_element $element_id $op "one-community"
+        portal::configure_element $element_id $op "one-community?page_num=$page_num"
     } else {
-        ad_returnredirect "one-community"
+        ad_returnredirect "one-community?page_num=$page_num"
     }
 } else {
+
     set portal_id [dotlrn::get_portal_id -user_id $user_id]
     if {[empty_string_p $portal_id]} {
-	# do something
-	ad_returnredirect "/."
+        # do something
+        ad_returnredirect "/."
     } else {
-	set rendered_page [portal::configure_element $element_id $op "index"]
+        set rendered_page [portal::configure_element $element_id $op "index"]
     }
 }