From f4966aeb0e7a655c986aeb285c1a220274ddbfd9 Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Mon, 22 Aug 2005 01:16:40 +0000 Subject: Bug 70907: QuickSearch: port the JS code to perl (make it server-side) - Patch by Marc Schumann r=wicked a=myk --- buglist.cgi | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'buglist.cgi') diff --git a/buglist.cgi b/buglist.cgi index 904df703d..63ab55951 100755 --- a/buglist.cgi +++ b/buglist.cgi @@ -38,6 +38,7 @@ use vars qw($template $vars); use Bugzilla; use Bugzilla::Search; +use Bugzilla::Search::Quicksearch; use Bugzilla::Constants; use Bugzilla::User; @@ -65,6 +66,15 @@ if (length($buffer) == 0) { ThrowUserError("buglist_parameters_required"); } +# Determine whether this is a quicksearch query. +my $searchstring = $cgi->param('quicksearch'); +if (defined($searchstring)) { + $buffer = quicksearch($searchstring); + # Quicksearch may do a redirect, in which case it does not return. + # If it does return, it has modified $cgi->params so we can use them here + # as if this had been a normal query from the beginning. +} + ################################################################################ # Data and Security Validation ################################################################################ -- cgit v1.2.3-24-g4f1b