| Line 18... |
Line 18... |
| 18 |
my $user = getUser ($EML);
|
18 |
my $user = getUser ($EML);
|
| 19 |
$user->{department} = convertDepartments $user->{department};
|
19 |
$user->{department} = convertDepartments $user->{department};
|
| 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 = "2023";
|
23 |
my $YEAR = 1900 + (localtime)[5];
|
| Line 24... |
Line 24... |
| 24 |
|
24 |
|
| 25 |
if (!scalar (grep { $user->{department}->{$_} > 0 } grep { !/^(ANN|OFF)$/ } keys %{$user->{department}}) and
|
25 |
if (!scalar (grep { $user->{department}->{$_} > 0 } grep { !/^(ANN|OFF)$/ } keys %{$user->{department}}) and
|
| 26 |
$user->{department}->{ANN} < 2 and
|
26 |
$user->{department}->{ANN} < 2 and
|
| 27 |
$user->{department}->{OFF} < 2 and
|
27 |
$user->{department}->{OFF} < 2 and
|