Merge remote branch 'cheby/7296_xml_settings_1'

do- · Sep 10, 2015 · 8a1f932 · 8a1f932
2 parents bb5eb85 + 22d4f72
commit 8a1f932
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Eludia/Presentation.pm b/Eludia/Presentation.pm
@@ -936,20 +936,20 @@ sub draw_form_field {
 
 	if ($_REQUEST {__only_field}) {
 
-		my @fields = split (',', $_REQUEST {__only_field});
+		my $fields = [split (',', $_REQUEST {__only_field})];
 
 		if ($field -> {type} eq 'hgroup') {
 			my $html = '';
 			foreach (@{$field -> {items}}) {$html .= draw_form_field ($_, $data)}
 			return $html;
 		}
-		elsif ($field -> {type} eq 'radio') {
+		elsif ($field -> {type} eq 'radio' && !($field -> {name} ~~ $fields)) {
 			my $html = '';
 			foreach (@{$field -> {values}}) {$html .= draw_form_field ($_, $data)}
 			return $html;
 		}
 		else {
-			(grep {$_ eq $field -> {name}} @fields) > 0 or return '';
+			(grep {$_ eq $field -> {name}} @$fields) > 0 or return '';
 		}
 
 	}