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

(-)a/C4/Installer/PerlDependencies.pm (-5 / +5 lines)
Lines 259-269 our $PERL_DEPS = { Link Here
259
        'required' => '1',
259
        'required' => '1',
260
        'min_ver'  => '5.43'
260
        'min_ver'  => '5.43'
261
    },
261
    },
262
    'Date::ICal' => {
263
        'usage'    => 'Core',
264
        'required' => '1',
265
        'min_ver'  => '1.72'
266
    },
267
    'MARC::Crosswalk::DublinCore' => {
262
    'MARC::Crosswalk::DublinCore' => {
268
        'usage'    => 'Core',
263
        'usage'    => 'Core',
269
        'required' => '1',
264
        'required' => '1',
Lines 484-489 our $PERL_DEPS = { Link Here
484
        'required' => '1',
479
        'required' => '1',
485
        'min_ver'  => '1.03',
480
        'min_ver'  => '1.03',
486
    },
481
    },
482
    'DateTime::Format::ICal' => {
483
        'usage'    => 'Core',
484
        'required' => '1',
485
        'min_ver'  => '0.09',
486
      },
487
};
487
};
488
488
489
1;
489
1;
(-)a/INSTALL.fedora7 (-1 / +2 lines)
Lines 746-751 Net::Z3950::ZOOM Link Here
746
Net::LDAP::Filter
746
Net::LDAP::Filter
747
HTML::Template::Pro
747
HTML::Template::Pro
748
Data::ICal
748
Data::ICal
749
DateTime
750
DateTime::Format::ICal
749
GD::Barcode::UPCE
751
GD::Barcode::UPCE
750
Algorithm::CheckDigits::M43_001
752
Algorithm::CheckDigits::M43_001
751
Biblio::EndnoteStyle
753
Biblio::EndnoteStyle
Lines 753-759 Schedule::At Link Here
753
Barcode::Code128
755
Barcode::Code128
754
CGI::Session
756
CGI::Session
755
Class::Factory::Util
757
Class::Factory::Util
756
Date::ICal
757
Date::Manip
758
Date::Manip
758
Lingua::Stem
759
Lingua::Stem
759
List::MoreUtils
760
List::MoreUtils
(-)a/debian/control (-2 / +1 lines)
Lines 18-25 Build-Depends: libcgi-session-driver-memcached-perl, Link Here
18
 libclass-factory-util-perl,
18
 libclass-factory-util-perl,
19
 libdata-ical-perl,
19
 libdata-ical-perl,
20
 libdate-calc-perl,
20
 libdate-calc-perl,
21
 libdate-ical-perl,
22
 libdate-manip-perl,
21
 libdate-manip-perl,
22
 libdatetime-format-ical-perl,
23
 libdatetime-perl,
23
 libdatetime-perl,
24
 libdbd-mysql-perl,
24
 libdbd-mysql-perl,
25
 libdbd-sqlite2-perl,
25
 libdbd-sqlite2-perl,
Lines 31-37 Build-Depends: libcgi-session-driver-memcached-perl, Link Here
31
 libgraphics-magick-perl,
31
 libgraphics-magick-perl,
32
 libgravatar-url-perl,
32
 libgravatar-url-perl,
33
 libhtml-scrubber-perl,
33
 libhtml-scrubber-perl,
34
 libhtml-template-pro-perl,
35
 libhttp-oai-perl,
34
 libhttp-oai-perl,
36
 libjson-perl,
35
 libjson-perl,
37
 liblingua-stem-perl,
36
 liblingua-stem-perl,
(-)a/install_misc/debian.packages (-1 / +1 lines)
Lines 17-24 libcgi-session-serialize-yaml-perl install Link Here
17
libclass-factory-util-perl	install
17
libclass-factory-util-perl	install
18
libdata-ical-perl	install
18
libdata-ical-perl	install
19
libdate-calc-perl install
19
libdate-calc-perl install
20
libdate-ical-perl	install
21
libdate-manip-perl install
20
libdate-manip-perl install
21
libdatetime-format-ical-perl    install
22
libdatetime-format-mail-perl install
22
libdatetime-format-mail-perl install
23
libdatetime-format-strptime-perl	install
23
libdatetime-format-strptime-perl	install
24
libdatetime-format-w3cdtf-perl	install
24
libdatetime-format-w3cdtf-perl	install
(-)a/install_misc/install_koha_on_fresh_debian (-1 / +1 lines)
Lines 440-447 mysql-server Link Here
440
libcgi-session-perl
440
libcgi-session-perl
441
libdate-calc-perl
441
libdate-calc-perl
442
libdate-manip-perl
442
libdate-manip-perl
443
libdate-ical-perl
444
libdatetime-format-mail-perl
443
libdatetime-format-mail-perl
444
libdatetime-format-ical-perl
445
liblingua-stem-perl
445
liblingua-stem-perl
446
libdatetime-format-strptime-perl
446
libdatetime-format-strptime-perl
447
libdatetime-format-w3cdtf-perl
447
libdatetime-format-w3cdtf-perl
(-)a/install_misc/ubuntu.packages (-1 / +1 lines)
Lines 56-64 libcgi-session-serialize-yaml-perl install Link Here
56
libclass-factory-util-perl		install
56
libclass-factory-util-perl		install
57
libdata-ical-perl			install
57
libdata-ical-perl			install
58
libdate-calc-perl			install
58
libdate-calc-perl			install
59
libdate-ical-perl			install
60
libdate-manip-perl			install
59
libdate-manip-perl			install
61
libdatetime-perl			install
60
libdatetime-perl			install
61
libdatetime-format-ical-perl            install
62
libdatetime-format-mail-perl		install
62
libdatetime-format-mail-perl		install
63
libdatetime-format-strptime-perl	install
63
libdatetime-format-strptime-perl	install
64
libdatetime-format-w3cdtf-perl		install
64
libdatetime-format-w3cdtf-perl		install
(-)a/install_misc/ubuntu_maverick.packages (-1 / +1 lines)
Lines 58-66 libcgi-session-serialize-yaml-perl install Link Here
58
libclass-factory-util-perl		install
58
libclass-factory-util-perl		install
59
libdata-ical-perl			install
59
libdata-ical-perl			install
60
libdate-calc-perl			install
60
libdate-calc-perl			install
61
libdate-ical-perl			install
62
libdate-manip-perl			install
61
libdate-manip-perl			install
63
libdatetime-perl			install
62
libdatetime-perl			install
63
libdatetime-format-ical-perl            install
64
libdatetime-format-mail-perl		install
64
libdatetime-format-mail-perl		install
65
libdatetime-format-strptime-perl	install
65
libdatetime-format-strptime-perl	install
66
libdatetime-format-w3cdtf-perl		install
66
libdatetime-format-w3cdtf-perl		install
(-)a/opac/opac-ics.pl (-20 / +20 lines)
Lines 25-31 use warnings; Link Here
25
use CGI;
25
use CGI;
26
use Data::ICal;
26
use Data::ICal;
27
use Data::ICal::Entry::Event;
27
use Data::ICal::Entry::Event;
28
use Date::ICal;
28
use DateTime;
29
use DateTime::Format::ICal;
29
use Date::Calc qw (Parse_Date);
30
use Date::Calc qw (Parse_Date);
30
31
31
use C4::Auth;
32
use C4::Auth;
Lines 60-87 foreach my $issue ( @$issues ) { Link Here
60
    my ($year,$month,$day)=Parse_Date($issue->{'date_due'});
61
    my ($year,$month,$day)=Parse_Date($issue->{'date_due'});
61
    ($year,$month,$day)=split /-|\/|\.|:/,$issue->{'date_due'} unless ($year && $month);
62
    ($year,$month,$day)=split /-|\/|\.|:/,$issue->{'date_due'} unless ($year && $month);
62
#    Decode_Date_EU2($string))
63
#    Decode_Date_EU2($string))
63
    my $datestart = Date::ICal->new( 
64
    my $datestart = DateTime->new(
64
	day => $day, 
65
        day    => $day,
65
	month => $month, 
66
        month  => $month,
66
	year => $year,
67
        year   => $year,
67
	hour => 9,
68
        hour   => 9,
68
	min => 0,
69
        minute => 0,
69
	sec => 0
70
        second => 0
70
    )->ical;
71
    );
71
    my $dateend = Date::ICal->new( 
72
    my $dateend = DateTime->new(
72
	day => $day, 
73
        day    => $day,
73
	month => $month, 
74
        month  => $month,
74
	year => $year,
75
        year   => $year,
75
	hour => 10,
76
        hour   => 10,
76
	min => 0,
77
        minute => 0,
77
	sec => 0
78
        second => 0
78
    )->ical;
79
    );
79
    $vevent->add_properties(
80
    $vevent->add_properties(
80
        summary => "$issue->{'title'} Due",
81
        summary => "$issue->{'title'} Due",
81
        description =>
82
        description =>
82
"Your copy of $issue->{'title'} barcode $issue->{'barcode'} is due back at the library today",
83
"Your copy of $issue->{'title'} barcode $issue->{'barcode'} is due back at the library today",
83
        dtstart => $datestart,
84
        dtstart => DateTime::Format::ICal->format_datetime($datestart),
84
	dtend => $dateend,
85
        dtend   => DateTime::Format::ICal->format_datetime($dateend),
85
    );
86
    );
86
    $calendar->add_entry($vevent);
87
    $calendar->add_entry($vevent);
87
}
88
}
88
- 

Return to bug 7532