more BoD
authorjeff <jeff>
Mon, 9 Oct 2006 04:27:17 +0000 (04:27 +0000)
committerjeff <jeff>
Mon, 9 Oct 2006 04:27:17 +0000 (04:27 +0000)
httemplate/edit/process/cust_main.cgi

index 1aaed28..33f7bb8 100755 (executable)
 %  );
 %}
 %
+%if ( $cgi->param('birthdate') && $cgi->param('birthdate') =~ /^([ 0-9\-\/]{0,10})$/ ) {
+%  $new->setfield('birthdate', str2time($1));
+%}
+%
 %$new->setfield('paid', $cgi->param('paid') )
 %  if $cgi->param('paid');
 %