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

Use lots and lots of Moose modifiers in the Article.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-24 17:01:18 -07:00
parent 8a3f36a449
commit 54f0148ec9
1 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

42
lib/WebGUI/Asset/Wobject/Article.pm
View file

@ -129,15 +129,15 @@ Override the default method in order to deal with attachments.
=cut
sub addRevision {
override addRevision => sub {
my $self = shift;
my $newSelf = $self->SUPER::addRevision(@_);
my $newSelf = super();
if ($newSelf->storageId && $newSelf->storageId eq $self->storageId) {
my $newStorage = WebGUI::Storage->get($self->session,$self->storageId)->copy;
$newSelf->update({storageId => $newStorage->getId});
}
return $newSelf;
}
};
#-------------------------------------------------------------------
@ -147,13 +147,13 @@ Extend the super class to duplicate the storage location.
=cut
sub duplicate {
override duplicate => sub {
my $self = shift;
my $newAsset = $self->SUPER::duplicate(@_);
my $newAsset = super();
my $newStorage = $self->getStorageLocation->copy;
$newAsset->update({storageId=>$newStorage->getId});
return $newAsset;
}
};
#-------------------------------------------------------------------
@ -248,16 +248,16 @@ any files stored in the storage location.
=cut
sub processPropertiesFromFormPost {
override processPropertiesFromFormPost => sub {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost(@_);
super();
my $size = 0;
my $storage = $self->getStorageLocation;
foreach my $file (@{$storage->getFiles}) {
$size += $storage->getFileSize($file);
}
$self->setSize($size);
}
};
#-------------------------------------------------------------------
@ -267,7 +267,7 @@ Extend the super class to delete all storage locations.
=cut
sub purge {
override purge => sub {
my $self = shift;
my $sth = $self->session->db->read("select storageId from Article where assetId=?",[$self->getId]);
while (my ($storageId) = $sth->array) {
@ -275,8 +275,8 @@ sub purge {
$storage->delete if defined $storage;
}
$sth->finish;
return $self->SUPER::purge;
}
return super();
};
#-------------------------------------------------------------------
@ -286,11 +286,11 @@ See WebGUI::Asset::purgeCache() for details.
=cut
sub purgeCache {
override purgeCache => sub {
my $self = shift;
eval{$self->session->cache->delete("view_".$self->getId)};
$self->SUPER::purgeCache;
}
super();
};
#-------------------------------------------------------------------
@ -300,11 +300,11 @@ Extend the super class to delete the storage location for this revision.
=cut
sub purgeRevision {
override purgeRevision => sub {
my $self = shift;
$self->getStorageLocation->delete;
return $self->SUPER::purgeRevision;
}
return super();
};
#-------------------------------------------------------------------
@ -429,11 +429,11 @@ See WebGUI::Asset::Wobject::www_view() for details.
=cut
sub www_view {
override www_view => sub {
my $self = shift;
$self->session->http->setCacheControl($self->cacheTimeout);
$self->SUPER::www_view(@_);
}
super();
};
1;