|
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 |
- |
|
|