| |
2 |
2 |
by a bunch of folks including philg@mit.edu and teadams@arsdigita.com |
| |
3 |
3 |
modified by philg on October 30, 1999 to cache the page |
| |
4 |
4 |
(sequentially scanning through users and such was slowing it down) |
| |
5 |
5 |
|
| |
6 |
6 |
modified by aure@caltech.edu on February 4, 2000 to make the page more |
| |
7 |
7 |
user friendly |
| |
8 |
8 |
|
| |
9 |
9 |
we define this procedure here in the file because we don't care if |
| |
10 |
10 |
it gets reparsed; it is RDBMS load that was slowing stuff down. We also |
| |
11 |
11 |
want programmers to have an easy way to edit this page. |
| |
12 |
12 |
|
| |
13 |
13 |
@cvs-id $Id$ |
| |
14 |
14 |
@author Multiple |
| |
15 |
15 |
} |
| |
16 |
16 |
|
| |
17 |
17 |
set context [list "Users"] |
| |
18 |
18 |
|
| |
19 |
19 |
db_1row users_n_users {} |
| |
20 |
20 |
db_1row users_deleted_users {} |
| |
21 |
21 |
|
| |
22 |
|
set n_users [util_commify_number $n_users] |
| |
|
22 |
set n_users [lc_numeric $n_users] |
| |
23 |
23 |
set last_registration [lc_time_fmt $last_registration "%q"] |
| |
24 |
24 |
|
| |
25 |
25 |
set groups "<option value='' selected>--</option>\n" |
| |
26 |
26 |
append groups [db_html_select_value_options groups_select { |
| |
27 |
27 |
select groups.group_id, groups.group_name |
| |
28 |
28 |
from groups, |
| |
29 |
29 |
(select distinct group_id from group_member_map) m, |
| |
30 |
30 |
(select distinct group_id from group_component_map) c |
| |
31 |
31 |
where groups.group_id = m.group_id |
| |
32 |
32 |
and groups.group_id = c.group_id |
| |
33 |
33 |
order by group_name |
| |
34 |
34 |
} ] |
| |
35 |
35 |
|
| |
36 |
36 |
# Local variables: |
| |
37 |
37 |
# mode: tcl |
| |
38 |
38 |
# tcl-indent-level: 4 |
| |
39 |
39 |
# indent-tabs-mode: nil |
| |
40 |
40 |
# End: |
