Index: openacs-4/packages/dotlrn/www/admin/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/admin/users.tcl	30 Jan 2002 22:54:59 -0000	1.7
+++ openacs-4/packages/dotlrn/www/admin/users.tcl	30 Jan 2002 23:32:41 -0000	1.8
@@ -1,13 +1,34 @@
 ad_page_contract {
-    Displays main dotLRN admin page
+    Displays the admin users page
 
-    @author Ben Adida (ben@openforce.net)
-    @creation-date 2001-11-04
+    @author yon (yon@openforce.net)
+    @creation-date 2002-01-30
+    @version $Id$
 } -query {
+    {type admin}
 } -properties {
     context_bar:onevalue
+    control_bar:onevalue
+    n_users:onevalue
 }
 
 set context_bar {Users}
 
+set control_bar [ad_dimensional {
+    {type {User Type:} admin
+        {
+            {admin Administrators {}}
+            {professor Professors {}}
+            {student Students {}}
+            {pending Pending {}}
+        }
+    }
+}]
+
+if {[string equal $type "pending"] == 1} {
+    set n_users [db_string select_non_dotlrn_users_count {}]
+} else {
+    set n_users [db_string select_dotlrn_users_count {}]
+}
+
 ad_return_template