----- Original Message -----
From: "Jonathan Mangin" <[EMAIL PROTECTED]>
To: <beginners-cgi@perl.org>; <[EMAIL PROTECTED]>
Sent: Wednesday, May 02, 2007 9:51 AM
Subject: Re: Odd select box behaviour
>
> ----- Original Message -----
> From: <[EMAIL PROTECTED]>
> To: <beginners-cgi@perl.org>
> Sent: Tuesday, May 01, 2007 8:21 PM
> Subject: Odd select box behaviour
>
>
> > This one has me stumped, and it shouldn't.
> >
> > I'm trying to validate data from a simple select box:
> >
> > <select size="1" name="country">
> > <option selected value='United States'>United States</option>
> > <option value='Canada'>Canada</option>
> > </select>
> >
> > When I do:
> >
> > foreach my $Item (param())
> > {
> > my $input=param($Item);
> > print "$Item --$input--<br>\n";
> > }
> >
> > the data is printed out with the expected leading and trailing '--'.
> >
> > But when I try to validate the incoming data:
> >
> > my $Country=param('country');
> > if ($Country ne 'Canada' || $Country ne 'United States')
> > {
> > $Status=1;
> > $ErrMsg .= "$Mandatory{country} must be either Canada or United
> > States.<br>";
> > }
> >
> Shouldn't that be:
>
> if ($Country ne 'Canada' && $Country ne 'United States') {
No, I guess not. Ignore me...
>
> And, is validation really necessary here?
>
> --Jon
>
>
> > it *always* falls through into the code block.
> >
> > I've stripped leading and trailing spaces from $Country. I've chomped
> > $Country.
> >
> > This is driving me crazy, especially since there are only 2 choices in
> > the select list, and one of them is already selected.
> >
> > Am I missing something really stupid here?
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > http://learn.perl.org/
> >
> >
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
