Hi Clint,
I've tried this:
my $column = shift;
my $selected = shift;
my $table = $DB->table("Category");
my %hash;
my $i = 0;
my $names = $table->form_names->{$column};
my $vals = sort $table->form_values->{$column};
for my $val (@$vals) {
$hash{$val} = $names->[$i++];
}
my $html = $DB->html($table, $IN);
my $form = $html->select({
name => "$column",
values => \%hash,
value => $selected });
return $form;
}
- saved the sub as "select_cat"
- and called it with
... but it returns only an empty select-box ...
Kai
___________________________________________
http://www.westalgarve.de
http://www.portugalforum.org
http://www.portugal-links.de
I've tried this:
Code:
sub { my $column = shift;
my $selected = shift;
my $table = $DB->table("Category");
my %hash;
my $i = 0;
my $names = $table->form_names->{$column};
my $vals = sort $table->form_values->{$column};
for my $val (@$vals) {
$hash{$val} = $names->[$i++];
}
my $html = $DB->html($table, $IN);
my $form = $html->select({
name => "$column",
values => \%hash,
value => $selected });
return $form;
}
- saved the sub as "select_cat"
- and called it with
Code:
<%select_cat('Name',$ColumnName)%>... but it returns only an empty select-box ...
Kai
___________________________________________
http://www.westalgarve.de
http://www.portugalforum.org
http://www.portugal-links.de