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

Switch from defaultValue to Moose's built-in default

Browse source
This commit is contained in:
Colin Kuskie 2010-01-13 11:14:52 -08:00
parent d14db689b8
commit 2aefb5d316
1 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lib/WebGUI/Asset.pm
View file

@ -30,7 +30,6 @@ property title => (
label => ['99','Asset'], label => ['99','Asset'],
hoverHelp => ['99 description','Asset'], hoverHelp => ['99 description','Asset'],
fieldType => 'text', fieldType => 'text',
defaultValue => 'Untitled',
default => 'Untitled', default => 'Untitled',
); );
around title => sub { around title => sub {
@ -51,7 +50,6 @@ property menuTitle => (
hoverHelp => ['411 description','Asset'], hoverHelp => ['411 description','Asset'],
uiLevel => 1, uiLevel => 1,
fieldType => 'text', fieldType => 'text',
defaultValue => 'Untitled',
builder => '_default_menuTitle', builder => '_default_menuTitle',
lazy => 1, lazy => 1,
); );
@ -77,8 +75,13 @@ property url => (
hoverHelp => ['104 description','Asset'], hoverHelp => ['104 description','Asset'],
uiLevel => 3, uiLevel => 3,
fieldType => 'text', fieldType => 'text',
defaultValue => sub { return $_[0]->getId; }, lazy => 1,
builder => '_default_url',
); );
sub _default_url {
return $_[0]->assetId;
}
around url => sub { around url => sub {
my $orig = shift; my $orig = shift;
my $self = shift; my $self = shift;
@ -95,7 +98,7 @@ property isHidden => (
hoverHelp => ['886 description','Asset'], hoverHelp => ['886 description','Asset'],
uiLevel => 6, uiLevel => 6,
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, default => 0,
); );
property newWindow => ( property newWindow => (
tab => "display", tab => "display",
@ -103,7 +106,7 @@ property newWindow => (
hoverHelp => ['940 description','Asset'], hoverHelp => ['940 description','Asset'],
uiLevel => 9, uiLevel => 9,
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, default => 0,
); );
property encryptPage => ( property encryptPage => (
fieldType => 'yesNo', fieldType => 'yesNo',
@ -112,7 +115,7 @@ property encryptPage => (
label => ['encrypt page','Asset'], label => ['encrypt page','Asset'],
hoverHelp => ['encrypt page description','Asset'], hoverHelp => ['encrypt page description','Asset'],
uiLevel => 6, uiLevel => 6,
defaultValue => 0, default => 0,
); );
property ownerUserId => ( property ownerUserId => (
tab => "security", tab => "security",
@ -120,7 +123,7 @@ property ownerUserId => (
hoverHelp => ['108 description','Asset'], hoverHelp => ['108 description','Asset'],
uiLevel => 6, uiLevel => 6,
fieldType => 'user', fieldType => 'user',
defaultValue => '3', default => '3',
); );
property groupIdView => ( property groupIdView => (
tab => "security", tab => "security",
@ -128,7 +131,7 @@ property groupIdView => (
hoverHelp => ['872 description','Asset'], hoverHelp => ['872 description','Asset'],
uiLevel => 6, uiLevel => 6,
fieldType => 'group', fieldType => 'group',
defaultValue => '7', default => '7',
); );
property groupIdEdit => ( property groupIdEdit => (
tab => "security", tab => "security",
@ -137,7 +140,7 @@ property groupIdEdit => (
hoverHelp => ['871 description','Asset'], hoverHelp => ['871 description','Asset'],
uiLevel => 6, uiLevel => 6,
fieldType => 'group', fieldType => 'group',
defaultValue => '4', default => '4',
); );
property synopsis => ( property synopsis => (
tab => "meta", tab => "meta",
@ -145,7 +148,7 @@ property synopsis => (
hoverHelp => ['412 description','Asset'], hoverHelp => ['412 description','Asset'],
uiLevel => 3, uiLevel => 3,
fieldType => 'textarea', fieldType => 'textarea',
defaultValue => undef, default => undef,
); );
property extraHeadTags => ( property extraHeadTags => (
tab => "meta", tab => "meta",
@ -153,7 +156,7 @@ property extraHeadTags => (
hoverHelp => ['extra head tags description','Asset'], hoverHelp => ['extra head tags description','Asset'],
uiLevel => 5, uiLevel => 5,
fieldType => 'codearea', fieldType => 'codearea',
defaultValue => undef, default => undef,
customDrawMethod=> 'drawExtraHeadTags', customDrawMethod=> 'drawExtraHeadTags',
); );
after extraHeadTags => sub { after extraHeadTags => sub {
@ -172,7 +175,7 @@ after extraHeadTags => sub {
}; };
property extraHeadTagsPacked => ( property extraHeadTagsPacked => (
fieldType => 'hidden', fieldType => 'hidden',
defaultValue => undef, default => undef,
noFormPost => 1, noFormPost => 1,
); );
property usePackedHeadTags => ( property usePackedHeadTags => (
@ -181,7 +184,7 @@ property usePackedHeadTags => (
hoverHelp => ['usePackedHeadTags description','Asset'], hoverHelp => ['usePackedHeadTags description','Asset'],
uiLevel => 7, uiLevel => 7,
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, default => 0,
); );
property isPackage => ( property isPackage => (
label => ["make package",'Asset'], label => ["make package",'Asset'],
@ -189,7 +192,7 @@ property isPackage => (
hoverHelp => ['make package description','Asset'], hoverHelp => ['make package description','Asset'],
uiLevel => 7, uiLevel => 7,
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, default => 0,
); );
property isPrototype => ( property isPrototype => (
tab => "meta", tab => "meta",
@ -197,7 +200,7 @@ property isPrototype => (
hoverHelp => ['make prototype description','Asset'], hoverHelp => ['make prototype description','Asset'],
uiLevel => 9, uiLevel => 9,
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, default => 0,
); );
property isExportable => ( property isExportable => (
tab => 'meta', tab => 'meta',
@ -205,7 +208,7 @@ property isExportable => (
hoverHelp => ['make asset exportable description','Asset'], hoverHelp => ['make asset exportable description','Asset'],
uiLevel => 9, uiLevel => 9,
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 1, default => 1,
); );
property inheritUrlFromParent => ( property inheritUrlFromParent => (
tab => 'meta', tab => 'meta',
@ -213,7 +216,7 @@ property inheritUrlFromParent => (
hoverHelp => ['does asset inherit URL from parent description','Asset'], hoverHelp => ['does asset inherit URL from parent description','Asset'],
uiLevel => 9, uiLevel => 9,
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, default => 0,
); );
after inheritUrlFromParent => sub { after inheritUrlFromParent => sub {
my $self = shift; my $self = shift;
@ -223,17 +226,17 @@ after inheritUrlFromParent => sub {
property status => ( property status => (
noFormPost => 1, noFormPost => 1,
fieldType => 'text', fieldType => 'text',
defaultValue => 'pending', default => 'pending',
); );
property lastModified => ( property lastModified => (
noFormPost => 1, noFormPost => 1,
fieldType => 'DateTime', fieldType => 'DateTime',
defaultValue => sub { return time() }, default => sub { return time() },
); );
property assetSize => ( property assetSize => (
noFormPost => 1, noFormPost => 1,
fieldType => 'integer', fieldType => 'integer',
defaultValue => 0, default => 0,
); );
has session => ( has session => (
is => 'ro', is => 'ro',
@ -249,7 +252,7 @@ property revisionDate => (
noFormPost => 1, noFormPost => 1,
fieldType => 'time', fieldType => 'time',
); );
has [qw/parentId lineage className has [qw/parentId lineage
creationDate createdBy creationDate createdBy
state stateChanged stateChangedBy state stateChanged stateChangedBy
isLockedBy isSystem lastExportedAs/] => ( isLockedBy isSystem lastExportedAs/] => (