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

Moose subclassing for Asset/*.pm.

Browse source
This commit is contained in:
Colin Kuskie 2010-04-09 10:30:54 -07:00
parent 0c003083a0
commit c35f3b9ffb
6 changed files with 65 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Asset/Shortcut.pm
View file

@ -242,9 +242,9 @@ Extend the base method to duplicate shortcut overrides.
=cut
sub duplicate {
override duplicate => sub {
my $self = shift;
my $newAsset = $self->SUPER::duplicate(@_);
my $newAsset = super();
$self->session->db->write(<<'END_SQL', [$newAsset->getId, $self->getId]);
INSERT INTO Shortcut_overrides (assetId, fieldName, newValue)
SELECT ?, fieldName, newValue
@ -252,7 +252,7 @@ FROM Shortcut_overrides
WHERE assetId = ?
END_SQL
return $newAsset;
}
};
#-------------------------------------------------------------------
@ -278,9 +278,9 @@ Extend the base class to handle hand drawing the query build and other pieces.
=cut
sub getEditForm {
override getEditForm => sub {
my $self = shift;
my $tabform = $self->SUPER::getEditForm();
my $tabform = super();
my $originalTemplate;
my $i18n = WebGUI::International->new($self->session, "Asset_Shortcut");
my $shortcut = $self->getShortcut;
@ -355,7 +355,7 @@ sub getEditForm {
);
}
return $tabform;
}
};
#-------------------------------------------------------------------
@ -814,13 +814,13 @@ the scratch variables, and to uncache the overrides.
=cut
sub processPropertiesFromFormPost {
override processPropertiesFromFormPost => sub {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost;
super();
my $scratchId = "Shortcut_" . $self->getId;
$self->session->scratch->delete($scratchId);
$self->uncacheOverrides;
}
};
#----------------------------------------------------------------------------