Hello
I'm maintaining a 4 year old mod_perl Web application.
Several months ago, this list helped me to get the following working
I spent a couple of hours last night trying to figure out if
there is a way to do this in a single statement.
$val->{'Ammenities' } is set upstream and is a scalar
if a single item is selected, an array if more than one
is selected.
To re-iterate, this code works. I just want to understand
if there is a better way.
if (ref($val->{'Ammenities'}) eq "ARRAY"){
for ( $keys = 0;$keys<=$#{$val->{Ammenities}};$keys++) {
$amen[$keys] = $val->{Ammenities}[$keys];
}# end for
} else {
$amen[0] = $val->{Ammenities};
}# end if
Then we stick @amen in the database
TIA
Robert Monical
[EMAIL PROTECTED] (mailing list stuff)
[EMAIL PROTECTED] (everything else)
www.restek.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
