Index: openacs-4/packages/dotlrn/tcl/community-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v diff -u -r1.32 -r1.33 --- openacs-4/packages/dotlrn/tcl/community-procs.xql 7 Mar 2002 06:48:53 -0000 1.32 +++ openacs-4/packages/dotlrn/tcl/community-procs.xql 7 Mar 2002 22:48:53 -0000 1.33 @@ -188,7 +188,7 @@ -select count(*) from dual where exists (select 1 from dotlrn_communities where parent_community_id = :community_id) +select 1 from dual where exists (select 1 from dotlrn_communities where parent_community_id = :community_id) Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl,v diff -u -r1.16 -r1.17 --- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 5 Mar 2002 07:39:29 -0000 1.16 +++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-dotlrn-procs.tcl 7 Mar 2002 22:51:22 -0000 1.17 @@ -56,11 +56,13 @@ # Non-member page stuff # Get the non-member portal_id - set portal_id [dotlrn_community::get_community_non_members_portal_id $community_id] + # aks20 - trying to use dotlrn-static instead of this + #set portal_id [dotlrn_community::get_community_non_members_portal_id $community_id] + # Add the element there, too - dotlrn_portlet::make_self_available $portal_id - dotlrn_portlet::add_self_to_page $portal_id $community_id + #dotlrn_portlet::make_self_available $portal_id + #dotlrn_portlet::add_self_to_page $portal_id $community_id # portal template stuff # get the portal_template_id Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 5 Mar 2002 07:19:37 -0000 1.8 +++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl 7 Mar 2002 22:51:37 -0000 1.9 @@ -63,14 +63,25 @@ set instance_id [dotlrn::instantiate_and_mount \ -mount_point "static" $community_id [package_key]] - # We don't want to add a portlet until one is created by the static portlet admin (ben) -# # get the portal_template_id by callback -# set pt_id [dotlrn_community::get_portal_template_id $community_id] + # we add a special static pe to the non-memebers page + # with the comm info as the content called "$comm_name Info" + # aks20 + set comm_name [dotlrn_community::get_community_name $community_id] + set n_p_id [dotlrn_community::get_community_non_members_portal_id $community_id] -# # set up the DS for the portal template -# static_portlet::make_self_available $pt_id -# static_portlet::add_self_to_page $pt_id $instance_id + set content_id [static_portal_content::new \ + -instance_id $instance_id \ + -content "[dotlrn_community::get_community_description $community_id] " \ + -pretty_name "$comm_name Info" + ] + static_portal_content::add_to_portal \ + -content_id $content_id \ + -portal_id $n_p_id + + # end aks20 + + # set up the DS for the admin page set admin_portal_id \ [dotlrn_community::get_community_admin_portal_id $community_id] @@ -80,7 +91,6 @@ # If i'm in a class, add a portlet called "class (pn) info" # if I'm in a community, add a portlet called "community (pn) info" # or if I'm in a subcomm, "subcomm (pn) info" - set community_type \ [dotlrn_community::get_community_type_from_community_id $community_id] @@ -103,7 +113,7 @@ -portal_id $pt_id } elseif {$community_type == "dotlrn_community"} { - + set content_id [static_portal_content::new \ -instance_id $instance_id \ -content " " \