my %itemtypes = GetItemTypes();
my @values = values %itemtypes;
- my @labels = keys %itemtypes;
my $CGIitemtype=CGI::scrolling_list(
-name => 'value',
-values => \@values,
- -labels => \@labels,
+ -labels => \%itemtypes,
-size => 1,
-multiple => 0
);