Re: PerForm patch fixing multi/single select boxes

[Michael A Nachbaur]

It would help if the mailing list didn't trim the attachments off. :-) Here it is inline.

--- PerForm.pm-orig Wed Feb 5 10:03:01 2003
+++ PerForm.pm Wed Feb 5 10:30:01 2003
@@ -452,7 +452,7 @@
}
elsif (!$params->{'__submitting'}) {
$selected = [@{$default}];
- @options = map { $$_{name}, $$_{value} } @{$option};
+ @options = map { $$_{name}, $$_{value} } (ref $option eq 'ARRAY' ? @{$option} : $option->{option});
}

my %selected = map { $_ => 1 } @$selected;
@@ -570,7 +570,7 @@
}
elsif (!$params->{'__submitting'}) {
$selected = $default;
- @options = map { $$_{name}, $$_{value} } @{$option};
+ @options = map { $$_{name}, $$_{value} } (ref $option eq 'ARRAY' ? @{$option} : $option->{option});
}

my (@keys, @vals);


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]