if $index is unnecessary as we have made this true 5 lines above variables should not be declared in conditionals if used outside of them set $struct_attr to a sensible default to avoid generating warnings in this assigment and elsewhere --- C4/Search.pm | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/C4/Search.pm b/C4/Search.pm index 30d8b4f..229ee40 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -1123,14 +1123,14 @@ sub buildQuery { } # Set default structure attribute (word list) - my $struct_attr; + my $struct_attr = q{}; unless ( $indexes_set || !$index || $index =~ /(st-|phr|ext|wrdl)/ ) { $struct_attr = ",wrdl"; } # Some helpful index variants - my $index_plus = $index . $struct_attr . ":" if $index; - my $index_plus_comma = $index . $struct_attr . "," if $index; + my $index_plus = $index . $struct_attr . ':'; + my $index_plus_comma = $index . $struct_attr . ','; # Remove Stopwords if ($remove_stopwords) { -- 1.6.6.1 _______________________________________________ Koha-patches mailing list Koha-patches@lists.koha.org http://lists.koha.org/mailman/listinfo/koha-patches