| Line 20... |
Line 20... |
| 20 |
my $username = $h->a ({ href=>"/schedule/manage_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
20 |
my $username = $h->a ({ href=>"/schedule/manage_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
|
| 21 |
my $RCid = $user->{RCid};
|
21 |
my $RCid = $user->{RCid};
|
| 22 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
22 |
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
|
| 23 |
my $YEAR = "2022";
|
23 |
my $YEAR = "2022";
|
| Line 24... |
Line 24... |
| 24 |
|
24 |
|
| 25 |
if (!scalar (grep { $user->{department}->{$_} < 1 } grep { !/^(ANN|OFF)$/ } keys %{$user->{department}}) and $LVL < 4) {
|
25 |
if (!scalar (grep { $user->{department}->{$_} < 1 } grep { !/^(ANN|OFF)$/ } keys %{$user->{department}}) and $user->{department}->{ANN} < 2 and $user->{department}->{OFF} < 2 and $LVL < 4) {
|
| 26 |
print header(-cookie=>$RCAUTH_cookie);
|
26 |
print header(-cookie=>$RCAUTH_cookie);
|
| 27 |
printRCHeader("Unauthorized Page");
|
27 |
printRCHeader("Unauthorized Page");
|
| 28 |
print $h->div ({ class=>"error" }, "No Access");
|
28 |
print $h->div ({ class=>"error" }, "No Access");
|
| 29 |
print $h->div ("Your user account is not registered as a Volunteer in a department that uses this view, so you can't see these shifts. It's possible that your access is still being reviewed. Please be patient.");
|
29 |
print $h->div ("Your user account is not registered as a Volunteer in a department that uses this view, so you can't see these shifts. It's possible that your access is still being reviewed. Please be patient.");
|