| Line 266... |
Line 266... |
| 266 |
$result->{authenticated} = 'false';
|
266 |
$result->{authenticated} = 'false';
|
| 267 |
} else {
|
267 |
} else {
|
| 268 |
$result->{ERRMSG} = '';
|
268 |
$result->{ERRMSG} = '';
|
| 269 |
# $IDHASH->{department} = convertDepartments ($IDHASH->{department});
|
269 |
# $IDHASH->{department} = convertDepartments ($IDHASH->{department});
|
| 270 |
# $IDHASH->{'access'} = max ($IDHASH->{'access'}, values %{$IDHASH->{department}});
|
270 |
# $IDHASH->{'access'} = max ($IDHASH->{'access'}, values %{$IDHASH->{department}});
|
| - |
|
271 |
($IDHASH->{'SANCTIONING'}) = $dbh->selectrow_array ("select 1 from role where person_id = ? and member_org_id = (select id from organization where league_name = ?) and role = ?", undef, $IDHASH->{person_id}, "WFTDA Leadership", "Sanctioning");
|
| 271 |
($IDHASH->{'SYSADMIN'}) = $dbh->selectrow_array ("select 1 from role where person_id = ? and member_org_id = (select id from organization where league_name = ?) and role = ?", undef, $IDHASH->{person_id}, "WFTDA Leadership", "System Admin");
|
272 |
($IDHASH->{'SYSADMIN'}) = $dbh->selectrow_array ("select 1 from role where person_id = ? and member_org_id = (select id from organization where league_name = ?) and role = ?", undef, $IDHASH->{person_id}, "WFTDA Leadership", "System Admin");
|
| 272 |
$IDHASH->{'access'} = $IDHASH->{'SYSADMIN'} ? 5 : 1;
|
273 |
$IDHASH->{'access'} = $IDHASH->{'SYSADMIN'} ? 5 : 1;
|
| 273 |
$result->{cookie_string} = "${id}&${sessionid}&$IDHASH->{'access'}";
|
274 |
$result->{cookie_string} = "${id}&${sessionid}&$IDHASH->{'access'}";
|
| 274 |
$result->{person_id} = $IDHASH->{'person_id'};
|
275 |
$result->{person_id} = $IDHASH->{'person_id'};
|
| 275 |
logit($IDHASH->{'person_id'}, "Logged In") if $src eq "form";
|
276 |
logit($IDHASH->{'person_id'}, "Logged In") if $src eq "form";
|
| Line 478... |
Line 479... |
| 478 |
# Is A a lead or higher of one of B's Depts? (or they're looking at themselves)
|
479 |
# Is A a lead or higher of one of B's Depts? (or they're looking at themselves)
|
| 479 |
# parameters should be a Hashref to the users' details
|
480 |
# parameters should be a Hashref to the users' details
|
| Line 480... |
Line 481... |
| 480 |
|
481 |
|
| Line 481... |
Line 482... |
| 481 |
return 1 if $A->{person_id} == $B->{person_id}; # It's the same person.
|
482 |
return 1 if $A->{person_id} == $B->{person_id}; # It's the same person.
|
| Line 482... |
Line 483... |
| 482 |
|
483 |
|
| Line 483... |
Line 484... |
| 483 |
my ($admin_check) = $dbh->selectrow_array ("select 1 from role where person_id = ? and member_org_id = ? and role = ?", undef, $A->{person_id}, 4276, "System Admin"); # 4276 is "WFTDA Leadership"
|
484 |
my $admin_check = $ORCUSER->{SYSADMIN} + $ORCUSER->{SANCTIONING};
|