Aspect to Role renaming

This commit is contained in:
Colin Kuskie 2010-03-03 21:10:35 -08:00
parent dfc388fe3d
commit bf1cb7b721
7 changed files with 9 additions and 40 deletions

View file

@ -16,7 +16,6 @@ package WebGUI::Asset::MatrixListing;
use strict;
use Tie::IxHash;
#use base qw(WebGUI::AssetAspect::Comments WebGUI::Asset);
use Moose;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
@ -117,6 +116,7 @@ property lastUpdated => (
fieldType => 'hidden',
);
with 'WebGUI::Role::Asset::Comments';
use WebGUI::Utility;
@ -193,37 +193,6 @@ sub canEdit {
}
}
#-------------------------------------------------------------------
=head2 definition ( session, definition )
defines asset properties for MatrixListing instances.
=head3 session
=head3 definition
A hash reference passed in from a subclass definition.
=cut
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my %properties;
tie %properties, 'Tie::IxHash';
my $i18n = WebGUI::International->new($session, "Asset_MatrixListing");
%properties = (
);
push(@{$definition}, {
className=>'WebGUI::Asset::MatrixListing',
properties=>\%properties
});
return $class->next::method($session, $definition);
}
#-------------------------------------------------------------------
=head2 duplicate