Lines 229-235
sub SearchPrefs {
Link Here
|
229 |
my %tab_files = _get_pref_files( $input ); |
229 |
my %tab_files = _get_pref_files( $input ); |
230 |
our @terms = split( /\s+/, $searchfield ); |
230 |
our @terms = split( /\s+/, $searchfield ); |
231 |
|
231 |
|
232 |
foreach my $tab_name ( keys %tab_files ) { |
232 |
foreach my $tab_name ( sort keys %tab_files ) { |
233 |
# Force list context to remove 'uninitialized value in goto' warn coming from YAML::Syck; note that the other GetTab call is in list context too. The actual cause however is the null value for the pref OpacRenewalBranch in opac.pref |
233 |
# Force list context to remove 'uninitialized value in goto' warn coming from YAML::Syck; note that the other GetTab call is in list context too. The actual cause however is the null value for the pref OpacRenewalBranch in opac.pref |
234 |
my ($data) = GetTab( $input, $tab_name ); |
234 |
my ($data) = GetTab( $input, $tab_name ); |
235 |
my $title = ( keys( %$data ) )[0]; |
235 |
my $title = ( keys( %$data ) )[0]; |
Lines 237-243
sub SearchPrefs {
Link Here
|
237 |
$tab = { '' => $tab } if ( ref( $tab ) eq 'ARRAY' ); |
237 |
$tab = { '' => $tab } if ( ref( $tab ) eq 'ARRAY' ); |
238 |
|
238 |
|
239 |
my $matched_groups; |
239 |
my $matched_groups; |
240 |
|
|
|
241 |
while ( my ( $group_title, $contents ) = each %$tab ) { |
240 |
while ( my ( $group_title, $contents ) = each %$tab ) { |
242 |
if ( matches( $group_title, \@terms ) ) { |
241 |
if ( matches( $group_title, \@terms ) ) { |
243 |
$matched_groups->{$group_title} = $contents; |
242 |
$matched_groups->{$group_title} = $contents; |
244 |
- |
|
|