| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.48 2004/05/11 20:13:22 toenail Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.49 2004/05/14 18:26:11 toenail Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 60 | =cut |
60 | =cut |
| 61 | |
61 | |
| 62 | use strict; |
62 | use strict; |
| 63 | use warnings; |
63 | use warnings; |
| 64 | use CGI qw(); |
64 | use CGI qw(); |
| 65 | use WeBWorK::Utils qw(readFile readDirectory); |
65 | use WeBWorK::Utils qw(readFile readDirectory cryptPassword); |
| 66 | use Apache::Constants qw(:common REDIRECT DONE); #FIXME -- this should be called higher up in the object tree. |
66 | use Apache::Constants qw(:common REDIRECT DONE); #FIXME -- this should be called higher up in the object tree. |
| 67 | use constant HIDE_USERS_THRESHHOLD => 20; |
67 | use constant HIDE_USERS_THRESHHOLD => 20; |
| 68 | use constant EDIT_FORMS => [qw(cancelEdit saveEdit)]; |
68 | use constant EDIT_FORMS => [qw(cancelEdit saveEdit)]; |
| 69 | use constant VIEW_FORMS => [qw(filter edit import export add delete)]; |
69 | use constant VIEW_FORMS => [qw(filter edit import export add delete)]; |
| 70 | use constant STATE_PARAMS => [qw(user effectiveUser key visible_users no_visible_users prev_visible_users no_prev_visible_users editMode sortField)]; |
70 | use constant STATE_PARAMS => [qw(user effectiveUser key visible_users no_visible_users prev_visible_users no_prev_visible_users editMode sortField)]; |