Index: openacs-4/packages/dotlrn/www/admin/users-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/users-chunk.tcl	30 Jan 2002 22:54:59 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/users-chunk.tcl	30 Jan 2002 23:32:41 -0000	1.2
@@ -1,30 +1,13 @@
 ad_page_contract {
-    Displays main dotLRN admin 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}
+    {section ""}
 } -properties {
-    control_bar:onevalue
-    n_users:onevalue
+    user_id:onevalue
 }
 
-set control_bar [ad_dimensional {
-    {type {User Type:} admin
-        {
-            {admin Administrators {}}
-            {professor Professors {}}
-            {student Students {}}
-            {pending Pending {}}
-        }
-    }
-}]
+set user_id [ad_conn user_id]
 
-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