Index: openacs-4/packages/dotlrn/dotlrn.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v diff -u -r1.70 -r1.71 --- openacs-4/packages/dotlrn/dotlrn.info 2 Apr 2002 06:13:47 -0000 1.70 +++ openacs-4/packages/dotlrn/dotlrn.info 7 Apr 2002 04:19:07 -0000 1.71 @@ -41,8 +41,10 @@ + + @@ -83,7 +85,59 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -251,9 +305,9 @@ + - @@ -357,18 +411,18 @@ + + - - - - + + Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql 7 Apr 2002 04:19:07 -0000 1.1 @@ -0,0 +1,34 @@ + + + + oracle8.1.6 + + + + select dotlrn_member_rels_approved.community_id, + dotlrn_class_instances_full.pretty_name, + dotlrn_class_instances_full.url, + acs_permission.permission_p(dotlrn_member_rels_approved.community_id, :user_id, 'admin') as admin_p, + dotlrn_community.has_subcomm_p(dotlrn_member_rels_approved.community_id) as subcomm_p + from dotlrn_class_instances_full, + dotlrn_member_rels_approved + where dotlrn_member_rels_approved.user_id = :user_id + and dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id + + + + + + select dotlrn_member_rels_approved.community_id, + dotlrn_clubs_full.pretty_name, + dotlrn_clubs_full.url, + acs_permission.permission_p(dotlrn_member_rels_approved.community_id, :user_id, 'admin') as admin_p, + dotlrn_community.has_subcomm_p(dotlrn_member_rels_approved.community_id) as subcomm_p + from dotlrn_clubs_full, + dotlrn_member_rels_approved + where dotlrn_member_rels_approved.user_id = :user_id + and dotlrn_member_rels_approved.community_id = dotlrn_clubs_full.club_id + + + +