| Line 30... |
Line 30... |
| 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(FullName 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 |
MVPid => [qw(MVPPass 42 select )],
|
40 |
MVPid => [qw(MVPPass 42 select )],
|
| Line 181... |
Line 181... |
| 181 |
$FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
|
181 |
$FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
|
| 182 |
} elsif ($FORM{$_} eq "true") # Compile list of fields to display
|
182 |
} elsif ($FORM{$_} eq "true") # Compile list of fields to display
|
| 183 |
{ push @displayFields, $_; }
|
183 |
{ push @displayFields, $_; }
|
| 184 |
}
|
184 |
}
|
| Line 185... |
Line -... |
| 185 |
|
- |
|
| 186 |
|
185 |
|
| 187 |
if (exists $FORM{autoload}) { # If the FORM was submitted (i.e. the page is being redisplayed),
|
186 |
if (exists $FORM{autoload}) { # If the FORM was submitted (i.e. the page is being redisplayed),
|
| 188 |
# build the data for the cookie that remembers the page setup
|
187 |
# build the data for the cookie that remembers the page setup
|
| 189 |
my $disFields = join ":", @displayFields;
|
188 |
my $disFields = join ":", @displayFields;
|
| Line 190... |
Line 189... |
| 190 |
my $fils = join ":", map { "$_=$FILTER->{$_}" } keys %{$FILTER};
|
189 |
my $fils = join ":", map { "$_=$FILTER->{$_}" } keys %{$FILTER};
|
| 191 |
|
190 |
|
| Line 192... |
Line -... |
| 192 |
$QUERY_STRING = $disFields.'&'.$fils.'&'.$FORM{sortby}.'&'.$FORM{autoload};
|
- |
|
| 193 |
}
|
191 |
$QUERY_STRING = $disFields.'&'.$fils.'&'.$FORM{sortby}.'&'.$FORM{autoload};
|
| 194 |
|
192 |
}
|
| 195 |
|
193 |
|
| 196 |
if (!(exists $FORM{autoload})) { # No FORM was submitted...
|
194 |
if (!(exists $FORM{autoload})) { # No FORM was submitted...
|
| Line 248... |
Line 246... |
| 248 |
}
|
246 |
}
|
| Line 249... |
Line 247... |
| 249 |
|
247 |
|
| Line 250... |
Line 248... |
| 250 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
|
248 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
|
| 251 |
|
249 |
|
| 252 |
# Set some cookie stuff...
|
250 |
# Set some cookie stuff...
|
| 253 |
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
|
251 |
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
|
| 254 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
252 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
| 255 |
-VALUE=>"$QUERY_STRING",
|
253 |
-VALUE=>"$QUERY_STRING",
|
| Line 409... |
Line 407... |
| 409 |
$h->br,
|
407 |
$h->br,
|
| 410 |
$h->a ({ href=>"", target=>"_new", onClick=>"window.document.Req.excel.value=1; window.document.Req.submit(); window.document.Req.excel.value=0; return false;" }, "[Export Displayed Data as an Excel Document.]"),
|
408 |
$h->a ({ href=>"", target=>"_new", onClick=>"window.document.Req.excel.value=1; window.document.Req.submit(); window.document.Req.excel.value=0; return false;" }, "[Export Displayed Data as an Excel Document.]"),
|
| 411 |
$h->br,
|
409 |
$h->br,
|
| 412 |
"This page was displayed on ", currentTime (),
|
410 |
"This page was displayed on ", currentTime (),
|
| 413 |
$h->br,
|
411 |
$h->br,
|
| 414 |
"Please direct questions, problems, and concerns to Officials.RollerCon.Schedule\@gmail.com"
|
412 |
"Please direct questions, problems, and concerns to $SYSTEM_EMAIL"
|
| 415 |
])
|
413 |
])
|
| 416 |
]),
|
414 |
]),
|
| 417 |
$h->div ({ class=>"spRight" }, [
|
415 |
$h->div ({ class=>"spRight" }, [
|
| 418 |
$h->h5 ([
|
416 |
$h->h5 ([
|
| 419 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|
417 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|