Script to allow patrons to download the due dates for the books in ICalendar format

Signed-off-by: kados <jmf@liblime.com>

diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl
new file mode 100755 (executable)
index 0000000..ec03b70
--- /dev/null
+++ b/opac/opac-ics.pl
@@ -0,0 +1,93 @@
+#!/usr/bin/perl
+
+# Copyright 2007 Liblime Ltd
+
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+# This script builds an ICalendar file (rfc 2445) for use in programs such as Ical
+
+use strict;
+use CGI;
+use Data::ICal;
+use Data::ICal::Entry::Event;
+use Date::ICal;
+use Date::Calc qw (Parse_Date);
+
+use C4::Auth;
+use C4::Koha;
+use C4::Circulation::Circ2;
+use C4::Date;
+
+my $query = new CGI;
+my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
+    {
+        template_name   => "opac-user.tmpl",
+        query           => $query,
+        type            => "opac",
+        authnotrequired => 0,
+        flagsrequired   => { borrow => 1 },
+        debug           => 1,
+    }
+);
+
+# get borrower information ....
+my ( $borr, $flags ) = getpatroninformation( undef, $borrowernumber );
+
+# Create Calendar
+my $calendar = Data::ICal->new();
+
+# get issued items ....
+my $issues = getissues($borr);
+
+foreach my $key ( keys %$issues ) {
+    my $issue  = $issues->{$key};
+    my $vevent = Data::ICal::Entry::Event->new();
+    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;
+    $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,
+    );
+    $calendar->add_entry($vevent);
+}
+
+print $query->header(
+    -type        => 'application/octet-stream',
+    -attachment => 'koha.ics'
+);
+
+
+print $calendar->as_string;