Skip to content

Commit

Permalink
Moose overriding for indexContent.
Browse files Browse the repository at this point in the history
  • Loading branch information
@perlDreamer
perlDreamer committed Apr 7, 2010
1 parent 953df9d commit c786395
Show file tree
Hide file tree
Showing 13 changed files with 65 additions and 52 deletions.
9 changes: 5 additions & 4 deletions lib/WebGUI/Asset/Event.pm
View file
Expand Up @@ -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);
Expand All @@ -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));
}
}
};



Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/File.pm
View file
Expand Up @@ -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));
}
};


#-------------------------------------------------------------------
Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/MatrixListing.pm
View file
Expand Up @@ -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;
}
};


#-------------------------------------------------------------------
Expand Down
31 changes: 16 additions & 15 deletions lib/WebGUI/Asset/Post.pm
View file
Expand Up @@ -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));
}
};

#-------------------------------------------------------------------

Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/RichEdit.pm
View file
Expand Up @@ -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);
}
};


#-------------------------------------------------------------------
Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/Sku.pm
View file
Expand Up @@ -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;
}
};

#-------------------------------------------------------------------

Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/Sku/EMSTicket.pm
View file
Expand Up @@ -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;
}
};



Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/Snippet.pm
View file
Expand Up @@ -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);
}
};

#-------------------------------------------------------------------

Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/Story.pm
View file
Expand Up @@ -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, );
}
};

#-------------------------------------------------------------------

Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/Template.pm
View file
Expand Up @@ -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);
}
};

#-------------------------------------------------------------------

Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/WikiPage.pm
View file
Expand Up @@ -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;
}
};

#-------------------------------------------------------------------

Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/Wobject/Poll.pm
View file
Expand Up @@ -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"));
}
};


#-------------------------------------------------------------------
Expand Down
7 changes: 4 additions & 3 deletions lib/WebGUI/Asset/_NewAsset.skeleton
View file
Expand Up @@ -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);
}
};

#-------------------------------------------------------------------

Expand Down

0 comments on commit c786395

Please sign in to comment.