Index: openacs-4/packages/dotlrn/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/index.adp	7 Nov 2001 15:52:19 -0000	1.1
@@ -0,0 +1,15 @@
+<master src="../master">
+<property name="title">dotLRN Admin</property>
+
+<h3>dotLRN users</h3>
+<ul>
+<multiple name="users">
+<li> @users.last_name@, @users.first_names@
+</multiple>
+</ul>
+
+<form method=get action=user-new>
+Add a new dotLRN user: <input type=text name=search_text> <input type=submit value=search>
+</form>
+
+
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/index.tcl	7 Nov 2001 15:52:19 -0000	1.1
@@ -0,0 +1,14 @@
+
+
+ad_page_contract {
+    Displays main dotLRN admin page
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-11-04
+} {
+}
+
+# Currently, just present a list of dotLRN users
+db_multirow users select_dotlrn_users {}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/admin/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/index.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/index.xql	7 Nov 2001 15:52:19 -0000	1.1
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="select_dotlrn_users">
+<querytext>
+select first_names, last_name from dotlrn_users, registered_users where dotlrn_users.user_id= registered_users.user_id
+</querytext>
+</fullquery>
+
+</queryset>
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl	7 Nov 2001 15:52:19 -0000	1.1
@@ -0,0 +1,15 @@
+
+ad_page_contract {
+    Add an actual user
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-11-04
+} {
+    user_id
+}
+
+# Add the user
+dotlrn::user_add $user_id
+
+ad_returnredirect "./"
+
Index: openacs-4/packages/dotlrn/www/admin/user-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/user-new.adp	7 Nov 2001 15:52:19 -0000	1.1
@@ -0,0 +1,12 @@
+<master src="../master">
+<property name="title">dotLRN Admin: Add a User</property>
+
+The results of your search are:
+<ul>
+<multiple name="users">
+<li> <a href=user-new-2?user_id=@users.user_id@>@users.last_name@, @users.first_names@ (@users.email@)
+</multiple>
+</ul>
+
+
+
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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/user-new.tcl	7 Nov 2001 15:52:19 -0000	1.1
@@ -0,0 +1,14 @@
+
+ad_page_contract {
+    Search for a new user for dotLRN
+    
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-11-04
+} {
+    search_text
+}
+
+# Just search
+db_multirow users select_users {}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/admin/user-new.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/user-new.xql	7 Nov 2001 15:52:19 -0000	1.1
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="select_users">
+<querytext>
+select user_id, first_names, last_name, email from registered_users where lower(last_name) like lower('%' || :search_text || '%') or lower(email) like lower('%' || :search_text || '%') and user_id not in (select user_id from dotlrn_users)
+</querytext>
+</fullquery>
+
+</queryset>