Index: openacs-4/packages/dotlrn/www/community-deregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/community-deregister.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/community-deregister.tcl	9 Oct 2001 15:02:49 -0000	1.1
@@ -0,0 +1,17 @@
+
+ad_page_contract {
+    deregister
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-10-06
+} {
+}
+
+ad_maybe_redirect_for_registration
+
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
+
+dotlrn_community::remove_user $community_id $user_id
+
+ns_returnredirect ./
Index: openacs-4/packages/dotlrn/www/student-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/student-list.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/student-list.adp	9 Oct 2001 15:02:49 -0000	1.1
@@ -0,0 +1,8 @@
+<master src="master">
+<property name="title">@pretty_name@ - Student List</property>
+
+<ul>
+<multiple name=students>
+<li> @last_name@, @first_names@ (<a href=mailto:@email@>@email@</a>)
+</multiple>
+</ul>
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/student-list.tcl	9 Oct 2001 15:02:49 -0000	1.1
@@ -0,0 +1,33 @@
+
+ad_page_contract {
+    Displays a community student list
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-10-09
+} {
+}
+
+# Check that this is a community type
+if {[ad_parameter community_level_p] != 1} {
+    ns_returnredirect "./"
+    return
+}
+
+set user_id [ad_conn user_id]
+
+# What community type are we at?
+set community_id [dotlrn_community::get_community_id]
+
+# Get basic information
+db_1row select_community_info {}
+
+set list_of_students [dotlrn_community::list_users $community_id]
+
+template::multirow create students user_id first_names last_name email
+
+foreach student $list_of_students {
+    ns_log Notice "one student - $student"
+    template::multirow append students [lindex $student 1] [lindex $student 2] [lindex $student 3] [lindex $student 4]
+}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/student-list.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/student-list.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/student-list.xql	9 Oct 2001 15:02:49 -0000	1.1
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="select_community_info">
+<querytext>
+select pretty_name from dotlrn_communities where community_id = :community_id
+</querytext>
+</fullquery>
+
+</queryset>