From 29995accf15fd8a0308cb0b3e2d7e0b63dd4b356 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Wed, 19 Nov 2008 14:58:15 +0100
Subject: [PATCH] Adding some fixing for NoZebra

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 C4/Biblio.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)
 mode change 100644 => 100755 C4/Biblio.pm

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
old mode 100644
new mode 100755
index fc4b3adb97..e50532c1b8
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -2180,13 +2180,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;
     }
-- 
2.39.5