#no checkboxes#
my %params = $q->Vars;
foreach my $i (keys %params)
{if ($params{$i} eq "" || $params{$i} eq " ")
{print <<"PrintTag";
<html>
<head>
<title>Error!</title>
</head>
<body bgcolor="#ffffff">
<center>
<h2>Alert!</h2>
<h3>I'm sorry but all fields need to be filled out except the check boxes.</h3>
<p>Please push the back button on your browser and try again.</p>
</center>
</body>
</html>
PrintTag
exit(0);
}
}
#if you have checkboxes add this bit of code also#
my @dates=$q->param('date');
if (@dates[$dates] eq "" || @dates[$dates] eq " ")
{
print <<"PrintTag";
<html>
<head>
<title>Error!</title>
</head>
<body bgcolor="#ffffff">
<center>
<h2>Alert!</h2>
<h3>I'm sorry but you must check at least one date.</h3>
<p>Please push the back button on your browser and try again.</p>
</center>
</body>
</html>
PrintTag
exit(0);
}
>Hello, All:
>
>What's the simplest way to make sure that all 10 fields have been
>selected? I was hoping that...
>
> display_error_message() if param() < 10;
>
>....would work, but it doesn't seem to work correctly.
>
>--
>Eric P.
>Los Gatos, CA
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
--
-------------------------------
- Teresa Raymond -
- Mariposa Net -
- http://www.mariposanet.com -
-------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
