| Line 147... |
Line 147... |
| 147 |
}
|
147 |
}
|
| Line 148... |
Line 148... |
| 148 |
|
148 |
|
| Line 149... |
Line 149... |
| 149 |
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.";
|
149 |
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.";
|
| 150 |
|
150 |
|
| 151 |
# Set some cookie stuff...
|
151 |
# Set some cookie stuff...
|
| 152 |
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
|
152 |
my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";
|
| 153 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
153 |
my $queryCookie = cookie(-NAME=>$prefscookie,
|
| 154 |
-VALUE=>"$QUERY_STRING",
|
154 |
-VALUE=>"$QUERY_STRING",
|
| Line 312... |
Line 312... |
| 312 |
$h->br,
|
312 |
$h->br,
|
| 313 |
$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.]"),
|
313 |
$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.]"),
|
| 314 |
$h->br,
|
314 |
$h->br,
|
| 315 |
"This page was displayed on ", currentTime (),
|
315 |
"This page was displayed on ", currentTime (),
|
| 316 |
$h->br,
|
316 |
$h->br,
|
| 317 |
"Please direct questions, problems, and concerns to Officials.RollerCon.Schedule\@gmail.com"
|
317 |
"Please direct questions, problems, and concerns to $SYSTEM_EMAIL"
|
| 318 |
])
|
318 |
])
|
| 319 |
]),
|
319 |
]),
|
| 320 |
$h->div ({ class=>"spRight" }, [
|
320 |
$h->div ({ class=>"spRight" }, [
|
| 321 |
$h->h5 ([
|
321 |
$h->h5 ([
|
| 322 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|
322 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|