| Line 273... |
Line 273... |
| 273 |
# Is A a lead or higher of one of B's Depts? (or they're looking at themselves)
|
273 |
# Is A a lead or higher of one of B's Depts? (or they're looking at themselves)
|
| 274 |
# parameters should be a Hashref to the users' details
|
274 |
# parameters should be a Hashref to the users' details
|
| Line 275... |
Line 275... |
| 275 |
|
275 |
|
| Line 276... |
Line 276... |
| 276 |
return 1 if $A->{access} > 4 or $A->{RCid} == $B->{RCid}; # viewer and target are the same person or it's a SysAdmin.
|
276 |
return 1 if $A->{access} > 4 or $A->{RCid} == $B->{RCid}; # viewer and target are the same person or it's a SysAdmin.
|
| 277 |
|
277 |
|
| Line 278... |
Line 278... |
| 278 |
my $ADept = ref $A->{department} eq "HASH" ? $A->{department} : convertDepartments $A->{department};
|
278 |
my $ADept = ref $A->{department} eq "HASH" ? $A->{department} : convertDepartments($A->{department});
|
| 279 |
my $BDept = ref $B->{department} eq "HASH" ? $B->{department} : convertDepartments $B->{department};
|
279 |
my $BDept = ref $B->{department} eq "HASH" ? $B->{department} : convertDepartments($B->{department});
|
| 280 |
|
280 |
|
| 281 |
foreach (keys %{$BDept}) {
|
281 |
foreach (keys %{$BDept}) {
|