Index: openacs-4/packages/dotlrn/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v diff -u -r1.42.2.1 -r1.42.2.2 --- openacs-4/packages/dotlrn/www/index.tcl 31 May 2005 23:13:06 -0000 1.42.2.1 +++ openacs-4/packages/dotlrn/www/index.tcl 4 May 2006 15:03:45 -0000 1.42.2.2 @@ -25,6 +25,9 @@ {page_num 0} } +# Used to keep track of navigation links +ad_set_client_property dotlrn page_num $page_num + if {[parameter::get -parameter community_type_level_p] == 1} { ad_returnredirect "one-community-type" ad_script_abort 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.27.8.1 -r1.27.8.2 --- openacs-4/packages/dotlrn/www/one-community-admin.tcl 31 May 2005 23:13:06 -0000 1.27.8.1 +++ openacs-4/packages/dotlrn/www/one-community-admin.tcl 4 May 2006 15:03:45 -0000 1.27.8.2 @@ -33,6 +33,9 @@ users:multirow } +# Used to keep track of navigation links + ad_set_client_property dotlrn page_num "-1" + set community_id [dotlrn_community::get_community_id] set user_id [ad_get_user_id]