mr_evans2u
02-27-2003, 09:03 PM
I'm not sure how to go about this problem. I have a web page that uses dropdown boxes which gives choices for the user. In the code before there was only one choice for $Area(MatchArea), now I have several choices which the user can select more than one for $Area. My problem is I don't know what or how to write the perl code to allow the multiple selected choices.
Can anyone help me please?
sub build_sieve_statements
{
my $name = param('SecName');
my $Test = param('TestValue');
my $Match = param('MatchType');
my $Area = param('MatchArea');
my $Type = param('ActionType');
$if_breaker = '#' . $name . '#';
$header_line = 'if ' . $Test . ' :' . $Match . ' ["' . $Area . '"]';
$discard_line = '{' . $Type . ';';
$stop_line = 'stop;}';
}
### section from HTML ####
### there are several selections from a javascript that populates this. ###
<B>Area: </B>
<select multiple size="1" name="MatchArea" onChange="ReDirect3(this.options.selectedIndex)">
<option value=" " > </option>
<option value=" " >---Select---</option>
<option value=" " >---Select---</option>
</select>
Can anyone help me please?
sub build_sieve_statements
{
my $name = param('SecName');
my $Test = param('TestValue');
my $Match = param('MatchType');
my $Area = param('MatchArea');
my $Type = param('ActionType');
$if_breaker = '#' . $name . '#';
$header_line = 'if ' . $Test . ' :' . $Match . ' ["' . $Area . '"]';
$discard_line = '{' . $Type . ';';
$stop_line = 'stop;}';
}
### section from HTML ####
### there are several selections from a javascript that populates this. ###
<B>Area: </B>
<select multiple size="1" name="MatchArea" onChange="ReDirect3(this.options.selectedIndex)">
<option value=" " > </option>
<option value=" " >---Select---</option>
<option value=" " >---Select---</option>
</select>