Revision 88

Date:
2010/05/02 19:29:45
Author:
dpavlin
Revision Log:
removed bunch of output with $debug
Files:

Legend:

 
Added
 
Removed
 
Modified
  • lib/LDAP/Koha.pm

     
    219 219
    220 220 my ( $dn, $attributes ) = _dn_attributes( $row, $base );
    221 221
    222 warn "# dn $last_dn ... $dn\n";
    222 warn "## dn $last_dn ... $dn\n" if $debug;
    223 223
    224 224 if ( $dn ne $last_dn ) {
    225 225
    226 226 if ( $entry ) {
    227 227 #$entry->changetype( 'modify' );
    228 warn "### entry ",$entry->dump( \*STDERR );
    228 warn "### entry ",$entry->dump( \*STDERR ) if $debug;
    229 229 push @entries, $entry;
    230 230 undef $entry;
    231 231 }
     
    240 240 } else {
    241 241 foreach my $n ( keys %$attributes ) {
    242 242 my $v = $attributes->{$n};
    243 warn "# attr $n = $v\n";
    243 warn "## attr $n = $v\n" if $debug;
    244 244 $entry->add( $n, $v ) if $entry->get_value( $n ) ne $v;
    245 245 }
    246 246 }
     
    251 251 }
    252 252
    253 253 if ( $entry ) {
    254 warn "### last entry ",$entry->dump( \*STDERR );
    254 warn "### last entry ",$entry->dump( \*STDERR ) if $debug;
    255 255 push @entries, $entry;
    256 256 }
    257 257