A Mason component to fill-in error messages

How often have you seen those sites with a form, and after you miss a field, it pops up a little message in red under the text box indicating what went wrong? I’m guessing a lot, and when writing web applications this can be a pain to code in.

Typically in Perl/PHP, you’d add this by going through your form, adding little bits of code under each and every form element to display the error on invalid input. I quickly got tired of this, and decided to simplify the process.

In examining HTML::FillInForm, I noticed I needed a slightly different tool to easily parse the HTML form. After a little bit of shopping about, I decided on HTML::Parser to do the heavy lifting. Here’s a snippet from a Mason page using my error_fill.mas component to toss in the error messages:


% if ($form_status eq 'errors') {
<&| /lib/error_fill.mas, errors => $errors_hash_ref &>
<p style="color: red; font-weight:bold;">Errors Found: Please correct the fields indicated.
<& /forms/myform.mas, %ARGS &>
</&>
% } else {
<& /forms/myform.mas, %ARGS &>
% }

$errors_hash_ref is a hash ref that is keyed by the form field name, with the value set to the error message you want displayed. Right now, error_fill.mas does not have custom pre/post-fix variables for you to tweak how the error message is inserted. It currently puts a <br> followed by a red span element containing your message.

myform.mas is the form I want to display, I prefer to split sections out in Mason to keep my web application modular and the sections of my pages more reusable.

Here’s error_fill.mas:




$errors
%args>
  1. $errors is a hash reference keyed as:
  2. 'field name’ > 'Error message’

use HTML::Parser;
my $form = $m->content;

my $p = HTML::Parser->new(api_version > 3);
$p->handler(default => sub { print _ }, "text"); $p->handler(end => sub { my ($tagname, $text, $attr) = _; if (($tagname eq ‘select’) && (exists $errors->{$attr->{name}})) { print $text; print ‘’; foreach my $err (@{$errors->{$attr->{name}}}) { print ‘
’.$err; } print ‘
’;

} else { print $text; } }, “tagname, text, attr”); $p->handler(start => sub { my ($tagname, $text, $attr) = _; if (($tagname eq 'input') && (exists $errors->{$attr->{name}})) { print $text; print '<span style="color:red;">'; foreach my $err ({$errors->{$attr->{name}}}) { print ‘
’.$err; } print ”; } else { print $text; } }, “tagname, text, attr”); $p->parse($form); %init>
Hopefully this will help some people out.