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
+
+
+
+