| Line 24... |
Line 24... |
| 24 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
24 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
| 25 |
my $YEAR;
|
25 |
my $YEAR;
|
| Line 26... |
Line 26... |
| 26 |
|
26 |
|
| 27 |
my $pageTitle = "User Report";
|
27 |
my $pageTitle = "User Report";
|
| 28 |
my $prefscookie = "userreport";
|
28 |
my $prefscookie = "userreport";
|
| 29 |
our $DBTABLE = 'official';
|
29 |
our $DBTABLE = 'v_official';
|
| 30 |
my %COLUMNS = (
|
30 |
my %COLUMNS = (
|
| 31 |
# colname => [qw(DisplayName N type status)], status -> static | default | <blank>
|
31 |
# colname => [qw(DisplayName N type status)], status -> static | default | <blank>
|
| 32 |
RCid => [qw(ID 5 number )],
|
32 |
RCid => [qw(ID 5 number )],
|
| 33 |
derby_name => [qw(DerbyName 10 text default )],
|
33 |
derby_name => [qw(DerbyName 10 text default )],
|
| 34 |
email => [qw(Email 15 text default )],
|
34 |
email => [qw(Email 15 text default )],
|
| 35 |
real_name => [qw(RealName 20 text default )],
|
35 |
real_name => [qw(RealName 20 text default )],
|
| 36 |
pronouns => [qw(Pronouns 25 text default )],
|
36 |
pronouns => [qw(Pronouns 25 text default )],
|
| 37 |
tshirt => [qw(TShirtSize 30 select default )],
|
37 |
tshirt => [qw(TShirtSize 30 select default )],
|
| 38 |
phone => [qw(Phone 35 text )],
|
38 |
phone => [qw(Phone 35 text )],
|
| 39 |
access => [qw(vOrcAccess 40 select )],
|
39 |
access => [qw(vOrcAccess 40 select )],
|
| 40 |
mvp_pass => [qw(MVPPass 42 select )],
|
40 |
MVPid => [qw(MVPPass 42 select )],
|
| 41 |
department => [qw(Department 45 select default )],
|
41 |
department => [qw(Department 45 select default )],
|
| 42 |
added => [qw(Added 50 date )],
|
42 |
added => [qw(Added 50 date )],
|
| 43 |
last_login => [qw(LastLogin 55 date )]
|
43 |
last_login => [qw(LastLogin 55 date )]
|
| Line 126... |
Line 126... |
| 126 |
|
126 |
|
| 127 |
return $FORM{autoload} ? $h->select ({ name=>"filter-access", onChange=>"page.value = 1; submit();" }, [@options]) : $h->select ({ name=>"filter-access" }, [$h->option (), @options]);
|
127 |
return $FORM{autoload} ? $h->select ({ name=>"filter-access", onChange=>"page.value = 1; submit();" }, [@options]) : $h->select ({ name=>"filter-access" }, [$h->option (), @options]);
|
| 128 |
}
|
128 |
}
|
| Line -... |
Line 129... |
| - |
|
129 |
}
|
| - |
|
130 |
|
| - |
|
131 |
sub filter_MVPid {
|
| - |
|
132 |
my $colName = shift;
|
| - |
|
133 |
my $filter = shift // "";
|
| - |
|
134 |
|
| - |
|
135 |
if ($filter) {
|
| - |
|
136 |
return $filter =~ /^R-/ ? "$colName = '$filter'" : $filter eq "pass" ? "isnull($colName) = 0" : "isnull($colName) = 1";
|
| - |
|
137 |
} else {
|
| - |
|
138 |
my @options = ("", "pass", "no pass");
|
| - |
|
139 |
my $dbh = getRCDBH;
|
| - |
|
140 |
push @options, map { @{$_} } $dbh->selectall_array ("select MVPid from RCid_ticket_link order by MVPid");
|
| - |
|
141 |
|
| - |
|
142 |
@options = map { $FORM{"filter-MVPid"} eq $_ ?
|
| - |
|
143 |
( $h->option ({ selected=>[] }, $_) ) :
|
| - |
|
144 |
( $h->option ( $_) ) } @options;
|
| - |
|
145 |
|
| - |
|
146 |
return $FORM{autoload} ? $h->select ({ name=>"filter-MVPid", onChange=>"page.value = 1; submit();" }, [@options]) : $h->select ({ name=>"filter-MVPid" }, [$h->option (), @options]);
|
| - |
|
147 |
}
|
| 129 |
}
|
148 |
}
|
| 130 |
|
149 |
|
| Line 131... |
Line 150... |
| 131 |
# Ideally, nothing below this comment needs to change
|
150 |
# Ideally, nothing below this comment needs to change
|