Help for this page

Select Code to Download

Select or download this

my $first_name_check = &check_name($app{"first_name"});
unless ($first_name_check == 1) {
    undef $app{"first_name"};
    push (@errors, "First Name: ".$first_name_check);
}

Select or download this

sub check_name {
    my $name = $_[0];
    if ($name =~ /^[A-Z][A-Za-z\-']+/s) {
...
    undef $app{"first_name"};
    push (@errors, "Helpful error message here...");
}