Revision 85

Date:
2010/03/01 19:58:47
Author:
dpavlin
Revision Log:
repair hrEduPersonUniqueNumber unroll
Files:

Legend:

 
Added
 
Removed
 
Modified
  • bin/ldap-rewrite.pl

     
    145 145 foreach my $val ( @{ $attr->{vals} } ) {
    146 146 next if $val !~ m{.+:.+};
    147 147 my ( $n, $v ) = split(/\s*:\s*/, $val );
    148 push @attrs, { type => $_->{type} . '_' . $n, vals => [ $v ] };
    148 push @attrs, { type => $attr->{type} . '_' . $n, vals => [ $v ] };
    149 149 }
    150 150 }
    151 151 }