From aab0799e5de4a7f099c22cd6ee838a38436018d7 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Wed, 27 Feb 2008 21:52:42 +0100
Subject: Return qstring to handler for logging.

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

(limited to 'lib')

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