Lines 216-221
sub SearchPrefs {
Link Here
|
216 |
|
216 |
|
217 |
foreach my $piece ( @$line ) { |
217 |
foreach my $piece ( @$line ) { |
218 |
if ( ref( $piece ) eq 'HASH' ) { |
218 |
if ( ref( $piece ) eq 'HASH' ) { |
|
|
219 |
if ( !$piece->{'pref'} ){ next; } |
219 |
if ( $piece->{'pref'} =~ /^$searchfield$/i ) { |
220 |
if ( $piece->{'pref'} =~ /^$searchfield$/i ) { |
220 |
my ( undef, $LINES ) = TransformPrefsToHTML( $data, $searchfield ); |
221 |
my ( undef, $LINES ) = TransformPrefsToHTML( $data, $searchfield ); |
221 |
|
222 |
|
Lines 249-255
sub SearchPrefs {
Link Here
|
249 |
|
250 |
|
250 |
sub matches { |
251 |
sub matches { |
251 |
my ( $text, $terms ) = @_; |
252 |
my ( $text, $terms ) = @_; |
252 |
return !grep( { $text !~ /$_/i } @$terms ); |
253 |
if ( $text ) { return !grep( { $text !~ /$_/i } @$terms ); } |
253 |
} |
254 |
} |
254 |
|
255 |
|
255 |
my $dbh = C4::Context->dbh; |
256 |
my $dbh = C4::Context->dbh; |
256 |
- |
|
|