View | Details | Raw Unified | Return to bug 8391
Collapse All | Expand All

(-)a/Koha/DateUtils.pm (-1 / +2 lines)
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
- 

Return to bug 8391