Changeset 81


Ignore:
Timestamp:
05/10/09 18:06:27 (15 years ago)
Author:
nanardon
Message:
  • provide id functions to objects
Location:
LATMOS-Accounts/lib/LATMOS/Accounts/Bases
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/objects.pm

    r74 r81  
    8585    return if(@others); # we cannot have multiple entries... 
    8686    return if (!$entry); 
    87     bless({ entry => $entry, _base => $base }, $class); 
     87    bless({ entry => $entry, _base => $base, _id => $uid }, $class); 
    8888} 
    8989 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

    r71 r81  
    6262    $newobj->{_base} = $base; 
    6363    $newobj->{_type} = lc($otype); 
     64    $newobj->{_id} ||= $id; 
    6465    return $newobj; 
    6566} 
    … …  
    102103} 
    103104 
     105=head2 id 
     106 
     107Must return the unique identifier for this object 
     108 
     109=cut 
     110 
     111sub id { 
     112    my ($self) = @_; 
     113    $self->{_id} 
     114} 
     115 
    104116=head2 list_canonical_fields($for) 
    105117 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Group.pm

    r74 r81  
    7777                } 
    7878            ); 
    79             $sth->execute($self->{id}); 
     79            $sth->execute($self->id); 
    8080            my @res; 
    8181            while (my $res = $sth->fetchrow_hashref) { 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

    r74 r81  
    6464        return join(' ', map { $_ || '' } ($self->get_c_field('givenName'), ($self->get_c_field('sn')))); 
    6565    } elsif ($field =~ /^(sAMAccountName|login)$/) { 
    66         return $self->{id}, 
     66        return $self->id, 
    6767    } else { 
    6868        return $self->SUPER::get_field($field); 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

    r79 r81  
    133133sub new { 
    134134    my ($class, $base, $id) = @_; 
    135     bless({ id => $id, _base => $base }, $class); 
     135    bless({ _id => $id, _base => $base }, $class); 
    136136} 
    137137 
    … …  
    208208        ) 
    209209    ); 
    210     $sth->execute($self->{id}); 
     210    $sth->execute($self->id); 
    211211    my $res = $sth->fetchrow_hashref; 
    212212    $sth->finish; 
    … …  
    219219            ) 
    220220        ); 
    221         $sth->execute($self->{id}, $field); 
     221        $sth->execute($self->id, $field); 
    222222        my $res = $sth->fetchrow_hashref; 
    223223        $sth->finish; 
    … …  
    253253            ) 
    254254        ); 
    255         $sth->execute(@vals, $self->{id}); 
     255        $sth->execute(@vals, $self->id); 
    256256    } 
    257257     
    … …  
    278278        foreach (keys %ext) { 
    279279            if ($ext{$_}) { 
    280                 $sthu->execute($ext{$_}, $self->{id}, $_) || 
    281                 $sthx->execute($self->{id}, $_, $ext{$_}) or return; 
     280                $sthu->execute($ext{$_}, $self->id, $_) || 
     281                $sthx->execute($self->id, $_, $ext{$_}) or return; 
    282282            } else { 
    283                 $sthd->execute($self->{id}, $_) or return; 
     283                $sthd->execute($self->id, $_) or return; 
    284284            } 
    285285        } 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/Group.pm

    r72 r81  
    4848} 
    4949 
     50sub id { 
     51    $_[0]->{group_name} 
     52} 
     53 
    5054sub get_field { 
    5155    my ($self, $field) = @_; 

  • LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/User.pm

    r72 r81  
    4848} 
    4949 
     50sub id { 
     51    $_[0]->{login} 
     52} 
     53 
    5054sub get_field { 
    5155    my ($self, $field) = @_; 
Note: See TracChangeset for help on using the changeset viewer.