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.87 -r1.87.2.1
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 13 Jan 2005 13:57:20 -0000 1.87
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 31 May 2005 23:13:05 -0000 1.87.2.1
@@ -141,10 +141,9 @@
acs_users_all.first_names,
acs_users_all.last_name,
acs_users_all.email,
- (select count(*)
- from acs_rels
- where rel_type = 'user_portrait_rel'
- and object_id_one = dotlrn_member_rels_approved.user_id) as portrait_p, 0 as bio_p
+ (select count(*) from acs_rels where rel_type = 'user_portrait_rel' and object_id_one = dotlrn_member_rels_approved.user_id) as portrait_p,
+ (select count(*) from acs_attribute_values where object_id = dotlrn_member_rels_approved.user_id and attribute_id =
+:bio_attribute_id and attr_value is not null) as bio_p
from acs_users_all,
dotlrn_member_rels_approved
where dotlrn_member_rels_approved.community_id = :community_id
@@ -269,37 +268,6 @@
-
-
- update dotlrn_communities_all
- set community_type = :community_type
- where community_id = :community_id
-
-
-
-
-
- select
- portal_id
- from
- dotlrn_portal_types_map
- where
- type = :community_type
-
-
-
-
-
- update portals
- set template_id = :portal_id
- where portal_id = (
- select portal_id
- from dotlrn_communities
- where community_id = :community_id
- )
-
-
-
select 1
@@ -315,7 +283,7 @@
select community_id as subcomm_id
from dotlrn_communities
where parent_community_id = :community_id
- order by pretty_name
+ order by pretty_name
@@ -641,11 +609,4 @@
-
-
- select 1
- from dotlrn_community_types
- where community_type = :community_type
-
-