|
Lines 52-62
use Date::Calc qw(
Link Here
|
| 52 |
Today |
52 |
Today |
| 53 |
); |
53 |
); |
| 54 |
|
54 |
|
| 55 |
my $strp = DateTime::Format::Strptime->new( |
|
|
| 56 |
pattern => '%FT%TZ', |
| 57 |
time_zone => 'floating', |
| 58 |
); |
| 59 |
|
| 60 |
our $xslt_engine = Koha::XSLT::Base->new; |
55 |
our $xslt_engine = Koha::XSLT::Base->new; |
| 61 |
|
56 |
|
| 62 |
=head2 new |
57 |
=head2 new |
|
Lines 136-142
sub init {
Link Here
|
| 136 |
# Change this to yyyy-mm-dd |
131 |
# Change this to yyyy-mm-dd |
| 137 |
my ( $nowyear, $nowmonth, $nowday ) = Today(); |
132 |
my ( $nowyear, $nowmonth, $nowday ) = Today(); |
| 138 |
my @date = Add_Delta_Days( $nowyear, $nowmonth, $nowday, -$days ); |
133 |
my @date = Add_Delta_Days( $nowyear, $nowmonth, $nowday, -$days ); |
| 139 |
my $dt_start = DateTime->new( year => $date[0], month => $date[1], day => $date[2] ); |
134 |
my $dt_start = dt_from_string( $date[0] . '-' . $date[1] . '-' . $date[2] ); |
| 140 |
$start_date = $dt_start->ymd(); |
135 |
$start_date = $dt_start->ymd(); |
| 141 |
$self->printlog("Harvesting from $start_date"); |
136 |
$self->printlog("Harvesting from $start_date"); |
| 142 |
} |
137 |
} |