| 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 Year End Report";
|
29 |
my $pageTitle = "Volunteer Hours Year End Report";
|
| Line 38... |
Line 38... |
| 38 |
);
|
38 |
);
|
| 39 |
my $stylesheet = "/style.css";
|
39 |
my $stylesheet = "/style.css";
|
| 40 |
my $homeURL = '/schedule/';
|
40 |
my $homeURL = '/schedule/';
|
| 41 |
my @pagelimitoptions = ("All", 5, 10, 25);
|
41 |
my @pagelimitoptions = ("All", 5, 10, 25);
|
| Line 42... |
Line -... |
| 42 |
|
- |
|
| 43 |
# Set any custom "where" DB filters here...
|
- |
|
| 44 |
my @whereClause;
|
- |
|
| 45 |
|
42 |
|
| 46 |
# If we need to modify line item values, create a subroutine named "modify_$columnname"
|
43 |
# If we need to modify line item values, create a subroutine named "modify_$columnname"
|
| Line 47... |
Line 44... |
| 47 |
# It will receive a hashref to the object lineitem
|
44 |
# It will receive a hashref to the object lineitem
|
| 48 |
|
45 |
|
| Line 93... |
Line 90... |
| 93 |
$FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
|
90 |
$FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
|
| 94 |
} elsif ($FORM{$_} eq "true") # Compile list of fields to display
|
91 |
} elsif ($FORM{$_} eq "true") # Compile list of fields to display
|
| 95 |
{ push @displayFields, $_; }
|
92 |
{ push @displayFields, $_; }
|
| 96 |
}
|
93 |
}
|
| Line -... |
Line 94... |
| - |
|
94 |
|
| - |
|
95 |
# Set any custom "where" DB filters here...
|
| Line 97... |
Line 96... |
| 97 |
|
96 |
my @whereClause = ("year = $YEAR");
|
| 98 |
|
97 |
|
| 99 |
if (exists $FORM{autoload}) { # If the FORM was submitted (i.e. the page is being redisplayed),
|
98 |
if (exists $FORM{autoload}) { # If the FORM was submitted (i.e. the page is being redisplayed),
|
| 100 |
# build the data for the cookie that remembers the page setup
|
99 |
# build the data for the cookie that remembers the page setup
|
| Line 241... |
Line 240... |
| 241 |
@hiddencheckboxes = [];
|
240 |
@hiddencheckboxes = [];
|
| 242 |
}
|
241 |
}
|
| 243 |
}
|
242 |
}
|
| 244 |
push @hiddenrows, $h->div ({ class=>'rTableRow' }, [ @hiddencheckboxes ]) unless --$c % 4 == 0;
|
243 |
push @hiddenrows, $h->div ({ class=>'rTableRow' }, [ @hiddencheckboxes ]) unless --$c % 4 == 0;
|
| Line -... |
Line 244... |
| - |
|
244 |
|
| - |
|
245 |
my @yearoptions;
|
| - |
|
246 |
foreach (@{&getYears()}) {
|
| - |
|
247 |
push @yearoptions, $YEAR eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_);
|
| Line 245... |
Line 248... |
| 245 |
|
248 |
}
|
| 246 |
|
249 |
|
| 247 |
if (scalar @hideFields) {
|
250 |
if (scalar @hideFields) {
|
| 248 |
my @topleft;
|
251 |
my @topleft;
|
| Line 317... |
Line 320... |
| 317 |
$h->br,
|
320 |
$h->br,
|
| 318 |
$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.]"),
|
321 |
$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.]"),
|
| 319 |
$h->br,
|
322 |
$h->br,
|
| 320 |
"This page was displayed on ", currentTime (),
|
323 |
"This page was displayed on ", currentTime (),
|
| 321 |
$h->br,
|
324 |
$h->br,
|
| 322 |
"Please direct questions, problems, and concerns to $SYSTEM_EMAIL"
|
325 |
"Please direct questions, problems, and concerns to $SYSTEM_EMAIL",
|
| - |
|
326 |
$h->br,
|
| - |
|
327 |
"Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
|
| 323 |
])
|
328 |
])
|
| 324 |
]),
|
329 |
]),
|
| 325 |
$h->div ({ class=>"spRight" }, [
|
330 |
$h->div ({ class=>"spRight" }, [
|
| 326 |
$h->h5 ([
|
331 |
$h->h5 ([
|
| 327 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|
332 |
"$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,
|