Index: openacs-4/packages/acs-admin/www/users/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/index.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/users/index.tcl 19 Oct 2003 19:06:58 -0000 1.4 +++ openacs-4/packages/acs-admin/www/users/index.tcl 3 Nov 2003 17:04:12 -0000 1.5 @@ -1,275 +1,38 @@ -# ad_proc ad_admin_users_index_dot_tcl_whole_page {} { +ad_page_contract { + by a bunch of folks including philg@mit.edu and teadams@arsdigita.com + modified by philg on October 30, 1999 to cache the page + (sequentially scanning through users and such was slowing it down) + + modified by aure@caltech.edu on February 4, 2000 to make the page more + user friendly + + we define this procedure here in the file because we don't care if + it gets reparsed; it is RDBMS load that was slowing stuff down. We also + want programmers to have an easy way to edit this page. - ad_page_contract { - by a bunch of folks including philg@mit.edu and teadams@arsdigita.com - modified by philg on October 30, 1999 to cache the page - (sequentially scanning through users and such was slowing it down) - - modified by aure@caltech.edu on February 4, 2000 to make the page more - user friendly - - we define this procedure here in the file because we don't care if - it gets reparsed; it is RDBMS load that was slowing stuff down. We also - want programmers to have an easy way to edit this page. + @cvs-id $Id$ + @author Multiple +} - @cvs-id $Id$ - @author Multiple - } {} -properties { - context:onevalue - n_users:onevalue - n_deleted_users:onevalue - last_registration:onevalue - groups:onevalue - } +set context [list "Users"] - set context [list "Users"] +db_1row users_n_users {} +db_1row users_deleted_users {} - db_1row users_n_users {} - db_1row users_deleted_users {} +set n_users [util_commify_number $n_users] +set last_registration [lc_time_fmt $last_registration "%q"] - set n_users [util_commify_number $n_users] - set last_registration [lc_time_fmt $last_registration "%q"] - set groups [db_html_select_value_options groups_select { -select groups.group_id, - groups.group_name, - m.num as n_members, - c.num as n_components -from groups, - (select group_id, count(*) as num - from group_member_map group by group_id) m, - (select group_id, count(*) as num - from group_component_map group by group_id) c -where groups.group_id=m.group_id - and groups.group_id = c.group_id -order by group_name + select groups.group_id, + groups.group_name, + m.num as n_members, + c.num as n_components + from groups, + (select group_id, count(*) as num + from group_member_map group by group_id) m, + (select group_id, count(*) as num + from group_component_map group by group_id) c + where groups.group_id=m.group_id + and groups.group_id = c.group_id + order by group_name } ] - - ad_return_template - -# } - -# doc_return 200 text/html [util_memoize "ad_admin_users_index_dot_tcl_whole_page"] - - -# The code below used to be in this file, but was temporarily taken out for ACS 4.0 - -# set state_list "" - -# db_foreach member_states "select count(member_state) -# as num_in_state, member_state -# from cc_users -# group by member_state" { -# set member_state_num($member_state) [util_commify_number $num_in_state] -# } - -# if {[ad_parameter RegistrationRequiresApprovalP "" 0] && [info exists member_state_num(need_admin_approv)]} { -# lappend state_list "need_admin_approv ($member_state_num(need_admin_approv))" -# } - -# if {[ad_parameter RegistrationRequiresApprovalP "" 0] && [ad_parameter RegistrationRequiresEmailVerificationP "" 0] && [info exists member_state_num(need_email_verification_and_admin_approv)]} { -# lappend state_list "need_email_verification_and_admin_approv ($member_state_num(need_email_verification_and_admin_approv))" -# } - -# if {[ad_parameter RegistrationRequiresEmailVerificationP "" 0] && [info exists member_state_num(need_email_verification)]} { -# lappend state_list "need_email_verification ($member_state_num(need_email_verification))" -# } - -# if [info exists member_state_num(authorized)] { -# lappend state_list "authorized ($member_state_num(authorized))" -# } - -# if [info exists member_state_num(banned)] { -# lappend state_list "banned ($member_state_num(banned))" -# } - -# if [info exists member_state_num(deleted)] { -# lappend state_list "deleted ($member_state_num(deleted))" -# } - -# append whole_page " -#
  • Users in state: [join $state_list " | "] -#

    -# " - - - # XXX Not in ACS 40, but will be added later - # db_1row user_sessions " - # select - # sum(session_count) as total_sessions, - # sum(repeat_count) as total_repeats - # from session_statistics" - - # if [empty_string_p $total_sessions] { - # set total_sessions 0 - # } - # if [empty_string_p $total_repeats] { - # set total_repeats 0 - # } - - # set spam_count [db_string unused " - # select sum(n_sent) from spam_history"] - # if [empty_string_p $spam_count] { - # set spam_count 0 - # } - - - #

  • registered sessions: by days since last login - #
  • total sessions (includes unregistered users): - # [util_commify_number $total_sessions] ([util_commify_number $total_repeats] repeats) - #

    - - #

  • Review spam history - # ([util_commify_number $spam_count] sent) - - -# append whole_page " -#

    Pick a user class

    -# -# " - -# if {[ad_parameter AllowAdminSQLQueries "" 0] == 1} { -# append whole_page "
    -#

    Select by SQL

    -#
    -# select users.*
    -#
    -# example: from users where user_id < 1000 -#
    -# -#
    -#
    -#
    " -# } - - - -