|
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 |
- |
|
|