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
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->SUPER::indexContent;
my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->userDefined1);
$indexer->addKeywords($self->userDefined2);
$indexer->addKeywords($self->userDefined3);
@ -1429,9 +1430,9 @@ sub indexContent {
$indexer->addKeywords($self->location);
my $storage = $self->getStorageLocation;
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
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->SUPER::indexContent;
my $indexer = $self->$orig(@_);
$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
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->next::method;
my $indexer = $self->$orig(@_);
$indexer->setIsPublic(0);
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
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->addKeywords($self->content);
$indexer->addKeywords($self->userDefined1);
$indexer->addKeywords($self->userDefined2);
$indexer->addKeywords($self->userDefined3);
$indexer->addKeywords($self->userDefined4);
$indexer->addKeywords($self->userDefined5);
$indexer->addKeywords($self->username);
my $storage = $self->getStorageLocation;
foreach my $file (@{$storage->getFiles}) {
$indexer->addFile($storage->getPath($file));
}
}
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->content);
$indexer->addKeywords($self->userDefined1);
$indexer->addKeywords($self->userDefined2);
$indexer->addKeywords($self->userDefined3);
$indexer->addKeywords($self->userDefined4);
$indexer->addKeywords($self->userDefined5);
$indexer->addKeywords($self->username);
my $storage = $self->getStorageLocation;
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
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->SUPER::indexContent;
my $indexer = $self->$orig(@_);
$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
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->SUPER::indexContent;
my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->sku);
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
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->SUPER::indexContent;
my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->location.' '.$self->eventNumber);
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
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->SUPER::indexContent;
my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->snippet);
$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
sub indexContent {
around indexContent => sub {
my $orig = 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, );
}
};
#-------------------------------------------------------------------

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

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