/[virtual-ldap]/lib/LDAP/Koha.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/LDAP/Koha.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 53 by dpavlin, Wed Apr 29 11:47:13 2009 UTC revision 55 by dpavlin, Wed Apr 29 12:22:40 2009 UTC
# Line 131  sub _dn_attributes { Line 131  sub _dn_attributes {
131          my $dn = delete( $row->{dn} ) || die "no dn in ",dump( $row );          my $dn = delete( $row->{dn} ) || die "no dn in ",dump( $row );
132    
133          # this does some sanity cleanup for our data          # this does some sanity cleanup for our data
134          my $base_as_domain = $base;  #       my $base_as_domain = $base;
135          $base_as_domain =~ s{dn=}{.};  #       $base_as_domain =~ s{dn=}{.};
136          $base_as_domain =~ s{^\.}{@};  #       $base_as_domain =~ s{^\.}{@};
137          $dn =~ s{$base_as_domain$}{};  #       $dn =~ s{$base_as_domain$}{};
138    #
139          $dn .= ',' . $base unless $dn =~ m{,}; # add base if none present  #       $dn .= ',' . $base unless $dn =~ m{,}; # add base if none present
140    
141          return ($dn, $row);          return ($dn, $row);
142  }  }

Legend:
Removed from v.53  
changed lines
  Added in v.55

  ViewVC Help
Powered by ViewVC 1.1.26