- All assets now have an autoGenerateForms property just like wobjects per the
rough edges discussions in Community IRC. - fix: not set UTF-8 in setup page
This commit is contained in:
parent
2f3ae0faef
commit
33272fd76c
6 changed files with 51 additions and 140 deletions
|
|
@ -62,11 +62,15 @@ sub definition {
|
|||
push(@{$definition}, {
|
||||
assetName=>$i18n->get('assetName'),
|
||||
uiLevel => 9,
|
||||
autoGenerateForms=>1,
|
||||
icon=>'redirect.gif',
|
||||
tableName=>'redirect',
|
||||
className=>'WebGUI::Asset::Redirect',
|
||||
properties=>{
|
||||
redirectUrl=>{
|
||||
tab=>"properties",
|
||||
label=>$i18n->get('redirect url'),
|
||||
hoverHelp=>$i18n->get('redirect url description'),
|
||||
fieldType=>'url',
|
||||
defaultValue=>undef
|
||||
}
|
||||
|
|
@ -76,29 +80,6 @@ sub definition {
|
|||
}
|
||||
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 getEditForm ()
|
||||
|
||||
Returns the TabForm object that will be used in generating the edit page for this asset.
|
||||
|
||||
=cut
|
||||
|
||||
sub getEditForm {
|
||||
my $self = shift;
|
||||
my $tabform = $self->SUPER::getEditForm();
|
||||
my $i18n = WebGUI::International->new($self->session, 'Asset_Redirect');
|
||||
$tabform->getTab("properties")->url(
|
||||
-name=>"redirectUrl",
|
||||
-label=>$i18n->get('redirect url'),
|
||||
-hoverHelp=>$i18n->get('redirect url description'),
|
||||
-value=>$self->getValue("redirectUrl")
|
||||
);
|
||||
return $tabform;
|
||||
}
|
||||
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
sub www_edit {
|
||||
my $self = shift;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue