From ac03e64109c5d49d657f8e7278cf0ca3a9128404 Mon Sep 17 00:00:00 2001
From: Chris Cormack <crc@liblime.com>
Date: Tue, 4 Dec 2007 12:54:03 -0600
Subject: [PATCH] Fix to get this working with the modules in 3.0

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 opac/opac-ics.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl
index ec03b70b04..c927e4f1d3 100755
--- a/opac/opac-ics.pl
+++ b/opac/opac-ics.pl
@@ -28,7 +28,8 @@ use Date::Calc qw (Parse_Date);
 
 use C4::Auth;
 use C4::Koha;
-use C4::Circulation::Circ2;
+use C4::Circulation;
+use C4::Members;
 use C4::Date;
 
 my $query = new CGI;
@@ -44,16 +45,15 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
 );
 
 # get borrower information ....
-my ( $borr, $flags ) = getpatroninformation( undef, $borrowernumber );
+my ( $borr, $flags ) =  GetMemberDetails( $borrowernumber );
 
 # Create Calendar
 my $calendar = Data::ICal->new();
 
 # get issued items ....
-my $issues = getissues($borr);
+my ($countissues,$issues) = GetPendingIssues($borrowernumber);
 
-foreach my $key ( keys %$issues ) {
-    my $issue  = $issues->{$key};
+foreach my $issue ( @$issues ) {
     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);
-- 
2.39.5