X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=opac%2Fopac-ics.pl;h=5a8512a24a0a9b3af60547194b3fb640ae8fb4e3;hb=a8222aeeb1169d7b1939d1e64c319a16e3846e8c;hp=c927e4f1d3582b6bded8e972fbe84f66b5e21c7b;hpb=ac03e64109c5d49d657f8e7278cf0ca3a9128404;p=koha.git

diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl
index c927e4f1d3..5a8512a24a 100755
--- a/opac/opac-ics.pl
+++ b/opac/opac-ics.pl
@@ -13,13 +13,15 @@
 # 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
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 # This script builds an ICalendar file (rfc 2445) for use in programs such as Ical
 
 use strict;
+use warnings;
+
 use CGI;
 use Data::ICal;
 use Data::ICal::Entry::Event;
@@ -30,7 +32,7 @@ use C4::Auth;
 use C4::Koha;
 use C4::Circulation;
 use C4::Members;
-use C4::Date;
+use C4::Dates;
 
 my $query = new CGI;
 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
@@ -45,13 +47,13 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
 );
 
 # get borrower information ....
-my ( $borr, $flags ) =  GetMemberDetails( $borrowernumber );
+my ( $borr ) =  GetMemberDetails( $borrowernumber );
 
 # Create Calendar
 my $calendar = Data::ICal->new();
 
 # get issued items ....
-my ($countissues,$issues) = GetPendingIssues($borrowernumber);
+my ($issues) = GetPendingIssues($borrowernumber);
 
 foreach my $issue ( @$issues ) {
     my $vevent = Data::ICal::Entry::Event->new();