projects
/
virtual-ldap
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove clever e-mail selection and use primary one
[virtual-ldap]
/
lib
/
LDAP
/
Koha.pm
diff --git
a/lib/LDAP/Koha.pm
b/lib/LDAP/Koha.pm
index
4e32a02
..
0769ecb
100644
(file)
--- a/
lib/LDAP/Koha.pm
+++ b/
lib/LDAP/Koha.pm
@@
-46,7
+46,7
@@
my $ldap_sql_mapping = {
'objectGUID' => 'b.borrowernumber',
'displayName' => 'surname',
'sn' => 'surname',
'objectGUID' => 'b.borrowernumber',
'displayName' => 'surname',
'sn' => 'surname',
- 'pager' =>
'a.attribute',
# was: rfid_sid
+ 'pager' =>
qq{replace(replace(a.attribute, char(13),''),char(10),'')},
# was: rfid_sid
};
sub __sql_column {
};
sub __sql_column {
@@
-64,7
+64,7
@@
use constant RESULT_OK => {
sub new {
my ($class, $sock) = @_;
my $self = $class->SUPER::new($sock);
sub new {
my ($class, $sock) = @_;
my $self = $class->SUPER::new($sock);
-
print "connection from: ", $sock->peerhost(), "\n"
;
+
warn "# connection from: ", $sock->peerhost()
;
return $self;
}
return $self;
}
@@
-146,7
+146,6
@@
sub _dn_attributes {
sub search {
my $self = shift;
my $reqData = shift;
sub search {
my $self = shift;
my $reqData = shift;
- print "searching...\n";
warn "# " . localtime() . " request = ", dump($reqData);
warn "# " . localtime() . " request = ", dump($reqData);
@@
-211,6
+210,9
@@
sub search {
$sth->execute( @values );
warn "# ", $sth->rows, " results for ",dump( $reqData->{'filter'} );
$sth->execute( @values );
warn "# ", $sth->rows, " results for ",dump( $reqData->{'filter'} );
+ my $dump = dump( $reqData->{'filter'} );
+ $dump =~ s/[\r\n\s]+/ /gm;
+ print $sth->rows, " results for $dump\n";
my $last_dn = '?';
my $entry;
my $last_dn = '?';
my $entry;