single field search mapping to fill text indexes

[Biblio-Z3950.git] / Aleph.pm

diff --git a/Aleph.pm b/Aleph.pm
index 99c054d..448beaa 100644 (file)
--- a/Aleph.pm
+++ b/Aleph.pm
@@ -173,6 +173,8 @@ warn "## ++ ", dump( $f, $v );
 
                        my ($i1,$i2) = (' ',' ');
                        ($i1,$i2) = ($2,$3) if $f =~ s/^(...)(.)?(.)?/$1/;
+                       $i1 ||= ' ';
+                       $i2 ||= ' ';
                        my @sf = split(/\|/, $v);
                        @sf = map { s/^(\w)\s+//; { $1 => $_ } } @sf;
 #warn "## sf = ", dump(@sf);