|
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 |
- |
|
|