| Line 81... |
Line 81... |
| 81 |
$RCDBIDHASH->{department} = convertDepartments ($RCDBIDHASH->{department});
|
81 |
$RCDBIDHASH->{department} = convertDepartments ($RCDBIDHASH->{department});
|
| 82 |
$RCDBIDHASH->{'access'} = max ($RCDBIDHASH->{'access'}, values %{$RCDBIDHASH->{department}});
|
82 |
$RCDBIDHASH->{'access'} = max ($RCDBIDHASH->{'access'}, values %{$RCDBIDHASH->{department}});
|
| 83 |
$result->{cookie_string} = "${id}&${encpass}&$RCDBIDHASH->{'access'}";
|
83 |
$result->{cookie_string} = "${id}&${encpass}&$RCDBIDHASH->{'access'}";
|
| 84 |
$result->{RCid} = $RCDBIDHASH->{'RCid'};
|
84 |
$result->{RCid} = $RCDBIDHASH->{'RCid'};
|
| 85 |
logit($RCDBIDHASH->{'RCid'}, "Logged In") if $src eq "form";
|
85 |
logit($RCDBIDHASH->{'RCid'}, "Logged In") if $src eq "form";
|
| 86 |
$dbh->do ("update official set last_login = now() where RCid = ?", undef, $RCDBIDHASH->{'RCid'}) if $src eq "form";
|
86 |
$dbh->do ("update official set last_login = CONVERT_TZ(now(), 'America/Chicago', 'America/Los_Angeles') where RCid = ?", undef, $RCDBIDHASH->{'RCid'}) if $src eq "form";
|
| 87 |
$result->{authenticated} = 'true';
|
87 |
$result->{authenticated} = 'true';
|
| 88 |
# my @depts = map { s/-\d// } split /:/, $RCDBIDHASH->{department};
|
88 |
# my @depts = map { s/-\d// } split /:/, $RCDBIDHASH->{department};
|
| 89 |
# my @depts = split /:/, $RCDBIDHASH->{department};
|
89 |
# my @depts = split /:/, $RCDBIDHASH->{department};
|
| Line 90... |
Line 90... |
| 90 |
|
90 |
|
| Line 255... |
Line 255... |
| 255 |
# if ($RCid ne $ORCUSER->{RCid}) {
|
255 |
# if ($RCid ne $ORCUSER->{RCid}) {
|
| 256 |
# push @whereclause, "dept != 'PER'";
|
256 |
# push @whereclause, "dept != 'PER'";
|
| 257 |
# }
|
257 |
# }
|
| Line 258... |
Line 258... |
| 258 |
|
258 |
|
| 259 |
use DateTime;
|
259 |
use DateTime;
|
| 260 |
my $dt = DateTime->today;
|
260 |
my $dt = DateTime->today (time_zone => 'America/Los_Angeles');
|
| 261 |
$dt =~ s/T00\:00\:00$//;
|
261 |
$dt =~ s/T00\:00\:00$//;
|
| Line 262... |
Line 262... |
| 262 |
my $now = DateTime->now;
|
262 |
my $now = DateTime->now (time_zone => 'America/Los_Angeles');
|
| 263 |
|
263 |
|