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

(-)a/misc/cronjobs/batch_anonymise.pl (-1 lines)
Lines 31-37 BEGIN { Link Here
31
31
32
use C4::Context;
32
use C4::Context;
33
use C4::Circulation;
33
use C4::Circulation;
34
use C4::Dates;
35
use Date::Calc qw(
34
use Date::Calc qw(
36
  Today
35
  Today
37
  Add_Delta_Days
36
  Add_Delta_Days
(-)a/misc/cronjobs/cleanup_database.pl (-1 lines)
Lines 35-41 BEGIN { Link Here
35
}
35
}
36
36
37
use C4::Context;
37
use C4::Context;
38
use C4::Dates;
39
use C4::Search;
38
use C4::Search;
40
use Getopt::Long;
39
use Getopt::Long;
41
use C4::Log;
40
use C4::Log;
(-)a/misc/cronjobs/gather_print_notices.pl (-1 lines)
Lines 11-17 BEGIN { Link Here
11
11
12
use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
12
use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
13
use C4::Context;
13
use C4::Context;
14
use C4::Dates;
15
use C4::Debug;
14
use C4::Debug;
16
use C4::Letters;
15
use C4::Letters;
17
use C4::Templates;
16
use C4::Templates;
(-)a/misc/cronjobs/serialsUpdate.pl (-2 / +2 lines)
Lines 29-38 BEGIN { Link Here
29
}
29
}
30
30
31
use C4::Context;
31
use C4::Context;
32
use C4::Dates qw/format_date format_date_in_iso/;
33
use C4::Debug;
32
use C4::Debug;
34
use C4::Serials;
33
use C4::Serials;
35
use C4::Log;
34
use C4::Log;
35
use Koha::DateUtils;
36
36
37
use Date::Calc qw/Date_to_Days check_date/;
37
use Date::Calc qw/Date_to_Days check_date/;
38
use Getopt::Long;
38
use Getopt::Long;
Lines 119-125 while ( my $issue = $sth->fetchrow_hashref ) { Link Here
119
119
120
    if ( $subscription && $publisheddate && $publisheddate ne "0000-00-00" ) {
120
    if ( $subscription && $publisheddate && $publisheddate ne "0000-00-00" ) {
121
        my $nextpublisheddate = GetNextDate( $subscription, $publisheddate );
121
        my $nextpublisheddate = GetNextDate( $subscription, $publisheddate );
122
        my $today = format_date_in_iso( C4::Dates->new()->output() );
122
        my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
123
123
124
        if ( $nextpublisheddate && $today ) {
124
        if ( $nextpublisheddate && $today ) {
125
            my ( $year,  $month,  $day )  = split( /-/, $nextpublisheddate );
125
            my ( $year,  $month,  $day )  = split( /-/, $nextpublisheddate );
(-)a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl (-4 / +3 lines)
Lines 36-43 use C4::Context; Link Here
36
use C4::Items;
36
use C4::Items;
37
use C4::Letters;
37
use C4::Letters;
38
use C4::Overdues;
38
use C4::Overdues;
39
use C4::Dates;
40
use C4::Calendar;
39
use C4::Calendar;
40
use Koha::DateUtils;
41
41
42
sub usage {
42
sub usage {
43
    pod2usage( -verbose => 2 );
43
    pod2usage( -verbose => 2 );
Lines 124-131 foreach my $type (@types) { Link Here
124
    }
124
    }
125
125
126
    foreach my $issues (@loop) {
126
    foreach my $issues (@loop) {
127
        my $date = C4::Dates->new( $issues->{'date_due'}, 'iso' );
127
        my $date_dt = dt_from_string ( $issues->{'date_due'} );
128
        my $due_date = $date->output('metric');
128
        my $due_date = output_pref( { dt => $date_dt, dateonly => 1, dateformat =>'metric' } );
129
129
130
        my $letter = C4::Letters::GetPreparedLetter(
130
        my $letter = C4::Letters::GetPreparedLetter(
131
            module      => $module,
131
            module      => $module,
132
- 

Return to bug 14960