'required' => '1',
'min_ver' => '5.43'
},
- 'Date::ICal' => {
- 'usage' => 'Core',
- 'required' => '1',
- 'min_ver' => '1.72'
- },
'MARC::Crosswalk::DublinCore' => {
'usage' => 'Core',
'required' => '1',
'required' => '1',
'min_ver' => '1.03',
},
+ 'DateTime::Format::ICal' => {
+ 'usage' => 'Core',
+ 'required' => '1',
+ 'min_ver' => '0.09',
+ },
};
1;
Net::LDAP::Filter
HTML::Template::Pro
Data::ICal
+DateTime
+DateTime::Format::ICal
GD::Barcode::UPCE
Algorithm::CheckDigits::M43_001
Biblio::EndnoteStyle
Barcode::Code128
CGI::Session
Class::Factory::Util
-Date::ICal
Date::Manip
Lingua::Stem
List::MoreUtils
libclass-factory-util-perl,
libdata-ical-perl,
libdate-calc-perl,
- libdate-ical-perl,
libdate-manip-perl,
+ libdatetime-format-ical-perl,
libdatetime-perl,
libdbd-mysql-perl,
libdbd-sqlite2-perl,
libclass-factory-util-perl install
libdata-ical-perl install
libdate-calc-perl install
-libdate-ical-perl install
libdate-manip-perl install
+libdatetime-format-ical-perl install
libdatetime-format-mail-perl install
libdatetime-format-strptime-perl install
libdatetime-format-w3cdtf-perl install
libcgi-session-perl
libdate-calc-perl
libdate-manip-perl
-libdate-ical-perl
libdatetime-format-mail-perl
+libdatetime-format-ical-perl
liblingua-stem-perl
libdatetime-format-strptime-perl
libdatetime-format-w3cdtf-perl
libclass-factory-util-perl install
libdata-ical-perl install
libdate-calc-perl install
-libdate-ical-perl install
libdate-manip-perl install
libdatetime-perl install
+libdatetime-format-ical-perl install
libdatetime-format-mail-perl install
libdatetime-format-strptime-perl install
libdatetime-format-w3cdtf-perl install
libclass-factory-util-perl install
libdata-ical-perl install
libdate-calc-perl install
-libdate-ical-perl install
libdate-manip-perl install
libdatetime-perl install
+libdatetime-format-ical-perl install
libdatetime-format-mail-perl install
libdatetime-format-strptime-perl install
libdatetime-format-w3cdtf-perl install
use CGI;
use Data::ICal;
use Data::ICal::Entry::Event;
-use Date::ICal;
+use DateTime;
+use DateTime::Format::ICal;
use Date::Calc qw (Parse_Date);
use C4::Auth;
my ($year,$month,$day)=Parse_Date($issue->{'date_due'});
($year,$month,$day)=split /-|\/|\.|:/,$issue->{'date_due'} unless ($year && $month);
# Decode_Date_EU2($string))
- my $datestart = Date::ICal->new(
- day => $day,
- month => $month,
- year => $year,
- hour => 9,
- min => 0,
- sec => 0
- )->ical;
- my $dateend = Date::ICal->new(
- day => $day,
- month => $month,
- year => $year,
- hour => 10,
- min => 0,
- sec => 0
- )->ical;
+ my $datestart = DateTime->new(
+ day => $day,
+ month => $month,
+ year => $year,
+ hour => 9,
+ minute => 0,
+ second => 0
+ );
+ my $dateend = DateTime->new(
+ day => $day,
+ month => $month,
+ year => $year,
+ hour => 10,
+ minute => 0,
+ second => 0
+ );
$vevent->add_properties(
summary => "$issue->{'title'} Due",
description =>
"Your copy of $issue->{'title'} barcode $issue->{'barcode'} is due back at the library today",
- dtstart => $datestart,
- dtend => $dateend,
+ dtstart => DateTime::Format::ICal->format_datetime($datestart),
+ dtend => DateTime::Format::ICal->format_datetime($dateend),
);
$calendar->add_entry($vevent);
}