Index: openacs-4/packages/dotlrn/dotlrn.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v diff -u -r1.64 -r1.65 --- openacs-4/packages/dotlrn/dotlrn.info 11 Mar 2002 21:24:54 -0000 1.64 +++ openacs-4/packages/dotlrn/dotlrn.info 13 Mar 2002 00:12:09 -0000 1.65 @@ -301,15 +301,17 @@ - - + + + + + + - - Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-classes-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-classes-create.sql,v diff -u -r1.16 -r1.17 --- openacs-4/packages/dotlrn/sql/oracle/dotlrn-classes-create.sql 7 Mar 2002 20:24:41 -0000 1.16 +++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-classes-create.sql 13 Mar 2002 00:12:09 -0000 1.17 @@ -118,16 +118,19 @@ dotlrn_classes_full.url as class_url, dotlrn_classes_full.department_key, dotlrn_departments_full.pretty_name as department_name, - dotlrn_departments_full.url as department_url + dotlrn_departments_full.url as department_url, + groups.join_policy from dotlrn_communities, dotlrn_class_instances, dotlrn_terms, dotlrn_classes_full, - dotlrn_departments_full + dotlrn_departments_full, + groups where dotlrn_communities.community_id = dotlrn_class_instances.class_instance_id and dotlrn_class_instances.term_id = dotlrn_terms.term_id and dotlrn_communities.community_type = dotlrn_classes_full.class_key - and dotlrn_classes_full.department_key = dotlrn_departments_full.department_key; + and dotlrn_classes_full.department_key = dotlrn_departments_full.department_key + and dotlrn_communities.community_id = groups.group_id; create or replace view dotlrn_class_instances_current as Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-clubs-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-clubs-create.sql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/sql/oracle/dotlrn-clubs-create.sql 17 Dec 2001 23:02:55 -0000 1.4 +++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-clubs-create.sql 13 Mar 2002 00:12:09 -0000 1.5 @@ -31,10 +31,13 @@ dotlrn_communities.portal_id, dotlrn_communities.portal_template_id, dotlrn_communities.package_id, - dotlrn_community.url(dotlrn_communities.community_id) as url + dotlrn_community.url(dotlrn_communities.community_id) as url, + groups.join_policy from dotlrn_communities, - dotlrn_clubs - where dotlrn_communities.community_id = dotlrn_clubs.club_id; + dotlrn_clubs, + groups + where dotlrn_communities.community_id = dotlrn_clubs.club_id + and dotlrn_communities.community_id = groups.group_id; create or replace package dotlrn_club is Index: openacs-4/packages/dotlrn/www/applets-chunk.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applets-chunk.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/applets-chunk.adp 19 Jan 2002 22:54:20 -0000 1.1 +++ openacs-4/packages/dotlrn/www/applets-chunk.adp 13 Mar 2002 00:12:09 -0000 1.2 @@ -15,9 +15,9 @@
  • @all_applets.applet_pretty_name@ - [ - + add - + ]
  • Index: openacs-4/packages/dotlrn/www/community.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/community.adp,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn/www/community.adp 28 Jan 2002 21:57:52 -0000 1.6 +++ openacs-4/packages/dotlrn/www/community.adp 13 Mar 2002 00:12:09 -0000 1.7 @@ -4,15 +4,15 @@ @portal_id@ [ - + | customize | admin - + ] @rendered_page@ Index: openacs-4/packages/dotlrn/www/index-not-a-user.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index-not-a-user.adp,v diff -u -r1.7 -r1.8 --- openacs-4/packages/dotlrn/www/index-not-a-user.adp 11 Mar 2002 23:19:16 -0000 1.7 +++ openacs-4/packages/dotlrn/www/index-not-a-user.adp 13 Mar 2002 00:12:09 -0000 1.8 @@ -1,7 +1,7 @@ dotLRN - Not a User -Visit dotLRN Administration.

    +

    Visit dotLRN Administration.

    -You are not registered as a dotLRN user.
    -You're going to have to wait to see what the admin does. +Thank you. Your registration request has been sent to the dotLRN +Administrator. Index: openacs-4/packages/dotlrn/www/manage-memberships-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/manage-memberships-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/manage-memberships-oracle.xql 11 Mar 2002 21:24:54 -0000 1.1 +++ openacs-4/packages/dotlrn/www/manage-memberships-oracle.xql 13 Mar 2002 00:12:09 -0000 1.2 @@ -119,10 +119,11 @@ select count(*) from dotlrn_class_instances_full - where 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) + where dotlrn_class_instances_full.join_policy <> 'closed' + 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) @@ -131,10 +132,11 @@ select dotlrn_class_instances_full.*, acs_permission.permission_p(dotlrn_class_instances_full.class_instance_id, :user_id, 'admin') as admin_p from dotlrn_class_instances_full - where 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) + where dotlrn_class_instances_full.join_policy <> 'closed' + 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.department_name, dotlrn_class_instances_full.department_key, dotlrn_class_instances_full.pretty_name, @@ -148,6 +150,7 @@ acs_permission.permission_p(dotlrn_class_instances_full.class_instance_id, :user_id, 'admin') as admin_p 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 not exists (select 1 from dotlrn_member_rels_full where dotlrn_member_rels_full.user_id = :user_id @@ -165,6 +168,7 @@ acs_permission.permission_p(dotlrn_class_instances_full.class_instance_id, :user_id, 'admin') as admin_p from dotlrn_class_instances_full where dotlrn_class_instances_full.term_id = :non_member_term_id + and dotlrn_class_instances_full.join_policy <> 'closed' and not exists (select 1 from dotlrn_member_rels_full where dotlrn_member_rels_full.user_id = :user_id @@ -183,6 +187,7 @@ from dotlrn_class_instances_full where dotlrn_class_instances_full.department_key = :non_member_department_key and dotlrn_class_instances_full.term_id = :non_member_term_id + and dotlrn_class_instances_full.join_policy <> 'closed' and not exists (select 1 from dotlrn_member_rels_full where dotlrn_member_rels_full.user_id = :user_id @@ -199,10 +204,11 @@ select dotlrn_clubs_full.*, acs_permission.permission_p(dotlrn_clubs_full.club_id, :user_id, 'admin') as admin_p from dotlrn_clubs_full - where 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_clubs_full.club_id) + where dotlrn_clubs_full.join_policy <> 'closed' + 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_clubs_full.club_id) order by dotlrn_clubs_full.pretty_name, dotlrn_clubs_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.2 -r1.3 --- openacs-4/packages/dotlrn/www/manage-memberships.adp 12 Mar 2002 16:26:55 -0000 1.2 +++ openacs-4/packages/dotlrn/www/manage-memberships.adp 13 Mar 2002 00:12:09 -0000 1.3 @@ -23,12 +23,11 @@

    Add/Drop Memberships

    -

    +

    Your Current Memberships

    -

    <%= [ad_parameter classes_pretty_plural] %>

    @@ -46,18 +45,26 @@ - - - - + + + + +<% set i 0 %> + - + +<% + if {!$i} { set bgcolor "#ffffff" } else { set bgcolor "#ececec" } + set i [expr 1 - $i] +%> + + - +
    <%= [ad_parameter classes_pretty_name] %>TermRoleActions<%= [ad_parameter classes_pretty_name] %>TermRoleActions
    @member_classes.pretty_name@ @member_classes.term_name@ @member_classes.term_year@ @member_classes.role@ ][]
    @@ -68,23 +75,29 @@
    -
    -

    <%= [ad_parameter clubs_pretty_plural] %>

    - - - + + + +<% set i 0 %> + - - + +<% + if {!$i} { set bgcolor "#ffffff" } else { set bgcolor "#ececec" } + set i [expr 1 - $i] +%> + + + - +
    <%= [ad_parameter clubs_pretty_name] %>RoleActions<%= [ad_parameter clubs_pretty_name] %>RoleActions
    @member_clubs.pretty_name@
    @member_clubs.pretty_name@ @member_clubs.role@ ][]
    @@ -97,12 +110,11 @@
    -

    +

    Join A Group

    -

    <%= [ad_parameter classes_pretty_plural] %>

    @@ -120,16 +132,26 @@ - - - + + + + +<% set i 0 %> + - + +<% + if {!$i} { set bgcolor "#ffffff" } else { set bgcolor "#ececec" } + set i [expr 1 - $i] +%> + + - + +
    <%= [ad_parameter classes_pretty_name] %>TermActions<%= [ad_parameter classes_pretty_name] %>Term Actions
    @non_member_classes.pretty_name@ @non_member_classes.term_name@ @non_member_classes.term_year@ ] []
    @@ -140,21 +162,27 @@
    -
    -

    <%= [ad_parameter clubs_pretty_plural] %>

    - + +<% set i 0 %> + - - - + +<% + if {!$i} { set bgcolor "#ffffff" } else { set bgcolor "#ececec" } + set i [expr 1 - $i] +%> + + + +
    <%= [ad_parameter clubs_pretty_name] %><%= [ad_parameter clubs_pretty_name] %> Actions
    @non_member_clubs.pretty_name@ ]
    @non_member_clubs.pretty_name@[]
    Index: openacs-4/packages/dotlrn/www/one-community-type.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-type.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/dotlrn/www/one-community-type.tcl 23 Jan 2002 07:41:04 -0000 1.15 +++ openacs-4/packages/dotlrn/www/one-community-type.tcl 13 Mar 2002 00:12:09 -0000 1.16 @@ -36,16 +36,16 @@ db_1row select_community_type_info {} if {[string equal ${community_type} "dotlrn_class_instance"] != 0} { - set community_type_title [ad_parameter classes_pretty_plural] - set communities_title "[ad_parameter classes_pretty_name] Instances" - set title [ad_parameter classes_pretty_plural] + set community_type_title [ad_parameter "classes_pretty_plural"] + set communities_title [ad_parameter "class_instances_pretty_name"] + set title [ad_parameter "classes_pretty_plural"] } elseif {[string equal ${community_type} "dotlrn_club"] != 0} { - set community_type_title [ad_parameter clubs_pretty_plural] - set communities_title [ad_parameter clubs_pretty_plural] - set title [ad_parameter clubs_pretty_plural] + set community_type_title [ad_parameter "clubs_pretty_plural"] + set communities_title [ad_parameter "clubs_pretty_plural"] + set title [ad_parameter "clubs_pretty_plural"] } elseif {[string equal ${ancestor_type} "dotlrn_class_instance"] != 0} { - set community_type_title [ad_parameter classes_pretty_plural] - set communities_title "[ad_parameter classes_pretty_name] Instances" + set community_type_title [ad_parameter "classes_pretty_plural"] + set communities_title [ad_parameter "class_instances_pretty_name"] set title $pretty_name } else { set community_type_title "Community Types" Index: openacs-4/packages/dotlrn/www/admin/class.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class.adp,v diff -u -r1.11 -r1.12 --- openacs-4/packages/dotlrn/www/admin/class.adp 8 Mar 2002 00:27:05 -0000 1.11 +++ openacs-4/packages/dotlrn/www/admin/class.adp 13 Mar 2002 00:12:09 -0000 1.12 @@ -8,7 +8,7 @@

    - [ New <%= [ad_parameter classes_pretty_name] %> Instance ] + [ New <%= [ad_parameter class_instances_pretty_name] %> ] @@ -31,14 +31,14 @@ - + - +
    Term<%= [ad_parameter classes_pretty_name] %> Instance Name<%= [ad_parameter class_instances_pretty_name] %> Name Actions
    @class_instances.term_name@ @class_instances.term_year@ @class_instances.pretty_name@admin ][admin]
    Index: openacs-4/packages/dotlrn/www/admin/clubs.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/clubs.adp,v diff -u -r1.9 -r1.10 --- openacs-4/packages/dotlrn/www/admin/clubs.adp 8 Mar 2002 00:27:05 -0000 1.9 +++ openacs-4/packages/dotlrn/www/admin/clubs.adp 13 Mar 2002 00:12:09 -0000 1.10 @@ -17,7 +17,7 @@ @clubs.pretty_name@ @clubs.description@ - [ admin ] + [admin] Index: openacs-4/packages/dotlrn/www/admin/need-term-note.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/need-term-note.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/need-term-note.adp 17 Dec 2001 23:02:56 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/need-term-note.adp 13 Mar 2002 00:12:09 -0000 1.2 @@ -1,4 +1,5 @@ Note: You must create terms to be able to create - class instances, since these must be associated with terms. + <%= [ad_parameter "class_instances_pretty_plural"] %>, since these must be + associated with Terms. Index: openacs-4/packages/dotlrn/www/admin/term.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/term.adp 8 Mar 2002 00:27:05 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/term.adp 13 Mar 2002 00:12:09 -0000 1.5 @@ -24,15 +24,15 @@ <%= [ad_parameter departments_pretty_name] %> <%= [ad_parameter classes_pretty_name] %> - <%= [ad_parameter classes_pretty_name] %> Instance + <%= [ad_parameter class_instances_pretty_name] %> Actions @classes.department_name@ @classes.class_name@ @classes.pretty_name@ - [ admin ] + [admin] Index: openacs-4/packages/dotlrn/www/admin/users.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.adp,v diff -u -r1.17 -r1.18 --- openacs-4/packages/dotlrn/www/admin/users.adp 12 Mar 2002 01:55:09 -0000 1.17 +++ openacs-4/packages/dotlrn/www/admin/users.adp 13 Mar 2002 00:12:09 -0000 1.18 @@ -3,11 +3,11 @@ @context_bar@ [ - Create A New User + Create A New User | - Search Users + Search Users | - Bulk Upload + Bulk Upload ]