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

(-)a/C4/Items.pm (-1 / +1 lines)
Lines 1101-1107 sub GetItemsForInventory { Link Here
1101
    }
1101
    }
1102
1102
1103
    if ($datelastseen) {
1103
    if ($datelastseen) {
1104
        $datelastseen = format_date_in_iso($datelastseen);  
1104
        $datelastseen = output_pref({ str => $datelastseen, dateformat => 'iso', dateonly => 1 });
1105
        push @where_strings, '(datelastseen < ? OR datelastseen IS NULL)';
1105
        push @where_strings, '(datelastseen < ? OR datelastseen IS NULL)';
1106
        push @bind_params, $datelastseen;
1106
        push @bind_params, $datelastseen;
1107
    }
1107
    }
(-)a/C4/Log.pm (-1 / +1 lines)
Lines 194-200 sub displaylog { Link Here
194
    while (my $data = $sth->fetchrow_hashref){
194
    while (my $data = $sth->fetchrow_hashref){
195
    	$data->{hilighted} = ($hilighted>0);
195
    	$data->{hilighted} = ($hilighted>0);
196
        $data->{info} =~ s/\n/<br\/>/g;
196
        $data->{info} =~ s/\n/<br\/>/g;
197
        $data->{day} = format_date($data->{timestamp});
197
        $data->{day} = output_pref({ str => $data->{timestamp} });
198
        push @results, $data;
198
        push @results, $data;
199
        $count++;
199
        $count++;
200
        $hilighted = -$hilighted;
200
        $hilighted = -$hilighted;
(-)a/C4/Serials.pm (-1 / +1 lines)
Lines 863-869 $subscription is a hashref containing all the attributes of the table Link Here
863
'subscription'.
863
'subscription'.
864
$pattern is a hashref containing all the attributes of the table
864
$pattern is a hashref containing all the attributes of the table
865
'subscription_numberpatterns'.
865
'subscription_numberpatterns'.
866
$planneddate is a C4::Dates object.
866
$planneddate is a date sting in iso format.
867
This function get the next issue for the subscription given on input arg
867
This function get the next issue for the subscription given on input arg
868
868
869
=cut
869
=cut
(-)a/serials/acqui-search-result.pl (-3 / +3 lines)
Lines 47-53 use C4::Biblio; Link Here
47
use C4::Output;
47
use C4::Output;
48
use CGI qw ( -utf8 );
48
use CGI qw ( -utf8 );
49
use C4::Acquisition qw( SearchOrders );
49
use C4::Acquisition qw( SearchOrders );
50
use C4::Dates qw/format_date/;
50
use Koha::DateUtils;
51
51
52
use Koha::Acquisition::Bookseller;
52
use Koha::Acquisition::Bookseller;
53
53
Lines 79-86 for my $s (@suppliers) { Link Here
79
            basketno     => $ord->{'basketno'},
79
            basketno     => $ord->{'basketno'},
80
            total        => $ord->{'count(*)'},
80
            total        => $ord->{'count(*)'},
81
            authorisedby => $ord->{'authorisedby'},
81
            authorisedby => $ord->{'authorisedby'},
82
            creationdate => format_date($ord->{'creationdate'}),
82
            creationdate => output_pref( { str => $ord->{'creationdate'} } ),
83
            closedate    => format_date($ord->{'closedate'}),
83
            closedate    => output_pref( { str => $ord->{'closedate'} } ),
84
        };
84
        };
85
    }
85
    }
86
    push @{$loop_suppliers}, {
86
    push @{$loop_suppliers}, {
(-)a/t/DateUtils.t (-2 lines)
Lines 91-98 cmp_ok( $new_dt->ymd(), 'eq', $testdate_iso, 'sql returns correct date' ); Link Here
91
$new_dt = dt_from_string( $dt, 'iso' );
91
$new_dt = dt_from_string( $dt, 'iso' );
92
isa_ok( $new_dt, 'DateTime', 'Passed a DateTime dt_from_string returns it' );
92
isa_ok( $new_dt, 'DateTime', 'Passed a DateTime dt_from_string returns it' );
93
93
94
# C4::Dates allowed 00th of the month
95
96
my $ymd = '2012-01-01';
94
my $ymd = '2012-01-01';
97
my $dt0 = dt_from_string( '00/01/2012', 'metric' );
95
my $dt0 = dt_from_string( '00/01/2012', 'metric' );
98
isa_ok( $dt0, 'DateTime',
96
isa_ok( $dt0, 'DateTime',
(-)a/t/db_dependent/Items/GetItemsForInventory.t (-1 / +1 lines)
Lines 91-97 sub OldWay { Link Here
91
    }
91
    }
92
92
93
    if ($datelastseen) {
93
    if ($datelastseen) {
94
        $datelastseen = format_date_in_iso($datelastseen);
94
        $datelastseen = output_pref({ str => $datelastseen, dateformat => 'iso', dateonly => 1 });
95
        push @where_strings, '(datelastseen < ? OR datelastseen IS NULL)';
95
        push @where_strings, '(datelastseen < ? OR datelastseen IS NULL)';
96
        push @bind_params, $datelastseen;
96
        push @bind_params, $datelastseen;
97
    }
97
    }
(-)a/tools/koha-news.pl (-2 lines)
Lines 150-156 else { Link Here
150
    
150
    
151
    foreach my $new ( @$opac_news ) {
151
    foreach my $new ( @$opac_news ) {
152
        next unless $new->{'expirationdate'};
152
        next unless $new->{'expirationdate'};
153
       	#$new->{'expirationdate'}=format_date_in_iso($new->{'expirationdate'});
154
        my @date = split (/-/,$new->{'expirationdate'});
153
        my @date = split (/-/,$new->{'expirationdate'});
155
        if ($date[0]*$date[1]*$date[2]>0 && Date_to_Days( @date ) < Date_to_Days(&Today) ){
154
        if ($date[0]*$date[1]*$date[2]>0 && Date_to_Days( @date ) < Date_to_Days(&Today) ){
156
			$new->{'expired'} = 1;
155
			$new->{'expired'} = 1;
157
- 

Return to bug 14870