Attachment #43149 for bug #14960

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

Lines 31-37 BEGIN { Link Here

(-)a/misc/cronjobs/batch_anonymise.pl (-1 lines)
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

Lines 35-41 BEGIN { Link Here

(-)a/misc/cronjobs/cleanup_database.pl (-1 lines)
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;

Lines 11-17 BEGIN { Link Here

(-)a/misc/cronjobs/gather_print_notices.pl (-1 lines)
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;




}

use C4::Context;
use C4::Dates qw/format_date format_date_in_iso/;
use C4::Debug;
use C4::Serials;
use C4::Log;
use Koha::DateUtils;

use Date::Calc qw/Date_to_Days check_date/;
use Getopt::Long;


    if ( $subscription && $publisheddate && $publisheddate ne "0000-00-00" ) {
        my $nextpublisheddate = GetNextDate( $subscription, $publisheddate );
        my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });

        if ( $nextpublisheddate && $today ) {
            my ( $year,  $month,  $day )  = split( /-/, $nextpublisheddate );




use C4::Items;
use C4::Letters;
use C4::Overdues;
use C4::Dates;
use C4::Calendar;
use Koha::DateUtils;

sub usage {
    pod2usage( -verbose => 2 );

    }

    foreach my $issues (@loop) {
        my $date_dt = dt_from_string ( $issues->{'date_due'} );
        my $due_date = output_pref( { dt => $date_dt, dateonly => 1, dateformat =>'metric' } );

        my $letter = C4::Letters::GetPreparedLetter(
            module      => $module,
- 

Return to bug 14960

Lines 29-38 BEGIN { Link Here

(-)a/misc/cronjobs/serialsUpdate.pl (-2 / +2 lines)
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 );

Lines 36-43 use C4::Context; Link Here

(-)a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl (-4 / +3 lines)
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	-