SUPER handling for most of Wobject/*.pm. There's a problem with Calendar, though.
This commit is contained in:
parent
fd736e7f67
commit
f56bac9948
18 changed files with 95 additions and 123 deletions
|
|
@ -263,10 +263,10 @@ Duplicates a Thingy, including the definitions of the Things in this Thingy and
|
|||
|
||||
=cut
|
||||
|
||||
sub duplicate {
|
||||
override duplicate => sub {
|
||||
my $self = shift;
|
||||
my $options = shift;
|
||||
my $newAsset = $self->SUPER::duplicate($options);
|
||||
my $newAsset = super();
|
||||
my $db = $self->session->db;
|
||||
my $assetId = $self->getId;
|
||||
my $fields;
|
||||
|
|
@ -310,7 +310,7 @@ sub duplicate {
|
|||
$otherThingFields->{$otherThingField}->{fieldInOtherThingId}, $newAsset->getId]);
|
||||
}
|
||||
return $newAsset;
|
||||
}
|
||||
};
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
|
@ -598,9 +598,9 @@ See WebGUI::AssetPackage::exportAssetData() for details.
|
|||
|
||||
=cut
|
||||
|
||||
sub exportAssetData {
|
||||
override exportAssetData => sub {
|
||||
my $self = shift;
|
||||
my $data = $self->SUPER::exportAssetData;
|
||||
my $data = super();
|
||||
my $db = $self->session->db;
|
||||
my $assetId = $self->getId;
|
||||
|
||||
|
|
@ -608,7 +608,7 @@ sub exportAssetData {
|
|||
$data->{fields} = $db->buildArrayRefOfHashRefs('select * from Thingy_fields where assetId = ?',[$assetId]);
|
||||
|
||||
return $data;
|
||||
}
|
||||
};
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue