oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Search now returns the results with the search keywords highlighted.

Browse source
This commit is contained in:
Frank Dillon 2008-09-16 16:43:05 +00:00
parent acdecef5b6
commit 1bd1fbfb79
1 changed files with 73 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

107
lib/WebGUI/Asset/Wobject/Search.pm
View file

@ -16,6 +16,7 @@ use Tie::IxHash;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Search;
use HTML::Highlight;
=head1 NAME
@ -141,43 +142,81 @@ Display search interface and results.
=cut
sub view {
my $self = shift;
my $i18n = WebGUI::International->new($self->session, "Asset_Search");
my $self = shift;
my $session = $self->session;
my $form = $session->form;
my $user = $session->user;
my $i18n = WebGUI::International->new($self->session, "Asset_Search");
my $keywords = $form->get("keywords");
my %var;
$var{'form_header'} = WebGUI::Form::formHeader($self->session, {action=>$self->getUrl})
.WebGUI::Form::hidden($self->session,{name=>"doit", value=>"1"});
$var{'form_footer'} = WebGUI::Form::formFooter($self->session);
$var{'form_submit'} = WebGUI::Form::submit($self->session, {value=>$i18n->get("search")});
$var{'form_keywords'} = WebGUI::Form::text($self->session, {name=>"keywords", value=>$self->session->form->get("keywords")});
$var{'no_results'} = $i18n->get("no results");
if ($self->session->form->get("doit")) {
my $search = WebGUI::Search->new($self->session);
my %rules = (
keywords=>$self->session->form->get("keywords"),
lineage=>[WebGUI::Asset->newByDynamicClass($self->session,$self->getValue("searchRoot"))->get("lineage")],
);
my @classes = split("\n",$self->get("classLimiter"));
$var{'form_header' } = WebGUI::Form::formHeader($session, {
action=>$self->getUrl("doit=1")
});
#.WebGUI::Form::hidden($self->session,{name=>"doit", value=>"1"});
$var{'form_footer' } = WebGUI::Form::formFooter($session);
$var{'form_submit' } = WebGUI::Form::submit($session, {
value=>$i18n->get("search")
});
$var{'form_keywords'} = WebGUI::Form::text($session, {
name=>"keywords",
value=>$keywords
});
$var{'no_results' } = $i18n->get("no results");
if ($form->get("doit")) {
my $search = WebGUI::Search->new($session);
my %rules = (
keywords =>$keywords,
lineage =>[
WebGUI::Asset->newByDynamicClass($session,$self->getValue("searchRoot"))->get("lineage")
],
);
my @classes = split("\n",$self->get("classLimiter"));
$rules{classes} = \@classes if (scalar(@classes));
$search->search(\%rules);
my @results = ();
my $rs = $search->getResultSet;
while (my $data = $rs->hashRef) {
if ($self->session->user->userId eq $data->{ownerUserId} || $self->session->user->isInGroup($data->{groupIdView}) || $self->session->user->isInGroup($data->{groupIdEdit})) {
my $asset = WebGUI::Asset->new($self->session, $data->{assetId}, $data->{className});
if (defined $asset) {
my $properties = $asset->get;
if ($self->get("useContainers")) {
$properties->{url} = $asset->getContainer->get("url");
}
push(@results, $properties);
$var{results_found} = 1;
}
}
}
my $p = WebGUI::Paginator->new($self->session,$self->getUrl('doit=1;keywords='.$self->session->url->escape($self->session->form->get('keywords'))));
$p->setDataByArrayRef(\@results);
$p->appendTemplateVars(\%var);
$var{result_set} = $p->getPageData;
#Instantiate the highlighter
my @words = split(/\s+/,$keywords);
my @wildcards = map { "%" } @words;
my $hl = new HTML::Highlight (
words => \@words,
wildcards => \@wildcards
);
#Set up the paginator
my $p = $search->getPaginatorResultSet (
$self->getUrl('doit=1;keywords='.$session->url->escape($keywords))
);
my @results = ();
foreach my $data (@{$p->getPageData}) {
next unless (
$user->userId eq $data->{ownerUserId}
|| $user->isInGroup($data->{groupIdView})
|| $user->isInGroup($data->{groupIdEdit})
);
my $asset = WebGUI::Asset->new($session, $data->{assetId}, $data->{className});
if (defined $asset) {
my $properties = $asset->get;
if ($self->get("useContainers")) {
$properties->{url} = $asset->getContainer->get("url");
}
#Add highlighting
$properties->{'title' } = $hl->highlight($properties->{title});
$properties->{'title_nohighlight' } = $properties->{title};
$properties->{'synopsis' } = $hl->highlight($properties->{synopsis});
$properties->{'synopsis_nohighlight'} = $properties->{synopsis};
push(@results, $properties);
$var{results_found} = 1;
}
}
$var{result_set} = \@results;
$p->appendTemplateVars(\%var);
}
return $self->processTemplate(\%var, undef, $self->{_viewTemplate});
}