Index: openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl,v diff -u -r1.6.6.4 -r1.6.6.5 --- openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl 19 Jul 2004 18:39:39 -0000 1.6.6.4 +++ openacs-4/packages/dotlrn/www/one-community-portal-configure.tcl 19 Jul 2004 21:07:52 -0000 1.6.6.5 @@ -42,30 +42,6 @@ # we are in a community set community_name [dotlrn_community::get_community_name $community_id] -set default_portal_p [db_string default_portal_p { - select count(*) from dotlrn_portal_types_map where portal_id = :portal_id -}] - - -if {$default_portal_p == 1} { - # Create comm's portal page - set portal_id [portal::create \ - -template_id $portal_id \ - -name "$community_name Portal" \ - -context_id $community_id \ - [ad_conn user_id] \ - ] - - db_exec_plsql update_commuity_portal_id { - update dotlrn_communities_all - set portal_id = :portal_id - where community_id = :community_id - } - - util_memoize_flush "dotlrn_community::get_portal_id_not_cached -community_id $community_id" -} - - set rendered_page [portal::configure \ -allow_theme_change_p 1 \ [dotlrn_community::get_portal_id] \