| Line 21... |
Line 21... |
| 21 |
my $user = getUser ($EML);
|
21 |
my $user = getUser ($EML);
|
| 22 |
$user->{department} = convertDepartments ($user->{department});
|
22 |
$user->{department} = convertDepartments ($user->{department});
|
| 23 |
my $username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
23 |
my $username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
| 24 |
my $RCid = $user->{RCid};
|
24 |
my $RCid = $user->{RCid};
|
| 25 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
25 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
| 26 |
my $YEAR;
|
26 |
my $YEAR = 1900 + (localtime)[5];
|
| Line 27... |
Line 27... |
| 27 |
|
27 |
|
| 28 |
|
28 |
|
| 29 |
my $pageTitle = "Volunteer Hours Summary";
|
29 |
my $pageTitle = "Volunteer Hours Summary";
|
| Line 119... |
Line 119... |
| 119 |
$FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
|
119 |
$FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
|
| 120 |
} elsif ($FORM{$_} eq "true") # Compile list of fields to display
|
120 |
} elsif ($FORM{$_} eq "true") # Compile list of fields to display
|
| 121 |
{ push @displayFields, $_; }
|
121 |
{ push @displayFields, $_; }
|
| 122 |
}
|
122 |
}
|
| Line -... |
Line 123... |
| - |
|
123 |
|
| - |
|
124 |
# Set any custom "where" DB filters here...
|
| Line 123... |
Line 125... |
| 123 |
|
125 |
push @whereClause, "year = $YEAR";
|
| 124 |
|
126 |
|
| 125 |
if (exists $FORM{autoload}) { # If the FORM was submitted (i.e. the page is being redisplayed),
|
127 |
if (exists $FORM{autoload}) { # If the FORM was submitted (i.e. the page is being redisplayed),
|
| 126 |
# build the data for the cookie that remembers the page setup
|
128 |
# build the data for the cookie that remembers the page setup
|
| Line 267... |
Line 269... |
| 267 |
@hiddencheckboxes = [];
|
269 |
@hiddencheckboxes = [];
|
| 268 |
}
|
270 |
}
|
| 269 |
}
|
271 |
}
|
| 270 |
push @hiddenrows, $h->div ({ class=>'rTableRow' }, [ @hiddencheckboxes ]) unless --$c % 4 == 0;
|
272 |
push @hiddenrows, $h->div ({ class=>'rTableRow' }, [ @hiddencheckboxes ]) unless --$c % 4 == 0;
|
| Line -... |
Line 273... |
| - |
|
273 |
|
| - |
|
274 |
my @yearoptions;
|
| - |
|
275 |
foreach (@{&getYears()}) {
|
| - |
|
276 |
push @yearoptions, $YEAR eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_);
|
| Line 271... |
Line 277... |
| 271 |
|
277 |
}
|
| 272 |
|
278 |
|
| 273 |
if (scalar @hideFields) {
|
279 |
if (scalar @hideFields) {
|
| 274 |
my @topleft;
|
280 |
my @topleft;
|
| Line 343... |
Line 349... |
| 343 |
$h->br,
|
349 |
$h->br,
|
| 344 |
$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.]"),
|
350 |
$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.]"),
|
| 345 |
$h->br,
|
351 |
$h->br,
|
| 346 |
"This page was displayed on ", currentTime (),
|
352 |
"This page was displayed on ", currentTime (),
|
| 347 |
$h->br,
|
353 |
$h->br,
|
| 348 |
"Please direct questions, problems, and concerns to $SYSTEM_EMAIL"
|
354 |
"Please direct questions, problems, and concerns to $SYSTEM_EMAIL",
|
| - |
|
355 |
$h->br,
|
| - |
|
356 |
"Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
|
| 349 |
])
|
357 |
])
|
| 350 |
]),
|
358 |
]),
|
| 351 |
$h->div ({ class=>"spRight" }, [
|
359 |
$h->div ({ class=>"spRight" }, [
|
| 352 |
$h->h5 ([
|
360 |
$h->h5 ([
|
| 353 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|
361 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|