From 0d610f5427cfb052408cbd1c471356007b8902d3 Mon Sep 17 00:00:00 2001
From: Mason James <mtj@ezeke.liblime.com>
Date: Mon, 19 Nov 2007 21:12:57 -0600
Subject: [PATCH] GetNoZebraIndexes() regex now handles naughty whitespace
 (read: tabs)

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Biblio.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 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 73f44dcbf3..9658db8a21
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -3091,10 +3091,13 @@ sub GetNoZebraIndexes {
     my %indexes;
     foreach my $line (split /('|"),/,$index) {
         $line =~ /(.*)=>(.*)/;
+warn $line;
         my $index = substr($1,1); # get the index, don't forget to remove initial ' or "
         my $fields = $2;
-        $index =~ s/'|"| //g;
-        $fields =~ s/'|"| //g;
+        $index =~ s/'|"|\s//g;
+
+
+        $fields =~ s/'|"|\s//g;
         $indexes{$index}=$fields;
     }
     return %indexes;
-- 
2.39.5