Changeset 1411 for trunk/LATMOS-Accounts/lib/LATMOS
- Timestamp:
- 10/07/15 15:07:59 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm
r1402 r1411 475 475 } 476 476 477 sub _check_user_manager {478 $_[0]->_handle_by_unexported('user', 'manager', 'active');479 }480 481 sub _check_group_manager {482 $_[0]->_handle_by_unexported('group', 'managedBy');483 }484 485 sub _check_nethost_owner {486 $_[0]->_handle_by_unexported('nethost', 'owner', 'active');487 }488 489 sub _handle_by_unexported {490 my ($self, $otype, $refattr, $chkattr) = @_;491 492 my $ptrotype = $self->attribute($otype, $refattr)->reference();493 494 my %unhandle;495 foreach my $objname ($self->search_objects($otype, 'active=1', 'exported=1', "$refattr=*")) {496 my $obj = $self->get_object($otype, $objname) or next;497 my $val = $obj->get_attributes($refattr) or next;498 if (my $refobj = $self->get_object($ptrotype, $val)) {499 if (!$refobj->get_attributes($chkattr || 'exported')) {500 $unhandle{$objname} = $val;501 }502 } else {503 $unhandle{$objname} = $val;504 }505 }506 %unhandle;507 }508 509 477 =head2 get_datarequest ($id) 510 478
Note: See TracChangeset
for help on using the changeset viewer.