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

almost done

Browse source
This commit is contained in:
David Delikat 2009-03-24 04:49:06 +00:00
parent b35848179c
commit efbe79e365
3 changed files with 72 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Form/AdSpace.pm
View file

@ -77,9 +77,6 @@ sub definition {
size=>{
defaultValue=>1
},
defaultValue=>{
defaultValue=>[]
},
});
return $class->SUPER::definition($session, $definition);
}
@ -149,7 +146,9 @@ Returns a group pull-down field. A group pull down provides a select list that p
sub toHtml {
my $self = shift;
$self->set('options', { map { $_->getId => $_->get('name') } ( @{ WebGUI::AdSpace->getAdSpaces($self->session) } ) } );
my $options = { map { $_->getId => $_->get('name') } ( @{ WebGUI::AdSpace->getAdSpaces($self->session) } ) };
$self->set('defaultValue', ( keys %{$options} )[0] );
$self->set('options', $options );
return $self->SUPER::toHtml();
}
@ -163,7 +162,9 @@ Creates a series of hidden fields representing the data in the list.
sub toHtmlAsHidden {
my $self = shift;
$self->set('options', { map { $_->getId => $_->getName } ( WebGUI::AdSpace->getAdSpaces() ) } );
my $options = { map { $_->getId => $_->get('name') } ( @{ WebGUI::AdSpace->getAdSpaces($self->session) } ) };
$self->set('defaultValue', ( keys %{$options} )[0] );
$self->set('options', $options );
return $self->SUPER::toHtmlAsHidden();
}