Changeset 1411

Timestamp:

10/07/15 15:07:59 (9 years ago)

Author:

nanardon

Message:

Kill useless functions

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -475 +475 @@
 }
 
-sub _check_user_manager {
-    $_[0]->_handle_by_unexported('user', 'manager', 'active');
-}
-
-sub _check_group_manager {
-    $_[0]->_handle_by_unexported('group', 'managedBy');
-}
-
-sub _check_nethost_owner {
-    $_[0]->_handle_by_unexported('nethost', 'owner', 'active');
-}
-
-sub _handle_by_unexported {
-    my ($self, $otype, $refattr, $chkattr) = @_;
-
-    my $ptrotype = $self->attribute($otype, $refattr)->reference();
-
-    my %unhandle;
-    foreach my $objname ($self->search_objects($otype, 'active=1', 'exported=1', "$refattr=*")) {
-        my $obj = $self->get_object($otype, $objname) or next;
-        my $val = $obj->get_attributes($refattr) or next;
-        if (my $refobj = $self->get_object($ptrotype, $val)) {
-            if (!$refobj->get_attributes($chkattr || 'exported')) {
-                $unhandle{$objname} = $val;
-            }
-        } else {
-            $unhandle{$objname} = $val;
-        }
-    }
-    %unhandle;
-}
-
 =head2 get_datarequest ($id)