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

Moose overriding for indexContent.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-07 15:07:20 -07:00
parent 953df9d6a9
commit c786395eb4
13 changed files with 65 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Asset/Event.pm
View file

@ -1418,9 +1418,10 @@ Indexing the content of attachments and user defined fields. See WebGUI::Asset::
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->userDefined1); $indexer->addKeywords($self->userDefined1);
$indexer->addKeywords($self->userDefined2); $indexer->addKeywords($self->userDefined2);
$indexer->addKeywords($self->userDefined3); $indexer->addKeywords($self->userDefined3);
@ -1429,9 +1430,9 @@ sub indexContent {
$indexer->addKeywords($self->location); $indexer->addKeywords($self->location);
my $storage = $self->getStorageLocation; my $storage = $self->getStorageLocation;
foreach my $file (@{$storage->getFiles}) { foreach my $file (@{$storage->getFiles}) {
$indexer->addFile($storage->getPath($file)); $indexer->addFile($storage->getPath($file));
} }
} };

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

@ -357,11 +357,12 @@ Indexing the content of the attachment. See WebGUI::Asset::indexContent() for ad
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->addFile($self->getStorageLocation->getPath($self->filename)); $indexer->addFile($self->getStorageLocation->getPath($self->filename));
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

7
lib/WebGUI/Asset/MatrixListing.pm
View file

@ -391,12 +391,13 @@ Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->next::method; my $indexer = $self->$orig(@_);
$indexer->setIsPublic(0); $indexer->setIsPublic(0);
return undef; return undef;
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

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

@ -802,21 +802,22 @@ Indexing the content of attachments and user defined fields. See WebGUI::Asset::
=cut =cut
sub indexContent { around indexContent => sub {
my $self = shift; my $orig = shift;
my $indexer = $self->SUPER::indexContent; my $self = shift;
$indexer->addKeywords($self->content); my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->userDefined1); $indexer->addKeywords($self->content);
$indexer->addKeywords($self->userDefined2); $indexer->addKeywords($self->userDefined1);
$indexer->addKeywords($self->userDefined3); $indexer->addKeywords($self->userDefined2);
$indexer->addKeywords($self->userDefined4); $indexer->addKeywords($self->userDefined3);
$indexer->addKeywords($self->userDefined5); $indexer->addKeywords($self->userDefined4);
$indexer->addKeywords($self->username); $indexer->addKeywords($self->userDefined5);
my $storage = $self->getStorageLocation; $indexer->addKeywords($self->username);
foreach my $file (@{$storage->getFiles}) { my $storage = $self->getStorageLocation;
$indexer->addFile($storage->getPath($file)); foreach my $file (@{$storage->getFiles}) {
} $indexer->addFile($storage->getPath($file));
} }
};
#------------------------------------------------------------------- #-------------------------------------------------------------------

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

@ -651,11 +651,12 @@ Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->setIsPublic(0); $indexer->setIsPublic(0);
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

7
lib/WebGUI/Asset/Sku.pm
View file

@ -394,12 +394,13 @@ Adding sku as a keyword. See WebGUI::Asset::indexContent() for additonal details
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->sku); $indexer->addKeywords($self->sku);
return $indexer; return $indexer;
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

7
lib/WebGUI/Asset/Sku/EMSTicket.pm
View file

@ -367,12 +367,13 @@ Adding location and eventNumber as a keyword. See WebGUI::Asset::indexContent()
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->location.' '.$self->eventNumber); $indexer->addKeywords($self->location.' '.$self->eventNumber);
return $indexer; return $indexer;
} };

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

@ -186,12 +186,13 @@ Indexing the content of the snippet. See WebGUI::Asset::indexContent() for addit
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->snippet); $indexer->addKeywords($self->snippet);
$indexer->setIsPublic(0); $indexer->setIsPublic(0);
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

7
lib/WebGUI/Asset/Story.pm
View file

@ -519,11 +519,12 @@ Extend the base class to index Story properties like headline, byline, etc.
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->next::method(); my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->headline, $self->subtitle, $self->location, $self->highlights, $self->byline, $self->story, ); $indexer->addKeywords($self->headline, $self->subtitle, $self->location, $self->highlights, $self->byline, $self->story, );
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

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

@ -496,12 +496,13 @@ Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->namespace); $indexer->addKeywords($self->namespace);
$indexer->setIsPublic(0); $indexer->setIsPublic(0);
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

7
lib/WebGUI/Asset/WikiPage.pm
View file

@ -301,12 +301,13 @@ Extends the master class to handle indexing the wiki content.
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->next::method; my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->content); $indexer->addKeywords($self->content);
return $indexer; return $indexer;
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

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

@ -319,11 +319,12 @@ Indexing question and answers. See WebGUI::Asset::indexContent() for additonal d
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->get("question")." ".$self->get("answers")); $indexer->addKeywords($self->get("question")." ".$self->get("answers"));
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------

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

@ -143,11 +143,12 @@ Making private. See WebGUI::Asset::indexContent() for additonal details.
=cut =cut
sub indexContent { around indexContent => sub {
my $orig = shift;
my $self = shift; my $self = shift;
my $indexer = $self->SUPER::indexContent; my $indexer = $self->$orig(@_);
$indexer->setIsPublic(0); $indexer->setIsPublic(0);
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------