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

converted to new def

Browse source
This commit is contained in:
JT Smith 2009-10-22 19:24:07 -05:00
parent bf15e714d0
commit 1f11435a06
1 changed files with 47 additions and 69 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -23,6 +23,53 @@ use WebGUI::International;
use WebGUI::Macro; use WebGUI::Macro;
use WebGUI::SQL; use WebGUI::SQL;
use WebGUI::Utility; 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 => {
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); our @ISA = qw(WebGUI::Asset);
@ -49,75 +96,6 @@ These methods are available from this class:
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 definition ( session, [definition] )
Returns an array reference of definitions. Adds tableName, className, properties to array definition.
=head3 definition
An array of hashes to prepend to the list
=cut
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,'Asset_Wobject');
my %properties;
tie %properties, 'Tie::IxHash';
%properties = (
description=>{
fieldType=>'HTMLArea',
defaultValue=>undef,
tab=>"properties",
label=>$i18n->get(85),
hoverHelp=>$i18n->get('85 description')
},
displayTitle=>{
fieldType=>'yesNo',
defaultValue=>1,
tab=>"display",
label=>$i18n->get(174),
hoverHelp=>$i18n->get('174 description'),
uiLevel=>5
},
styleTemplateId=>{
fieldType=>'template',
defaultValue=>'PBtmpl0000000000000060',
tab=>"display",
label=>$i18n->get(1073),
hoverHelp=>$i18n->get('1073 description'),
namespace=>'style'
},
printableStyleTemplateId=>{
fieldType=>'template',
defaultValue=>'PBtmpl0000000000000060',
tab=>"display",
label=>$i18n->get(1079),
hoverHelp=>$i18n->get('1079 description'),
namespace=>'style'
},
mobileStyleTemplateId => {
fieldType => ( $session->setting->get('useMobileStyle') ? 'template' : 'hidden' ),
defaultValue => 'PBtmpl0000000000000060',
tab => 'display',
label => $i18n->get('mobileStyleTemplateId label'),
hoverHelp => $i18n->get('mobileStyleTemplateId description'),
namespace => 'style',
},
);
push(@{$definition}, {
tableName=>'wobject',
className=>'WebGUI::Asset::Wobject',
autoGenerateForms=>1,
properties => \%properties
});
return $class->SUPER::definition($session,$definition);
}
#-------------------------------------------------------------------
=head2 copyCollateral ( tableName, keyName, keyValue ) =head2 copyCollateral ( tableName, keyName, keyValue )
Copies a row of collateral data where keyName=keyValue. Generates a new key for keyName. Copies a row of collateral data where keyName=keyValue. Generates a new key for keyName.