Code of the Day

I haven't been able to post a lot because I've been working at work (and getting stuff done). To prove this point, here is my code that makes validating ±500 fields a lot easier. Don't get me started on why this is necessary in the first place when I should be able to use built-in checks. Suffice it to say, the guy is an idiot.

sub ah2_valid
{
my ( $c ) = @_;
my %errors;
my $data = $c->stash->{form}->get_values;
$c->log->info("***  ah2_valid  ******");
foreach my $k (keys %{$c->req->body_params})
{
next unless $k =~ /^ah2/;
int_comma_err($data->{$k},\%errors,'ah2') if $data->{$k};
#print STDERR $c->req->body_params->{$k} . "\n";
}
return _set_custom_errors( $c , %errors ) ? 0: 's2/ag' ;
}

Happy New Year, if I don't get back here before Friday.