@@ -, +, @@ - git grep 'C4::Dates' should give no result - git grep 'format_d' should give no result Exception: in one cron job there exists an own sub format_date, and occurences not related to C4::Dates - Search for regressions --- C4/Items.pm | 2 +- C4/Log.pm | 2 +- C4/Serials.pm | 2 +- serials/acqui-search-result.pl | 6 +++--- t/DateUtils.t | 2 -- t/db_dependent/Items/GetItemsForInventory.t | 2 +- tools/koha-news.pl | 1 - 7 files changed, 7 insertions(+), 10 deletions(-) --- a/C4/Items.pm +++ a/C4/Items.pm @@ -1101,7 +1101,7 @@ sub GetItemsForInventory { } if ($datelastseen) { - $datelastseen = format_date_in_iso($datelastseen); + $datelastseen = output_pref({ str => $datelastseen, dateformat => 'iso', dateonly => 1 }); push @where_strings, '(datelastseen < ? OR datelastseen IS NULL)'; push @bind_params, $datelastseen; } --- a/C4/Log.pm +++ a/C4/Log.pm @@ -194,7 +194,7 @@ sub displaylog { while (my $data = $sth->fetchrow_hashref){ $data->{hilighted} = ($hilighted>0); $data->{info} =~ s/\n//g; - $data->{day} = format_date($data->{timestamp}); + $data->{day} = output_pref({ str => $data->{timestamp} }); push @results, $data; $count++; $hilighted = -$hilighted; --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -863,7 +863,7 @@ $subscription is a hashref containing all the attributes of the table 'subscription'. $pattern is a hashref containing all the attributes of the table 'subscription_numberpatterns'. -$planneddate is a C4::Dates object. +$planneddate is a date sting in iso format. This function get the next issue for the subscription given on input arg =cut --- a/serials/acqui-search-result.pl +++ a/serials/acqui-search-result.pl @@ -47,7 +47,7 @@ use C4::Biblio; use C4::Output; use CGI qw ( -utf8 ); use C4::Acquisition qw( SearchOrders ); -use C4::Dates qw/format_date/; +use Koha::DateUtils; use Koha::Acquisition::Bookseller; @@ -79,8 +79,8 @@ for my $s (@suppliers) { basketno => $ord->{'basketno'}, total => $ord->{'count(*)'}, authorisedby => $ord->{'authorisedby'}, - creationdate => format_date($ord->{'creationdate'}), - closedate => format_date($ord->{'closedate'}), + creationdate => output_pref( { str => $ord->{'creationdate'} } ), + closedate => output_pref( { str => $ord->{'closedate'} } ), }; } push @{$loop_suppliers}, { --- a/t/DateUtils.t +++ a/t/DateUtils.t @@ -91,8 +91,6 @@ cmp_ok( $new_dt->ymd(), 'eq', $testdate_iso, 'sql returns correct date' ); $new_dt = dt_from_string( $dt, 'iso' ); isa_ok( $new_dt, 'DateTime', 'Passed a DateTime dt_from_string returns it' ); -# C4::Dates allowed 00th of the month - my $ymd = '2012-01-01'; my $dt0 = dt_from_string( '00/01/2012', 'metric' ); isa_ok( $dt0, 'DateTime', --- a/t/db_dependent/Items/GetItemsForInventory.t +++ a/t/db_dependent/Items/GetItemsForInventory.t @@ -91,7 +91,7 @@ sub OldWay { } if ($datelastseen) { - $datelastseen = format_date_in_iso($datelastseen); + $datelastseen = output_pref({ str => $datelastseen, dateformat => 'iso', dateonly => 1 }); push @where_strings, '(datelastseen < ? OR datelastseen IS NULL)'; push @bind_params, $datelastseen; } --- a/tools/koha-news.pl +++ a/tools/koha-news.pl @@ -150,7 +150,6 @@ else { foreach my $new ( @$opac_news ) { next unless $new->{'expirationdate'}; - #$new->{'expirationdate'}=format_date_in_iso($new->{'expirationdate'}); my @date = split (/-/,$new->{'expirationdate'}); if ($date[0]*$date[1]*$date[2]>0 && Date_to_Days( @date ) < Date_to_Days(&Today) ){ $new->{'expired'} = 1; --