From 57f53d05d57269d8aadcfd8b775c4848acaa7560 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Tue, 12 Aug 2008 09:28:16 +0200 Subject: [PATCH] Adding some fixing for NoZebra Signed-off-by: Henri-Damien LAURENT --- 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 e98a264de1..e66f58e3ff --- 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; } -- 2.20.1