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

added search indexer

Browse source
This commit is contained in:
JT Smith 2006-01-20 21:18:09 +00:00
parent cb5e059b2e
commit fd3fb924f3
12 changed files with 214 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lib/WebGUI/Asset.pm
View file

@ -28,6 +28,7 @@ use WebGUI::AdminConsole;
use WebGUI::Cache;
use WebGUI::Form;
use WebGUI::HTMLForm;
use WebGUI::Search::Index;
use WebGUI::TabForm;
use WebGUI::Utility;
@ -741,18 +742,6 @@ sub getImportNode {
return WebGUI::Asset->newByDynamicClass($session, "PBasset000000000000002");
}
#-------------------------------------------------------------------
=head2 getIndexerParams ( )
Override this method and return a hash reference that includes the properties necessary to index the content of the wobject.
Currently does nothing.
=cut
sub getIndexerParams {
return {};
}
#-------------------------------------------------------------------
@ -993,6 +982,20 @@ sub getValue {
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Returns an indexer object for this asset. When this method is called the asset's base content gets stored in the index. This method is often overloaded so that a particular asset can insert additional content other than the basic properties. Such uses include indexing attached files or collateral data.
=cut
sub indexContent {
my $self = shift;
return WebGUI::Search::Index->create($self);
}
#-------------------------------------------------------------------
=head2 new ( session, assetId [, className, revisionDate ] )

15
lib/WebGUI/Asset/File.pm
View file

@ -192,6 +192,21 @@ sub getStorageLocation {
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Indexing the content of the attachment. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->addFile($self->getStorageLocation->getPath($self->get("filename")));
}
#-------------------------------------------------------------------
sub processPropertiesFromFormPost {
my $self = shift;

24
lib/WebGUI/Asset/Post.pm
View file

@ -532,6 +532,30 @@ sub hasRated {
#-------------------------------------------------------------------
=head2 indexContent ( )
Indexing the content of attachments and user defined fields. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->addKeywords($self->get("content"));
$indexer->addKeywords($self->get("userDefined1"));
$indexer->addKeywords($self->get("userDefined2"));
$indexer->addKeywords($self->get("userDefined3"));
$indexer->addKeywords($self->get("userDefined4"));
$indexer->addKeywords($self->get("userDefined5"));
$indexer->addKeywords($self->get("username"));
my $storage = $self->getStorageLocation;
foreach my $file (@{$storage->getFiles}) {
$indexer->addFile($storage->getPath($file));
}
}
#-------------------------------------------------------------------
=head2 incrementViews ( )
Increments the views counter for this post.

15
lib/WebGUI/Asset/RichEdit.pm
View file

@ -489,6 +489,21 @@ sub getRichEditor {
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->setIsPublic(0);
}
#-------------------------------------------------------------------
sub view {
my $self = shift;

13
lib/WebGUI/Asset/Snippet.pm
View file

@ -142,7 +142,20 @@ sub getToolbar {
return $self->SUPER::getToolbar();
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Indexing the content of the snippet. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->addKeywords($self->get("snippet"));
$indexer->setIsPublic(0);
}
#-------------------------------------------------------------------

15
lib/WebGUI/Asset/Template.pm
View file

@ -229,6 +229,21 @@ sub getParser {
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->setIsPublic(0);
}
#-------------------------------------------------------------------
=head2 process ( vars )

15
lib/WebGUI/Asset/Wobject/Poll.pm
View file

@ -242,6 +242,21 @@ sub getEditForm {
return $tabform;
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Indexing question and answers. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->addKeywords($self->get("question")." ".$self->get("answers"));
}
#-------------------------------------------------------------------
sub processPropertiesFromFormPost {
my $self = shift;

20
lib/WebGUI/Asset/Wobject/Product.pm
View file

@ -275,6 +275,26 @@ sub getThumbnailUrl {
return $store->getUrl($self->getThumbnailFilename($store));
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Indexing product data. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
my @data = $self->session->db->buildArray("select feature from Product_feature where assetId=".$self->session->db->quote($self->getId));
$indexer->addKeywords(join(" ", @data));
@data = $self->session->db->buildArray("select benefit from Product_benefit where assetId=".$self->session->db->quote($self->getId));
$indexer->addKeywords(join(" ", @data));
@data = $self->session->db->buildArray("select concat(name,' ',value,' ', units') from Product_specification where assetId=".$self->session->db->quote($self->getId));
$indexer->addKeywords(join(" ", @data));
}
#-------------------------------------------------------------------
sub purge {
my $self = shift;

15
lib/WebGUI/Asset/_NewAsset.skeleton
View file

@ -176,6 +176,21 @@ sub getIcon {
}
#-------------------------------------------------------------------
=head2 indexContent ( )
Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->setIsPublic(0);
}
#-------------------------------------------------------------------
=head2 processPropertiesFromFormPost ( )

55
lib/WebGUI/Search/Index.pm
View file

@ -36,6 +36,30 @@ These methods are available from this package:
=cut
#-------------------------------------------------------------------
=head2 addFile ( path )
Use an external filter defined in the config file as searchIndexerPlugins.
=head3 path
The path to the filename to index, including the filename.
=cut
sub addFile {
my $self = shift;
my $path = shift;
$path =~ m/\.(\w)$/;
my $type = lc($1);
my $filters = $self->session->config->get("searchIndexerPlugins");
my $filter = $filters->{$type};
my $content = `$filter $path`;
$self->addKeywords($content) if (!$content =~ m/^\s*$/);
}
#-------------------------------------------------------------------
=head2 addKeywords ( text )
@ -57,6 +81,20 @@ sub addKeywords {
}
#-------------------------------------------------------------------
=head2 asset ( )
Returns a reference to the asset object we're indexing.
=cut
sub asset {
my $self = shift;
return $self->{_asset};
}
#-------------------------------------------------------------------
=head2 create ( asset )
@ -125,6 +163,21 @@ sub getId {
#-------------------------------------------------------------------
=head2 setIsPublic ( boolean )
Sets the status of whether this asset will appear in public searches.
=cut
sub isPublic {
my $self = shift;
my $boolean = shift;
my $set = $self->session->db->prepare("update assetIndex set isPublic=? where assetId=?");
$set->execute($boolean, $self->getId);
}
#-------------------------------------------------------------------
=head2 new ( asset )
Constructor.
@ -138,7 +191,7 @@ A reference to an asset object.
sub new {
my $class = shift;
my $asset = shift;
my $self = {_session=>$asset->session, _id=>$asset->getId};
my $self = {_asset=>$asset, _session=>$asset->session, _id=>$asset->getId};
return $self;
}