Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v diff -u -r1.26 -r1.27 --- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl 6 Mar 2002 05:12:54 -0000 1.26 +++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl 8 Mar 2002 00:27:05 -0000 1.27 @@ -13,7 +13,7 @@ Procs to manage DOTLRN Security @author Ben Adida (ben@openforce.net) - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date 2001-10-30 @version $Id$ Index: openacs-4/packages/dotlrn/tcl/term-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/term-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/tcl/term-procs.tcl 23 Jan 2002 00:15:43 -0000 1.2 +++ openacs-4/packages/dotlrn/tcl/term-procs.tcl 8 Mar 2002 00:27:05 -0000 1.3 @@ -1,7 +1,7 @@ # dotlrn/tcl/term-procs.tcl ad_library { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Dec 12, 2001 @version $Id$ } Index: openacs-4/packages/dotlrn/www/communities-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/communities-chunk.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/communities-chunk.tcl 25 Jan 2002 19:54:20 -0000 1.4 +++ openacs-4/packages/dotlrn/www/communities-chunk.tcl 8 Mar 2002 00:27:05 -0000 1.5 @@ -1,7 +1,7 @@ # dotlrn/www/communities-chunk.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Dec 07, 2001 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/community-types-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-types-chunk.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/community-types-chunk.tcl 20 Jan 2002 22:26:20 -0000 1.1 +++ openacs-4/packages/dotlrn/www/community-types-chunk.tcl 8 Mar 2002 00:27:05 -0000 1.2 @@ -1,7 +1,7 @@ # dotlrn/www/community-types-chunk.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Dec 07, 2001 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/folder-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/folder-chunk.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/folder-chunk.tcl 22 Feb 2002 20:31:25 -0000 1.1 +++ openacs-4/packages/dotlrn/www/folder-chunk.tcl 8 Mar 2002 00:27:05 -0000 1.2 @@ -1,7 +1,7 @@ # file-storage/www/folder-chunk.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Feb 22, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/index-not-a-user.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index-not-a-user.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn/www/index-not-a-user.tcl 23 Jan 2002 01:15:10 -0000 1.3 +++ openacs-4/packages/dotlrn/www/index-not-a-user.tcl 8 Mar 2002 00:27:05 -0000 1.4 @@ -1,7 +1,7 @@ # dotlrn/www/index-not-a-user.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Dec 11, 2001 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/members-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn/www/members-chunk.tcl 22 Jan 2002 23:45:22 -0000 1.3 +++ openacs-4/packages/dotlrn/www/members-chunk.tcl 8 Mar 2002 00:27:05 -0000 1.4 @@ -1,7 +1,7 @@ # dotlrn/www/members-chunk.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Jan 08, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/members.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/dotlrn/www/members.tcl 6 Mar 2002 05:12:54 -0000 1.8 +++ openacs-4/packages/dotlrn/www/members.tcl 8 Mar 2002 00:27:05 -0000 1.9 @@ -1,7 +1,7 @@ # dotlrn/www/members.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Jan 19, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/my-communities.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/my-communities.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/my-communities.tcl 19 Jan 2002 22:54:20 -0000 1.1 +++ openacs-4/packages/dotlrn/www/my-communities.tcl 8 Mar 2002 00:27:05 -0000 1.2 @@ -1,7 +1,7 @@ # dotlrn/www/my-communities.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Dec 07, 2001 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/spam.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/dotlrn/www/spam.tcl 14 Feb 2002 18:03:07 -0000 1.6 +++ openacs-4/packages/dotlrn/www/spam.tcl 8 Mar 2002 00:27:05 -0000 1.7 @@ -1,7 +1,7 @@ # dotlrn/www/spam.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Jan 19, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl 19 Feb 2002 19:34:45 -0000 1.3 +++ openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl 8 Mar 2002 00:27:05 -0000 1.4 @@ -1,7 +1,7 @@ # dotlrn/www/admin/add-instructor-2.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Jan 10, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl 8 Feb 2002 20:50:57 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl 8 Mar 2002 00:27:05 -0000 1.5 @@ -1,7 +1,7 @@ # dotlrn/www/admin/add-instructor-3.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Jan 10, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/admin/add-instructor.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/add-instructor.tcl 19 Feb 2002 19:34:45 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/add-instructor.tcl 8 Mar 2002 00:27:05 -0000 1.5 @@ -1,7 +1,7 @@ # dotlrn/www/admin/add-instructor.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Jan 10, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/admin/class-instance-new-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/class-instance-new-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/class-instance-new-oracle.xql 17 Dec 2001 23:02:56 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/class-instance-new-oracle.xql 8 Mar 2002 00:27:05 -0000 1.2 @@ -1,19 +1,30 @@ - oracle8.1.6 - - - select dotlrn_terms.term_name || ' ' || dotlrn_terms.term_year as term, - dotlrn_terms.term_id - from dotlrn_terms - where dotlrn_terms.end_date > sysdate - and not exists (select 1 - from dotlrn_class_instances - where dotlrn_class_instances.class_key = :class_key - and dotlrn_class_instances.term_id = dotlrn_terms.term_id) - order by dotlrn_terms.start_date - - + oracle8.1.6 + + + + select pretty_name as class_name, + description as class_description + from dotlrn_classes_full + where class_key = :class_key + + + + + + select dotlrn_terms.term_name || ' ' || dotlrn_terms.term_year as term, + dotlrn_terms.term_id + from dotlrn_terms + where dotlrn_terms.end_date > sysdate + and not exists (select 1 + from dotlrn_class_instances + where dotlrn_class_instances.class_key = :class_key + and dotlrn_class_instances.term_id = dotlrn_terms.term_id) + order by dotlrn_terms.start_date + + + Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl 7 Mar 2002 19:02:38 -0000 1.14 +++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl 8 Mar 2002 00:27:05 -0000 1.15 @@ -9,6 +9,11 @@ {referer ""} } +if {![db_0or1row select_class_info {}]} { + set class_name "" + set class_description "" +} + form create add_class_instance element create add_class_instance term \ @@ -22,13 +27,15 @@ -datatype text \ -widget text \ -html {size 60} \ + -value $class_name \ -optional element create add_class_instance description \ -label "Description" \ -datatype text \ -widget textarea \ -html {rows 5 cols 60 wrap soft} \ + -value $class_description \ -optional element create add_class_instance join_policy \ @@ -81,11 +88,10 @@ ad_script_abort } -set class_name [dotlrn_community::get_community_type_name $class_key] - set context_bar [list \ - {classes Classes} \ - [list "class?class_key=$class_key" "$class_name"] \ - {New Instance}] + {classes Classes} \ + [list "class?class_key=$class_key" "$class_name"] \ + {New Instance} \ +] ad_return_template 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.10 -r1.11 --- openacs-4/packages/dotlrn/www/admin/class.adp 7 Mar 2002 20:24:41 -0000 1.10 +++ openacs-4/packages/dotlrn/www/admin/class.adp 8 Mar 2002 00:27:05 -0000 1.11 @@ -15,7 +15,7 @@

- +
@@ -28,7 +28,7 @@

- +
Index: openacs-4/packages/dotlrn/www/admin/classes-chunk.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/classes-chunk.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/classes-chunk.adp 7 Mar 2002 20:24:41 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/classes-chunk.adp 8 Mar 2002 00:27:05 -0000 1.5 @@ -4,7 +4,7 @@

-
Term <%= [ad_parameter classes_pretty_name] %> Instance Name
+
@@ -17,7 +17,7 @@

- +
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.8 -r1.9 --- openacs-4/packages/dotlrn/www/admin/clubs.adp 7 Mar 2002 20:24:41 -0000 1.8 +++ openacs-4/packages/dotlrn/www/admin/clubs.adp 8 Mar 2002 00:27:05 -0000 1.9 @@ -7,7 +7,7 @@

-
<%= [ad_parameter departments_pretty_name] %> <%= [ad_parameter classes_pretty_name] %> Key
+
Index: openacs-4/packages/dotlrn/www/admin/departments.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/departments.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/departments.adp 7 Mar 2002 20:24:41 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/departments.adp 8 Mar 2002 00:27:05 -0000 1.5 @@ -7,7 +7,7 @@

-
<%= [ad_parameter clubs_pretty_name] %> Name Description
+
Index: openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl 6 Mar 2002 00:58:45 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl 8 Mar 2002 00:27:05 -0000 1.2 @@ -17,7 +17,7 @@ # dotlrn/www/admin/edit-preapproved-emails.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date 2002-03-05 @version $Id$ } -query { Index: openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl 20 Jan 2002 19:43:46 -0000 1.2 +++ openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl 8 Mar 2002 00:27:05 -0000 1.3 @@ -1,7 +1,7 @@ # dotlrn/www/admin/site-wide-admin-toggle.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Jan 12, 2002 @version $Id$ } -query { 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.3 -r1.4 --- openacs-4/packages/dotlrn/www/admin/term.adp 7 Mar 2002 20:24:41 -0000 1.3 +++ openacs-4/packages/dotlrn/www/admin/term.adp 8 Mar 2002 00:27:05 -0000 1.4 @@ -2,7 +2,7 @@ @title@@context_bar@ -
<%= [ad_parameter departments_pretty_name] %> Key <%= [ad_parameter departments_pretty_name] %> Name
+
@@ -20,7 +20,7 @@

- +
Index: openacs-4/packages/dotlrn/www/admin/terms.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/terms.adp,v diff -u -r1.5 -r1.6 --- openacs-4/packages/dotlrn/www/admin/terms.adp 7 Mar 2002 20:24:41 -0000 1.5 +++ openacs-4/packages/dotlrn/www/admin/terms.adp 8 Mar 2002 00:27:05 -0000 1.6 @@ -7,7 +7,7 @@

-
<%= [ad_parameter departments_pretty_name] %> <%= [ad_parameter classes_pretty_name] %>
+
Index: openacs-4/packages/dotlrn/www/admin/terms.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/terms.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/terms.tcl 17 Dec 2001 23:02:56 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/terms.tcl 8 Mar 2002 00:27:05 -0000 1.2 @@ -1,7 +1,7 @@ # dotlrn/www/admin/terms.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Dec 13, 2001 @version $Id$ } -query { Index: openacs-4/packages/dotlrn-research/www/add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/www/Attic/add.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-research/www/add.tcl 5 Mar 2002 22:38:28 -0000 1.1 +++ openacs-4/packages/dotlrn-research/www/add.tcl 8 Mar 2002 00:26:39 -0000 1.2 @@ -17,7 +17,7 @@ # dotlrn/www/research-paper-add.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Mar 04, 2002 @version $Id$ } -query { Index: openacs-4/packages/dotlrn-research/www/remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/www/Attic/remove.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn-research/www/remove.tcl 5 Mar 2002 22:38:28 -0000 1.1 +++ openacs-4/packages/dotlrn-research/www/remove.tcl 8 Mar 2002 00:26:39 -0000 1.2 @@ -17,7 +17,7 @@ # dotlrn/www/research-paper-remove.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Mar 04, 2002 @version $Id$ } -query { Index: openacs-4/packages/file-storage/www/folder-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/folder-chunk.tcl 22 Feb 2002 21:37:12 -0000 1.1 +++ openacs-4/packages/file-storage/www/folder-chunk.tcl 8 Mar 2002 00:26:11 -0000 1.2 @@ -1,7 +1,7 @@ # file-storage/www/folder-chunk.tcl ad_page_contract { - @author yon (yon@milliped.com) + @author yon (yon@openforce.net) @creation-date Feb 22, 2002 @version $Id$ } -query { Index: openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql 7 Feb 2002 03:17:01 -0000 1.1 +++ openacs-4/packages/profile-provider/sql/oracle/profiled-group-create.sql 8 Mar 2002 00:26:20 -0000 1.2 @@ -1,7 +1,7 @@ -- -- Groups that implement the profile provider interface -- --- @author yon@milliped.com +-- @author yon@openforce.net -- @version $Id$ -- Index: openacs-4/packages/profile-provider/sql/oracle/profiled-group-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/profile-provider/sql/oracle/profiled-group-drop.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/profile-provider/sql/oracle/profiled-group-drop.sql 7 Feb 2002 03:17:01 -0000 1.1 +++ openacs-4/packages/profile-provider/sql/oracle/profiled-group-drop.sql 8 Mar 2002 00:26:20 -0000 1.2 @@ -1,7 +1,7 @@ -- -- Groups that implement the profile provider interface -- --- @author yon@milliped.com +-- @author yon@openforce.net -- @version $Id$ --
Term Start Date