first success

This commit is contained in:
David Delikat 2009-02-28 20:17:32 +00:00
parent 15a2cbd840
commit 1869017ff3
2 changed files with 17 additions and 17 deletions

View file

@ -157,7 +157,7 @@ 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 => $_->getName } ( WebGUI::AdSpace->getAdSpaces() ) } );
$self->set('options', { map { $_->getId => $_->get('name') } ( @{ WebGUI::AdSpace->getAdSpaces($self->session) } ) } );
return $self->SUPER::toHtml();
}