Index: openacs-4/packages/dotlrn/www/classes.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/classes.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/classes.adp	7 Nov 2001 22:22:56 -0000	1.1
@@ -0,0 +1,11 @@
+<master src="master">
+<property name="title">dotLRN Classes</property>
+
+Choose from the following classes:
+<p>
+
+<ul>
+<multiple name="classes">
+<li> <a href=@classes.class_key@/one-community-type>@classes.pretty_name@</a>
+</multiple>
+</ul>
Index: openacs-4/packages/dotlrn/www/classes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/classes.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/classes.tcl	7 Nov 2001 22:22:56 -0000	1.1
@@ -0,0 +1,15 @@
+
+ad_page_contract {
+    Displays the list of classes that can be subscribed to
+    
+    @author Ben Adida (ben@openforce)
+    @creation-date 2001-11-07
+} {
+} -properties {
+    classes:multirow
+}
+
+# Get classes
+db_multirow classes select_classes {}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/classes.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/classes.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/classes.xql	7 Nov 2001 22:22:56 -0000	1.1
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="select_classes">
+<querytext>
+select class_key, pretty_name from dotlrn_classes_full order by pretty_name
+</querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/dotlrn/www/one-community-admin-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-admin-users.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/one-community-admin-users.tcl	7 Nov 2001 22:22:56 -0000	1.1
@@ -0,0 +1,24 @@
+
+
+ad_page_contract {
+    Admin the admin users of a community
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-10-05
+} {
+}
+
+# Get basic information
+set user_id [ad_get_user_id]
+set community_id [dotlrn_community::get_community_id]
+
+# Get current admin users
+set admin_users [dotlrn_community::list_admin_users $community]
+
+template::multirow create admins user_id first_names last_name email role
+
+foreach admin $admin_users {
+    template::multirow append admins [lindex $admin 1] [lindex $admin 2] [lindex $admin 3] [lindex $admin 4] [lindex $admin 5]
+}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/admin/one-class-instance.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/one-class-instance.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/one-class-instance.adp	7 Nov 2001 22:22:56 -0000	1.1
@@ -0,0 +1,13 @@
+<master src="./master">
+<property name="title">dotLRN Class Instance</property>
+
+<h3>Users</h3>
+<ul>
+<multiple name="users">
+<li> @users.last_name@, @users.first_names@ (<a href=mailto:@users.email@>@users.email@</a>)
+</multiple>
+
+<p>
+
+<li> <a href=user-new>add a user</a>
+</ul>
Index: openacs-4/packages/dotlrn/www/admin/one-class-instance.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/one-class-instance.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/one-class-instance.tcl	7 Nov 2001 22:22:56 -0000	1.1
@@ -0,0 +1,26 @@
+
+ad_page_contract {
+    Displays single dotLRN class instance page
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-11-07
+} {
+    class_instance_id
+}
+
+# Get information about that class
+if {![db_0or1row select_class_instance_info {}]} {
+    ad_returnredirect "classes"
+    return
+}
+
+# Get all users for this community, including role
+set users [dotlrn_community::list_users $class_instance_id]
+
+template::multirow create users rel_id rel_type user_id first_names last_name email
+
+foreach user $users {
+    template::multirow append users [lindex $user 0] [lindex $user 1] [lindex $user 2] [lindex $user 3] [lindex $user 4] [lindex $user 5]
+}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/admin/one-class-instance.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/one-class-instance.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/one-class-instance.xql	7 Nov 2001 22:22:56 -0000	1.1
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="select_class_instance_info">
+<querytext>
+select class_key, pretty_name, description from dotlrn_class_instances_full where class_instance_id= :class_instance_id
+</querytext>
+</fullquery>
+
+</queryset>