[HTML]

Name:

More info:

[Perl] #note: %sql is later used to populate a database and notify e-mail #validate() untaints and checks for empty or invalid values my ( %sql, @errors, $error, $fifvalues ); ($sql{'address'}, $error ) = $self->validate( $self->query->param('address') ); if ( $error ) { push @errors, ( { 'error' => 'Address'.$error } ); } ($sql{'more_info'}, $error ) = $self->validate($self->query->param( 'more_info') ); if ( $error ) { push @errors, ( { 'error' => 'More info'.$error } ); } $fifvalues->{'more_info'} = $sql{'more_info'}; #needed because 'associate' doesn't handle checkboxes, radios, and selects my $template = $self->load_tmpl( 'contact.tmpl', associate => $self->query(); die_on_bad_params => 0, ); $template->param( errors => \@errors ); return $self->fill_form( \$template->output, $fifvalues );