Lines 34-40
my $calendardate = sprintf("%04d-%02d-%02d", $year, $month, $day);
Link Here
|
34 |
my $isodate = C4::Dates->new($calendardate, 'iso'); |
34 |
my $isodate = C4::Dates->new($calendardate, 'iso'); |
35 |
$calendardate = $isodate->output('syspref'); |
35 |
$calendardate = $isodate->output('syspref'); |
36 |
|
36 |
|
37 |
my $dateofrange = C4::Dates->new($dateofrange)->output('iso'); |
37 |
$dateofrange = C4::Dates->new($dateofrange)->output('iso'); |
38 |
my @dateend = split(/[\/-]/, $dateofrange); |
38 |
my @dateend = split(/[\/-]/, $dateofrange); |
39 |
$year1 = $dateend[0]; |
39 |
$year1 = $dateend[0]; |
40 |
$month1 = $dateend[1]; |
40 |
$month1 = $dateend[1]; |
41 |
- |
|
|