- my $statement = 'INSERT INTO PERSONS ( ',
- join(', ', @fields ),
- ' ) VALUES ( ',
- join( ', ', map { $cgi->param($_) } @fields ),
+ my $field;
+ foreach $field ( @fields ) {
+ if ( $cgi->param( $field ) ) {
+ $cgi->param( $field ) =~ /^(.*)$/;
+ $cgi->param( $field, $1);
+ }
+ }
+ my $statement = 'INSERT INTO PERSONS ( '.
+ join(', ', @fields ).
+ ' ) VALUES ( '.
+ join( ', ', map { $cgi->param($_) } @fields ).