Probably you forgot adding values key:
values => { form_value => displayed_value }
Code:
sub {
my $html = $DB->html ( ['Users'], $IN );
return $html->select ( {
name => 'Status',
value => $IN->param('Status'),
values => { 'foo'=> 'Foo', 'bar'=> 'Bar' }
});
}
Hope that helps.
EDIT: also a bit help for further reference (comment from GT::SQL::Display::HTML::select code):
# Make a select list. Valid options are:
# name => FORM_NAME
# values => { form_value => displayed_value }
# value => selected_value
# or
# value => [selected_value1, selected_value2]
# multiple => n - adds MULTIPLE SIZE=n to select list
# sort => coderef called to sort the list or array ref specifying the order in
# which the fields should be display. A code ref, when called, will be
# passed the following arguments: ($value{$a}, $value{$b}, $a, $b)
# blank => 1 or 0. If true, a blank first option will be printed, if false
# the blank first element will not be printed. Defaults to true.
Best regards,
Webmaster33
Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...