Index: openacs-4/packages/dotlrn/www/one-community-type.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-type.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn/www/one-community-type.tcl 1 Dec 2001 23:16:27 -0000 1.6 +++ openacs-4/packages/dotlrn/www/one-community-type.tcl 6 Dec 2001 20:50:51 -0000 1.7 @@ -1,4 +1,3 @@ - ad_page_contract { Displays a community type @@ -7,10 +6,12 @@ } { } +ns_log notice "XXX0.6" + # Check that this is a community type if {[ad_parameter community_type_level_p] != 1} { - ns_returnredirect "./" - return + ad_returnredirect "./" + ad_script_abort } set user_id [ad_conn user_id]