'objectGUID' => 'b.borrowernumber',
'displayName' => 'surname',
'sn' => 'surname',
- 'pager' => qq{replace(a.attribute, '\r','')}, # was: rfid_sid
+ 'pager' => qq{replace(replace(a.attribute, char(13),''),char(10),'')}, # was: rfid_sid
};
sub __sql_column {
sub new {
my ($class, $sock) = @_;
my $self = $class->SUPER::new($sock);
- print "connection from: ", $sock->peerhost(), "\n";
+ warn "# connection from: ", $sock->peerhost();
return $self;
}
sub search {
my $self = shift;
my $reqData = shift;
- print "searching...\n";
warn "# " . localtime() . " request = ", dump($reqData);
$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;