repair hrEduPersonUniqueNumber unroll
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 1 Mar 2010 19:58:47 +0000 (19:58 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 1 Mar 2010 19:58:47 +0000 (19:58 +0000)
bin/ldap-rewrite.pl

index 48a706a..490b444 100755 (executable)
@@ -145,7 +145,7 @@ sub log_response {
                                foreach my $val ( @{ $attr->{vals} } ) {
                                        next if $val !~ m{.+:.+};
                                        my ( $n, $v ) = split(/\s*:\s*/, $val );
-                                       push @attrs, { type => $_->{type} . '_' . $n, vals => [ $v ] };
+                                       push @attrs, { type => $attr->{type} . '_' . $n, vals => [ $v ] };
                                }
                        }
                }