Hi, I´m using this global sub to generate the select forms
- create_select:
sub {
my $col = shift;
my $tags = GT::Template->tags;
my $cols = $tags->{home}->{db}->cols;
return if (lc $cols->{$col}->{'form_type'} ne 'select');
my $values;
my $selected = $tags->{values}->{$col};
my $form_values = $cols->{$col}->{'form_values'};
my $form_names = $cols->{$col}->{'form_names'};
if ($form_values and $form_names and ($#$form_values == $#$form_names)) {
for my $i (0..$#$form_values) {
exists $values->{@$form_values[$i]} or $values->{@$form_values
[$i]} = @$form_names[$i];
}
}
else {
$values = $cols->{$col}->{values};
}
return $tags->{home}->{disp}->select ( {
name => $col,
values => $values,
value => $selected,
blank => 1,
});
}
But I want to sort the numbers
If it´s less than 10, it be ok 0,1,2,3,4,5,6,7,8,9
But if it´s more than 10 it get´s too confused like 37,38,39,20,21,22,23,40,24,41 (this sequence)
What can I do to sort 11,12,13,14 ... ?
Thanks
Fábio
- create_select:
sub {
my $col = shift;
my $tags = GT::Template->tags;
my $cols = $tags->{home}->{db}->cols;
return if (lc $cols->{$col}->{'form_type'} ne 'select');
my $values;
my $selected = $tags->{values}->{$col};
my $form_values = $cols->{$col}->{'form_values'};
my $form_names = $cols->{$col}->{'form_names'};
if ($form_values and $form_names and ($#$form_values == $#$form_names)) {
for my $i (0..$#$form_values) {
exists $values->{@$form_values[$i]} or $values->{@$form_values
[$i]} = @$form_names[$i];
}
}
else {
$values = $cols->{$col}->{values};
}
return $tags->{home}->{disp}->select ( {
name => $col,
values => $values,
value => $selected,
blank => 1,
});
}
But I want to sort the numbers
If it´s less than 10, it be ok 0,1,2,3,4,5,6,7,8,9
But if it´s more than 10 it get´s too confused like 37,38,39,20,21,22,23,40,24,41 (this sequence)
What can I do to sort 11,12,13,14 ... ?
Thanks
Fábio