From 630dec616a7316ff19e345dea8e07de7b1c5f9eb Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Wed, 27 Feb 2008 21:55:55 +0100
Subject: Enclose qstring.

---
 lib/LXRng/Web.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/LXRng/Web.pm')

diff --git a/lib/LXRng/Web.pm b/lib/LXRng/Web.pm
index 13867cc..0c48972 100644
--- a/lib/LXRng/Web.pm
+++ b/lib/LXRng/Web.pm
@@ -834,10 +834,11 @@ sub handle {
 		/^[+ ](search|code|ident|file|text|ambig)(?:=(.*)|)/)
 	    {
 		my $qstring = $2 || $context->param('search');
+		$qstring =~ s/\"/\\x22/g;
 		search_result($context, $template, $query,
 			      search($context, $template, $1, $2));
 		$context->path('');
-		return $qstring;
+		return qq{"$qstring"};
 	    }
 	    else {
 		source($context, $template, $query);
-- 
cgit v1.2.3