/[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 47 by dpavlin, Fri Apr 17 21:39:45 2009 UTC revision 48 by dpavlin, Fri Apr 17 23:16:00 2009 UTC
# Line 25  our $database = 'koha'; Line 25  our $database = 'koha';
25  our $user     = 'unconfigured-user';  our $user     = 'unconfigured-user';
26  our $passwd   = 'unconfigured-password';  our $passwd   = 'unconfigured-password';
27    
28  our $max_results = 15; # 100; # FIXME  our $max_results = 1500; # 100; # FIXME
29    
30  our $objectclass = 'HrEduPerson';  our $objectclass = 'HrEduPerson';
31    
# Line 197  sub search { Line 197  sub search {
197    
198                  warn "# ", $sth->rows, " results for ",dump( $reqData->{'filter'} );                  warn "# ", $sth->rows, " results for ",dump( $reqData->{'filter'} );
199    
200                    my $last_dn = '?';
201                    my $entry;
202    
203                  while (my $row = $sth->fetchrow_hashref) {                  while (my $row = $sth->fetchrow_hashref) {
204    
205                          my ( $dn, $attributes ) = _dn_attributes( $row, $base );                          my ( $dn, $attributes ) = _dn_attributes( $row, $base );
206    
207                          my $entry = Net::LDAP::Entry->new;                          warn "# dn $last_dn ... $dn\n";
208                          $entry->dn( $dn );  
209                          $entry->add( %$attributes );                          if ( $dn ne $last_dn ) {
210    
211                                    if ( $entry ) {
212                                            #$entry->changetype( 'modify' );
213                                            warn "### entry ",$entry->dump( \*STDERR );
214                                            push @entries, $entry;
215                                            undef $entry;
216                                    }
217    
218                          #$entry->changetype( 'modify' );                                  $entry = Net::LDAP::Entry->new;
219                                    $entry->dn( $dn );
220    
221                          warn "### entry ",$entry->dump( \*STDERR );                                  $entry->add( %$attributes );
222    
223                            } else {
224                                    foreach my $n ( keys %$attributes ) {
225                                            my $v = $attributes->{$n};
226                                            warn "# attr $n = $v\n";
227                                            $entry->add( $n, $v ) if $entry->get_value( $n ) ne $v;
228                                    }
229                            }
230    
231    
232                            $last_dn = $dn;
233    
                         push @entries, $entry;  
234                  }                  }
235    
236                    warn "### last entry ",$entry->dump( \*STDERR );
237                    push @entries, $entry;
238    
239          } else {          } else {
240                  warn "UNKNOWN request: ",dump( $reqData );                  warn "UNKNOWN request: ",dump( $reqData );
241          }          }
Legend:
Removed from v.47  
changed lines
  Added in v.48
  ViewVC Help
Powered by ViewVC 1.1.26