iPtch by Frederic Buclin <LpSolit@gmail.com> r=mkanat a=myk
if ($param->{'type'} eq "s") {
unless (scalar(grep {$_ eq $value} (@{$param->{'choices'}}))) {
- return "Invalid choice '$value' for single-select list param '$param'";
+ return "Invalid choice '$value' for single-select list param '$param->{'name'}'";
}
return "";
elsif ($param->{'type'} eq "m") {
foreach my $chkParam (@$value) {
unless (scalar(grep {$_ eq $chkParam} (@{$param->{'choices'}}))) {
- return "Invalid choice '$chkParam' for multi-select list param '$param'";
+ return "Invalid choice '$chkParam' for multi-select list param '$param->{'name'}'";
}
}