Changeset 1874 for trunk


Ignore:
Timestamp:
12/27/16 08:10:21 (7 years ago)
Author:
nanardon
Message:

Fix ref to array

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm

    r1573 r1874  
    272272    while (my ($f, $val) = each(%data)) { 
    273273        $f eq 'memberOf' and do { 
     274            $val = [ $val ] unless(ref $val); 
    274275            my %users; 
    275276            $users{$_}{e} = 1 foreach (@{ $self->get_field('memberOf') || []}); 
Note: See TracChangeset for help on using the changeset viewer.