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

Convert Snippet to moose accessors.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-19 11:34:23 -08:00
parent 675bc49f05
commit 41b741d41b
3 changed files with 55 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Asset/Snippet.pm
View file

@ -200,7 +200,7 @@ Indexing the content of the snippet. See WebGUI::Asset::indexContent() for addit
sub indexContent {
my $self = shift;
my $indexer = $self->SUPER::indexContent;
$indexer->addKeywords($self->get("snippet"));
$indexer->addKeywords($self->snippet);
$indexer->setIsPublic(0);
}
@ -254,8 +254,8 @@ sub view {
my $versionTag = WebGUI::VersionTag->getWorking($session, 1);
my $noCache =
$session->var->isAdminOn
|| $self->get("cacheTimeout") <= 10
|| ($versionTag && $versionTag->getId eq $self->get("tagId"));
|| $self->cacheTimeout <= 10
|| ($versionTag && $versionTag->getId eq $self->tagId);
unless ($noCache) {
my $out = eval{$session->cache->get("view_".$calledAsWebMethod."_".$self->getId)};
return $out if $out;
@ -270,7 +270,7 @@ sub view {
}
WebGUI::Macro::process($session,\$output);
unless ($noCache) {
eval{$session->cache->set("view_".$calledAsWebMethod."_".$self->getId, $output, $self->get("cacheTimeout"))};
eval{$session->cache->set("view_".$calledAsWebMethod."_".$self->getId, $output, $self->cacheTimeout)};
}
return $output;
}

89
lib/WebGUI/Asset/Wobject.pm
View file

@ -23,55 +23,50 @@ use WebGUI::International;
use WebGUI::Macro;
use WebGUI::SQL;
use WebGUI::Utility;
use WebGUI::Definition::Asset (
properties => [
description=>{
fieldType =>'HTMLArea',
defaultValue =>undef,
tab =>"properties",
label =>[85,'Asset_Wobject'],
hoverHelp =>['85 description','Asset_Wobject'],
},
displayTitle=>{
fieldType =>'yesNo',
defaultValue =>1,
tab =>"display",
label =>[174,'Asset_Wobject'],
hoverHelp =>['174 description','Asset_Wobject'],
uiLevel =>5
},
styleTemplateId=>{
fieldType =>'template',
defaultValue =>'PBtmpl0000000000000060',
tab =>"display",
label =>[1073,'Asset_Wobject'],
hoverHelp =>['1073 description','Asset_Wobject'],
namespace =>'style'
},
printableStyleTemplateId=>{
fieldType =>'template',
defaultValue =>'PBtmpl0000000000000060',
tab =>"display",
label =>[1079,'Asset_Wobject'],
hoverHelp =>['1079 description','Asset_Wobject'],
namespace =>'style'
},
mobileStyleTemplateId => {
use WebGUI::Definition::Asset;
extends WebGUI::Asset;
attribute tableName => 'wobject',
attribute assetName => 'Wobject',
property description => (
fieldType => 'HTMLArea',
defaultValue => undef,
tab => "properties",
label => [85,'Asset_Wobject'],
hoverHelp => ['85 description','Asset_Wobject'],
);
property displayTitle => (
fieldType => 'yesNo',
defaultValue => 1,
tab => "display",
label => [174,'Asset_Wobject'],
hoverHelp => ['174 description','Asset_Wobject'],
uiLevel => 5
);
property styleTemplateId => (
fieldType => 'template',
noFormPost => sub { return !$_[0]->session->setting->get('useMobileStyle'); },
defaultValue => 'PBtmpl0000000000000060',
tab => 'display',
label => ['mobileStyleTemplateId label','Asset_Wobject'],
hoverHelp => ['mobileStyleTemplateId description','Asset_Wobject'],
namespace => 'style',
},
],
tableName =>'wobject',
assetName => 'Wobject',
);
our @ISA = qw(WebGUI::Asset);
tab => "display",
label => [1073,'Asset_Wobject'],
hoverHelp => ['1073 description','Asset_Wobject'],
namespace => 'style'
);
property printableStyleTemplateId => (
fieldType => 'template',
defaultValue => 'PBtmpl0000000000000060',
tab => "display",
label => [1079,'Asset_Wobject'],
hoverHelp => ['1079 description','Asset_Wobject'],
namespace => 'style'
);
property mobileStyleTemplateId => (
fieldType => 'template',
noFormPost => sub { return !$_[0]->session->setting->get('useMobileStyle'); },
defaultValue => 'PBtmpl0000000000000060',
tab => 'display',
label => ['mobileStyleTemplateId label','Asset_Wobject'],
hoverHelp => ['mobileStyleTemplateId description','Asset_Wobject'],
namespace => 'style',
);
=head1 NAME