the cgi_error subroutine contains:
my ($error) = shift;
$error && print "Error Message : $_[0]\n";

However, since shift is being used, the error message is no longer at $_[0]! In any event tis a backwards way of doing this considering there is only one variable entering the subroutine. I propose:

my ($error) = @_;
$error && print "Error Message : $error\n";

which SHOWS the error message, as before the error message was never shown.

-Cheers,
RJW

Hi Randy,

Thanks for the bug fix. Your absoultely right. It should read:

$error && print "Error Message : $error\n";

Cheers,

Alex