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

Update Article for Moose

Browse source
This commit is contained in:
Colin Kuskie 2010-01-26 16:13:36 -08:00
parent 9bc1f2fe8e
commit 1736b481b6
2 changed files with 52 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -14,7 +14,58 @@ use strict;
use Tie::IxHash;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Asset::Wobject;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Article'];
aspect icon => 'article.gif';
aspect tableName => 'Article';
property cacheTimeout => (
tab => "display",
fieldType => "interval",
default => 3600,
uiLevel => 8,
label => ["cache timeout", 'Asset_Article'],
hoverHelp => ["cache timeout help", 'Asset_Article'],
);
property templateId => (
tab => "display",
fieldType => "template",
default => 'PBtmpl0000000000000002',
namespace => "Article",
hoverHelp => ['article template description', 'Asset_Article'],
label => ['72', 'Asset_Article'],
);
property linkTitle => (
tab => "properties",
fieldType => 'text',
default => undef,
label => ['7', 'Asset_Article'],
hoverHelp => ['link title description', 'Asset_Article'],
uiLevel => 3
);
property linkURL => (
tab => "properties",
fieldType => 'url',
default => undef,
label => ['8', 'Asset_Article'],
hoverHelp => ['link url description', 'Asset_Article'],
uiLevel => 3
);
property storageId => (
tab => "properties",
fieldType => "image",
deleteFileUrl => \&_storageId_deleteFileUrl,
maxAttachments => 2,
persist => 1,
default => undef,
label => ["attachments", 'Asset_Article'],
hoverHelp => ["attachments help", 'Asset_Article'],
);
sub _storageid_deleteFileUrl {
return shift->session->url->page("func=deleteFile;filename=");
}
use WebGUI::Storage;
use WebGUI::HTML;
@ -79,70 +130,6 @@ sub addRevision {
return $newSelf;
}
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,'Asset_Article');
my %properties;
tie %properties, 'Tie::IxHash';
%properties = (
cacheTimeout => {
tab => "display",
fieldType => "interval",
defaultValue => 3600,
uiLevel => 8,
label => $i18n->get("cache timeout"),
hoverHelp => $i18n->get("cache timeout help")
},
templateId =>{
fieldType=>"template",
defaultValue=>'PBtmpl0000000000000002',
tab=>"display",
namespace=>"Article",
hoverHelp=>$i18n->get('article template description'),
label=>$i18n->get(72)
},
linkTitle=>{
tab=>"properties",
fieldType=>'text',
defaultValue=>undef,
label=>$i18n->get(7),
hoverHelp=>$i18n->get('link title description'),
uiLevel=>3
},
linkURL=>{
tab=>"properties",
fieldType=>'url',
defaultValue=>undef,
label=>$i18n->get(8),
hoverHelp=>$i18n->get('link url description'),
uiLevel=>3
},
storageId=>{
tab=>"properties",
fieldType=>"image",
deleteFileUrl=>$session->url->page("func=deleteFile;filename="),
maxAttachments=>2,
persist => 1,
defaultValue=>undef,
label=>$i18n->get("attachments"),
hoverHelp=>$i18n->get("attachments help")
}
);
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
icon=>'article.gif',
autoGenerateForms=>1,
tableName=>'Article',
className=>'WebGUI::Asset::Wobject::Article',
properties=>\%properties
});
return $class->SUPER::definition($session, $definition);
}
#-------------------------------------------------------------------
=head2 duplicate ( )

5
t/Asset/Wobject/Article.t
View file

@ -136,8 +136,3 @@ TODO: {
ok(0, 'Test www_deleteFile method');
ok(0, 'Test www_view method... maybe?');
}
END {
# Clean up after thy self
}