Adding some fixing for NoZebra

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
old mode 100644 (file)
new mode 100755 (executable)
index e98a264..e66f58e
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -2195,13 +2195,11 @@ sub ModZebra {
 sub GetNoZebraIndexes {
     my $index = C4::Context->preference('NoZebraIndexes');
     my %indexes;
-    foreach my $line (split /('|"),/,$index) {
+    foreach my $line (split /('|"),[\n\r]*/,$index) {
         $line =~ /(.*)=>(.*)/;
-        my $index = substr($1,1); # get the index, don't forget to remove initial ' or "
+        my $index = $1; # initial ' or " is removed afterwards
         my $fields = $2;
         $index =~ s/'|"|\s//g;
-
-
         $fields =~ s/'|"|\s//g;
         $indexes{$index}=$fields;
     }