Thanks Roger, I tried the following and it worked.
my $location=$q->param('location');
my $foodtype=$q->param('foodtype');
#CK FOR BLANKS
if ($location eq "" || $foodtype eq "")
{print <<"PrintTag";
<html>
<head>
<STYLE type="text/css">
<!--
BODY {
background-color: #ffffcc;
font-size: 12pt;
color: #000066;
text-align: center
}
H1 {
font-size: 14pt
}
-->
</STYLE>
<title>Alert!</title>
</head>
<body bgcolor="#ffffcc" color="#000066">
<center>
<h3>Alert!</h3>
<p>Location and Food Type fields are required.<br>Please push the
back button on your browser and try again.
</p>
</body>
</html>
PrintTag
exit(0);
}
>I'm not totally sure what you are referring to but I tried the
>following and it also did not work:
>
>#INITIALIZE VARIABLES FROM FORM
>my $q = new CGI;
>my %param = $q->Vars;
>
>my @location=$q->param('location');
>
>#CK FOR BLANKS
>foreach my $i (@location)
>{if ($i eq "")
> {print <<"PrintTag";
><html>
><head>
><STYLE type="text/css">
><!--
>BODY {
>background-color: #ffffcc;
>font-size: 12pt;
>color: #000066;
>text-align: center
>}
>H1 {
>font-size: 14pt
>}
>-->
></STYLE>
><title>Alert!</title>
></head>
><body bgcolor="#ffffcc" color="#000066">
><center>
><h3>Alert!</h3>
><p>Name and Phone of Restaurant fields are required.<br>Please push
>the back button on your browser and try again.
></p>
></body>
></html>
>PrintTag
> exit(0);
> }
>}
>
>
>>Teresa
>>
>>I seem to remember such an enquiry a couple of weeks ago in this group. The
>>answer I saw, and I believe to be correct, is that, if a CGI param has not
>>been given a value, its name will not appear in $q->param(). You therefore
>>need a local list of CGI param names in order to check whether they are
>>expected, but have not been given a value.
>>
>>Regards
>>- Roger -
>>
>>----- Original Message -----
>>From: "Teresa Raymond" <[EMAIL PROTECTED]>
>>To: <[EMAIL PROTECTED]>
>>Sent: Tuesday, September 25, 2001 2:02 PM
>>Subject: How to ck for null set w/ Checkboxes
>>
>>
>> > How do you check for the null set or blank with checkboxes using
>> > CGI.pm? The following code does not work for checkboxes though it
>> > does for all other input fields.
>> >
>> > #TEST FOR BAD CHARS
>> > my ($name, $value);
>> >
>> > foreach $name ($q->param())
>> > {foreach $value ($q->param( $name ))
>> > {#CK FOR BLANKS
>> > if ($value eq "" || $value eq " ")
>> > {print <<"PrintTag";
>> > <html>
>> > <head>
>> > <STYLE type="text/css">
>> > <!--
>> > BODY {
>> > background-color: #ffffcc;
>> > font-size: 12pt;
>> > color: #000066;
>> > text-align: center
>> > }
>> > H1 {
>> > font-size: 14pt
>> > }
>> > -->
>> > </STYLE>
>> > <title>Alert!</title>
>> > </head>
>> > <body bgcolor="#ffffcc" color="#000066">
>> > <center>
>> > <h3>Alert!</h3>
>> > <p>All fields are required.<br>Please push the back button on your
>> > browser and try again.
>> > </p>
>> > </body>
>> > </html>
>> > PrintTag
>> > exit(0);
>> > }
>> > }
>> >
>> >
>> > -------------------------------
>> > - Teresa Raymond -
>> > - [EMAIL PROTECTED] -
>> > - http://www.mariposanet.com -
>> > -------------------------------
>> >
>> > --
>> > To unsubscribe, e-mail: [EMAIL PROTECTED]
>> > For additional commands, e-mail: [EMAIL PROTECTED]
>> >
>> >
>> >
>> >
>> >
-------------------------------
- Teresa Raymond -
- [EMAIL PROTECTED] -
- http://www.mariposanet.com -
-------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
