From 236cfb9a32a8daddfb0a3f4b190386046b0989d9 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@taniquetil.(none)>
Date: Thu, 20 Aug 2009 22:42:21 +0200
Subject: Remove junk from ident search string.

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

diff --git a/lib/LXRng/Web.pm b/lib/LXRng/Web.pm
index a592b9a..ba7943f 100644
--- a/lib/LXRng/Web.pm
+++ b/lib/LXRng/Web.pm
@@ -435,7 +435,8 @@ sub search {
 	    $template_args{'code_res'} = {'query' => $find,
 					  'idents' => \@cooked};
 	}
-	if ($type eq 'ident') {
+	if ($type eq 'ident' and $find =~ /(\d+)/) {
+	    $find = $1;
 	    my $usage  = $context->config->{'usage'};
 	    my ($symname, $symid, $ident, $refs) =
 		$index->get_identifier_info($usage, $find, $rel_id);
-- 
cgit v1.2.3