);
}
+$new->tagnum( [ $cgi->param('tagnum') ] );
+
my %usedatetime = ( 'birthdate' => 1 );
foreach my $dfield (qw( birthdate signupdate )) {
} else {
- $parsed = str2time($value)
+ $parsed = parse_datetime($value)
or $error ||= "Invalid $dfield: $value";
}