diff --git a/lib/WebGUI/Operation/Search.pm b/lib/WebGUI/Operation/Search.pm index e6127abd5..e515acfa9 100644 --- a/lib/WebGUI/Operation/Search.pm +++ b/lib/WebGUI/Operation/Search.pm @@ -12,24 +12,19 @@ package WebGUI::Operation::Search; use Exporter; use strict; -use Tie::IxHash; use WebGUI::International; use WebGUI::Paginator; -use WebGUI::Privilege; use WebGUI::Session; -use WebGUI::Shortcut; use WebGUI::SQL; use WebGUI::URL; -use WebGUI::Utility; our @ISA = qw(Exporter); our @EXPORT = qw(&www_search); #------------------------------------------------------------------- sub www_search { - my ($p, $output, %page, @keyword, $pageId, $term, %result, $sth, @data, @row, $i); - tie %result,'Tie::IxHash'; - $output = formHeader(); + my ($p, $output, %page, @keyword, $pageId, $term, %result, $sth, @row, $i); + $output = '