Lines 80-85
sub dt_from_string {
Link Here
|
80 |
} elsif ( $date_format eq 'sql' ) { |
80 |
} elsif ( $date_format eq 'sql' ) { |
81 |
$date_string =~ |
81 |
$date_string =~ |
82 |
s/(\d{4})(\d{2})(\d{2})\s+(\d{2})(\d{2})(\d{2})/$1-$2-$3T$4:$5:$6/; |
82 |
s/(\d{4})(\d{2})(\d{2})\s+(\d{2})(\d{2})(\d{2})/$1-$2-$3T$4:$5:$6/; |
|
|
83 |
return if ($date_string =~ /^0000-00-00/); |
83 |
$date_string =~ s/00T/01T/; |
84 |
$date_string =~ s/00T/01T/; |
84 |
} |
85 |
} |
85 |
} |
86 |
} |
Lines 158-163
sub format_sqldatetime {
Link Here
|
158 |
my $force_pref = shift; # if testing we want to override Context |
159 |
my $force_pref = shift; # if testing we want to override Context |
159 |
if ( defined $str && $str =~ m/^\d{4}-\d{2}-\d{2}/ ) { |
160 |
if ( defined $str && $str =~ m/^\d{4}-\d{2}-\d{2}/ ) { |
160 |
my $dt = dt_from_string( $str, 'sql' ); |
161 |
my $dt = dt_from_string( $str, 'sql' ); |
|
|
162 |
return q{} unless $dt; |
161 |
$dt->truncate( to => 'minute' ); |
163 |
$dt->truncate( to => 'minute' ); |
162 |
return output_pref( $dt, $force_pref ); |
164 |
return output_pref( $dt, $force_pref ); |
163 |
} |
165 |
} |
164 |
- |
|
|