version 1.115, 2008/10/30 17:45:25
|
version 1.116, 2009/01/20 16:38:44
|
Line 577 sub parse_field_selection {
|
Line 577 sub parse_field_selection {
|
} |
} |
|
|
sub field_selection_input { |
sub field_selection_input { |
my $Str = '<select name="fieldselections" multiple size="5">'."\n"; |
my $Str = '<select name="fieldselections" multiple="multiple" size="5">'."\n"; |
$Str .= '<option value="all">all</option>'."\n"; |
$Str .= '<option value="all">all</option>'."\n"; |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
next if ($field->{'selectable'} ne 'yes'); |
next if ($field->{'selectable'} ne 'yes'); |