Index: openacs-4/packages/dotlrn/www/applet-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-remove.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn/www/applet-remove.tcl 19 Jan 2002 22:57:41 -0000 1.3 +++ openacs-4/packages/dotlrn/www/applet-remove.tcl 20 Jan 2002 19:43:46 -0000 1.4 @@ -1,10 +1,9 @@ - ad_page_contract { Add an applet to a community @author Ben Adida (ben@openforce.net) @creation-date 2001-10-08 -} { +} -query { community_id applet_key } Index: openacs-4/packages/dotlrn/www/applets-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applets-chunk.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/applets-chunk.tcl 19 Jan 2002 22:54:20 -0000 1.1 +++ openacs-4/packages/dotlrn/www/applets-chunk.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -6,7 +6,6 @@ @creation-date 2001-10-05 @version $Id$ } -query { -} -properties { } set community_id [dotlrn_community::get_community_id] Index: openacs-4/packages/dotlrn/www/applets.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applets.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/applets.tcl 19 Jan 2002 22:54:20 -0000 1.1 +++ openacs-4/packages/dotlrn/www/applets.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -5,7 +5,6 @@ @creation-date 2002-01-19 @version $Id$ } -query { -} -properties { } set context_bar {{"one-community-admin" Admin} {Manage Applets}} Index: openacs-4/packages/dotlrn/www/community-type.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-type.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/community-type.tcl 11 Dec 2001 00:45:15 -0000 1.1 +++ openacs-4/packages/dotlrn/www/community-type.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -5,7 +5,6 @@ @author yon (yon@openforce.net) @creation-date 2001-10-04 } -query { -} -properties { } # Check that this is a community type Index: openacs-4/packages/dotlrn/www/community.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/community.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/community.tcl 11 Dec 2001 00:45:15 -0000 1.1 +++ openacs-4/packages/dotlrn/www/community.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -1,10 +1,9 @@ - ad_page_contract { Displays a community @author Ben Adida (ben@openforce.net) @creation-date 2001-10-04 -} { +} -query { } ns_log Notice "BEN TEST!" Index: openacs-4/packages/dotlrn/www/configure-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/configure-2.tcl 1 Dec 2001 23:16:27 -0000 1.2 +++ openacs-4/packages/dotlrn/www/configure-2.tcl 20 Jan 2002 19:43:46 -0000 1.3 @@ -1,12 +1,10 @@ - ad_page_contract { A simple target for the portal configuration @author Arjun Sanyal (arjun@openforce.net) @author Ben Adida (ben@openforce.net) @creation-date 2001-10-24 -} { - +} -query { } Index: openacs-4/packages/dotlrn/www/configure-element-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-element-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/configure-element-2.tcl 10 Nov 2001 20:16:43 -0000 1.1 +++ openacs-4/packages/dotlrn/www/configure-element-2.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -1,11 +1,10 @@ - ad_page_contract { A simple target for the portal element configuration @author Arjun Sanyal (arjun@openforce.net) @author Ben Adida (ben@openforce.net) @creation-date 2001-10-24 -} { +} -query { element_id:integer key value Index: openacs-4/packages/dotlrn/www/configure-element.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-element.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/configure-element.tcl 1 Dec 2001 23:16:27 -0000 1.2 +++ openacs-4/packages/dotlrn/www/configure-element.tcl 20 Jan 2002 19:43:46 -0000 1.3 @@ -5,7 +5,7 @@ @author Ben Adida (ben@openforce.net) @author Arjun Sanyal (arjun@openforce.net) @creation-date 2001-10-24 -} { +} -query { element_id:naturalnum,notnull op:notnull } Index: openacs-4/packages/dotlrn/www/configure.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/configure.tcl 19 Jan 2002 22:54:20 -0000 1.4 +++ openacs-4/packages/dotlrn/www/configure.tcl 20 Jan 2002 19:43:46 -0000 1.5 @@ -1,4 +1,3 @@ - ad_page_contract { Displays a configuration page Index: openacs-4/packages/dotlrn/www/install.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/install.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/install.tcl 8 Oct 2001 21:39:05 -0000 1.1 +++ openacs-4/packages/dotlrn/www/install.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -1,4 +1,3 @@ - dotlrn::install ns_returnredirect "./" Index: openacs-4/packages/dotlrn/www/member-add-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-2.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/member-add-2.adp 20 Jan 2002 19:17:39 -0000 1.2 +++ openacs-4/packages/dotlrn/www/member-add-2.adp 20 Jan 2002 19:43:46 -0000 1.3 @@ -1,4 +1,4 @@ - + Add A Member To A Community You're adding @first_names@ @last_name@ (@email@):

Index: openacs-4/packages/dotlrn/www/member-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/member-add.adp 20 Jan 2002 19:17:39 -0000 1.2 +++ openacs-4/packages/dotlrn/www/member-add.adp 20 Jan 2002 19:43:46 -0000 1.3 @@ -1,4 +1,4 @@ - + Add A Member To A Community @context_bar@ Index: openacs-4/packages/dotlrn/www/members.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/members.tcl 19 Jan 2002 22:54:20 -0000 1.1 +++ openacs-4/packages/dotlrn/www/members.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -5,7 +5,6 @@ @creation-date Jan 19, 2002 @version $Id$ } -query { -} -properties { } set context_bar {{"one-community-admin" Admin} {Manage Members}} Index: openacs-4/packages/dotlrn/www/one-community-portal-template-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/one-community-portal-template-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn/www/one-community-portal-template-2.tcl 11 Dec 2001 00:45:15 -0000 1.2 +++ openacs-4/packages/dotlrn/www/one-community-portal-template-2.tcl 20 Jan 2002 19:43:46 -0000 1.3 @@ -4,7 +4,8 @@ @author Arjun Sanyal (arjun@openforce.net) @version $Id$ -} { } +} -query { +} set form [ns_getform] set portal_id [ns_set get $form portal_id] Index: openacs-4/packages/dotlrn/www/one-community.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/dotlrn/www/one-community.tcl 11 Jan 2002 21:51:51 -0000 1.13 +++ openacs-4/packages/dotlrn/www/one-community.tcl 20 Jan 2002 19:43:46 -0000 1.14 @@ -6,7 +6,6 @@ @creation-date 2001-10-04 @version $Id$ } -query { -} -properties { } # Check that this is a community type Index: openacs-4/packages/dotlrn/www/student-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/student-list.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/student-list.tcl 10 Jan 2002 19:30:18 -0000 1.4 +++ openacs-4/packages/dotlrn/www/student-list.tcl 20 Jan 2002 19:43:46 -0000 1.5 @@ -3,7 +3,7 @@ @author Ben Adida (ben@openforce.net) @creation-date 2001-10-09 -} { +} -query { } # Check that this is a community type 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.2 -r1.3 --- openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl 20 Jan 2002 17:20:45 -0000 1.2 +++ openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl 20 Jan 2002 19:43:46 -0000 1.3 @@ -8,7 +8,6 @@ user_id:integer,notnull community_id:integer,notnull {referer ""} -} -properties { } set is_dotlrn_user [db_string is_dotlrn_user {}] Index: openacs-4/packages/dotlrn/www/admin/add-instructor.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/add-instructor.adp 10 Jan 2002 21:19:32 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/add-instructor.adp 20 Jan 2002 19:43:46 -0000 1.2 @@ -1,11 +1,11 @@ - + dotLRN Admin @context_bar@

Add an Instructor

- + Add an Instructor: 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.2 -r1.3 --- openacs-4/packages/dotlrn/www/admin/add-instructor.tcl 10 Jan 2002 23:42:45 -0000 1.2 +++ openacs-4/packages/dotlrn/www/admin/add-instructor.tcl 20 Jan 2002 19:43:46 -0000 1.3 @@ -7,7 +7,6 @@ } -query { community_id:integer,notnull {referer "./"} -} -properties { } set context_bar {{Add an Instructor}} Index: openacs-4/packages/dotlrn/www/admin/club.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn/www/admin/club.tcl 17 Dec 2001 23:02:56 -0000 1.3 +++ openacs-4/packages/dotlrn/www/admin/club.tcl 20 Jan 2002 19:43:46 -0000 1.4 @@ -4,7 +4,7 @@ @author yon (yon@openforce.net) @creation-date 2001-12-03 @version $Id$ -} { +} -query { } -properties { club_id:onevalue pretty_name:onevalue Index: openacs-4/packages/dotlrn/www/admin/clubs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/clubs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/clubs.tcl 15 Jan 2002 20:47:02 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/clubs.tcl 20 Jan 2002 19:43:46 -0000 1.5 @@ -6,7 +6,7 @@ @author yon (yon@openforce.net) @creation-date 2001-12-03 @version $Id$ -} { +} -query { } -properties { title:onevalue context_bar:onevalue Index: openacs-4/packages/dotlrn/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/index.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn/www/admin/index.tcl 10 Dec 2001 22:48:57 -0000 1.4 +++ openacs-4/packages/dotlrn/www/admin/index.tcl 20 Jan 2002 19:43:46 -0000 1.5 @@ -3,7 +3,7 @@ @author Ben Adida (ben@openforce.net) @creation-date 2001-11-04 -} { +} -query { } set context_bar {} 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.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl 12 Jan 2002 09:27:40 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -8,7 +8,6 @@ user_id value {referer "users"} -} -properties { } if {[string equal $value "grant"] == 1} { Index: openacs-4/packages/dotlrn/www/admin/term.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/term.tcl 17 Dec 2001 23:02:56 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/term.tcl 20 Jan 2002 19:43:46 -0000 1.2 @@ -4,7 +4,7 @@ @author yon (yon@openforce.net) @creation-date 2001-12-03 @version $Id$ -} { +} -query { } -properties { term_id:onevalue term_name:onevalue Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 12 Jan 2002 09:27:16 -0000 1.9 +++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 20 Jan 2002 19:43:46 -0000 1.10 @@ -3,7 +3,7 @@ @author Ben Adida (ben@openforce.net) @creation-date 2001-11-04 -} { +} -query { user_id } Index: openacs-4/packages/dotlrn/www/admin/user-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn/www/admin/user-new.tcl 10 Jan 2002 21:19:32 -0000 1.3 +++ openacs-4/packages/dotlrn/www/admin/user-new.tcl 20 Jan 2002 19:43:46 -0000 1.4 @@ -3,7 +3,7 @@ @author Ben Adida (ben@openforce.net) @creation-date 2001-11-04 -} { +} -query { search_text }