From 25f047fb29da6fa107437f9a39e4132ccf397f39 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Thu, 25 Jul 2002 04:05:59 +0000
Subject: [PATCH] Fixed bug that broke searches with spaces in them.

---
 search.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/search.pl b/search.pl
index 9ff8aa71da..bc7884ebff 100755
--- a/search.pl
+++ b/search.pl
@@ -191,7 +191,13 @@ if ($count>10) {
     ($title) && (push @$forminputs, { line => "title=$title"});
 	my $highlight=0;
 	($startfrom==($i-1)*10) && ($highlight=1);
-	push @$numbers, { number => $i, highlight => $highlight , FORMINPUTS => $forminputs, startfrom => ($i-1)*10, opac => ($type eq 'opac') ? (1) : (0)};
+	my $formelements='';
+	foreach (@$forminputs) {
+	    my $line=$_->{line};
+	    $formelements.="$line&";
+	}
+	$formelements=~s/ /+/g;
+	push @$numbers, { number => $i, highlight => $highlight , FORMELEMENTS => $formelements, FORMINPUTS => $forminputs, startfrom => ($i-1)*10, opac => (($type eq 'opac') ? (1) : (0))};
     }
 }
 
-- 
2.39.5