Select Code to Download

23c23
< package Data::FormValidator;
...
>     }
> ####################################################################
+##

#!/usr/bin/perl -w

...
$errortext .= "The following fields were not completed correctly: \n" 
+.
              join("\n", @{$error{invalid}}) . "\n";
print $errortext;

use strict;
use CGI qw(header);
...
[% END %]
<input type="submit">
</form>

use strict;
use CGI qw(header);
...
[% END %]
<input type="submit">
</form>