Index: openacs-4/packages/dotlrn/www/manage-memberships-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/manage-memberships-postgresql.xql,v diff -u -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/dotlrn/www/manage-memberships-postgresql.xql 12 Dec 2005 15:14:41 -0000 1.2.2.1 +++ openacs-4/packages/dotlrn/www/manage-memberships-postgresql.xql 15 Dec 2005 10:38:26 -0000 1.2.2.2 @@ -110,6 +110,7 @@ select dotlrn_class_instances_full.* from dotlrn_class_instances_full where dotlrn_class_instances_full.join_policy <> 'closed' + and active_end_date > (select sysdate from dual) and not exists (select 1 from dotlrn_member_rels_full where dotlrn_member_rels_full.user_id = :user_id @@ -127,11 +128,13 @@ from dotlrn_class_instances_full where dotlrn_class_instances_full.department_key = :non_member_department_key and dotlrn_class_instances_full.join_policy <> 'closed' + and active_end_date > (select sysdate from dual) and not exists (select 1 from dotlrn_member_rels_full where dotlrn_member_rels_full.user_id = :user_id and dotlrn_member_rels_full.community_id = dotlrn_class_instances_full.class_instance_id) - order by dotlrn_class_instances_full.pretty_name, + order by dotlrn_class_instances_full.active_start_date, + dotlrn_class_instances_full.pretty_name, dotlrn_class_instances_full.community_key Index: openacs-4/packages/dotlrn/www/manage-memberships.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/manage-memberships.adp,v diff -u -r1.28.2.1 -r1.28.2.2 --- openacs-4/packages/dotlrn/www/manage-memberships.adp 12 Dec 2005 16:53:32 -0000 1.28.2.1 +++ openacs-4/packages/dotlrn/www/manage-memberships.adp 15 Dec 2005 10:38:26 -0000 1.28.2.2 @@ -156,7 +156,7 @@ #dotlrn.class_name_header# #dotlrn.Term# -   + #dotlrn.Start_date# #dotlrn.Actions# @@ -171,13 +171,13 @@ @non_member_classes.pretty_name@ @non_member_classes.term_name@ @non_member_classes.term_year@ -   + @non_member_classes.active_start_date@ - @non_member_classes.active_end_date@ @non_member_classes.pretty_name@ @non_member_classes.term_name@ @non_member_classes.term_year@ -   + @non_member_classes.active_start_date@ - @non_member_classes.active_end_date@ @@ -208,13 +208,16 @@ - @non_member_clubs.pretty_name@ -   -   + @non_member_clubs.pretty_name@ +   + @non_member_classes.active_start_date@ - @non_member_classes.active_end_date@ + @non_member_clubs.pretty_name@ +   + @non_member_classes.active_start_date@ - @non_member_classes.active_end_date@ Index: openacs-4/packages/dotlrn/www/manage-memberships.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/manage-memberships.tcl,v diff -u -r1.11.2.2 -r1.11.2.3 --- openacs-4/packages/dotlrn/www/manage-memberships.tcl 12 Dec 2005 16:53:32 -0000 1.11.2.2 +++ openacs-4/packages/dotlrn/www/manage-memberships.tcl 15 Dec 2005 10:38:26 -0000 1.11.2.3 @@ -174,11 +174,22 @@ append non_member_query "_by_term" } +# Is the user a .LRN admin or a sitewide admin set swa_p [acs_user::site_wide_admin_p -user_id $user_id] +if {!$swa_p} { + set swa_p [dotlrn::admin_p -user_id $user_id] +} + set n_non_member_classes [db_string select_n_non_member_classes {}] -db_multirow non_member_classes $non_member_query {} -db_multirow non_member_clubs select_non_member_clubs {} +db_multirow non_member_classes $non_member_query {} { + regsub -all {

} $description {
} description +} +db_multirow non_member_clubs select_non_member_clubs {} { + regsub -all {

} $description {
} description +} + + # hack for eabis set non_member_club_ids [db_list non_member_club_ids { select f.club_id from dotlrn_clubs_full f