sorting the FieldType options.
This commit is contained in:
parent
69c5836f2d
commit
677887cc1f
1 changed files with 2 additions and 0 deletions
|
|
@ -19,6 +19,7 @@ use base 'WebGUI::Form::Control';
|
|||
use WebGUI::Form::SelectList;
|
||||
use WebGUI::International;
|
||||
use WebGUI::Session;
|
||||
use Tie::IxHash;
|
||||
|
||||
=head1 NAME
|
||||
|
||||
|
|
@ -138,6 +139,7 @@ Renders a question selector asking the user where they want to go.
|
|||
sub toHtml {
|
||||
my $self = shift;
|
||||
my %options;
|
||||
tie %options, "Tie::IxHash";
|
||||
foreach my $type (@{$self->{types}}) {
|
||||
my $class = "WebGUI::Form::".ucfirst($type);
|
||||
my $cmd = "use ".$class;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue