be Groovie

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>
$errors is a hash reference keyed as:
		
    '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>