[Koha-cvs] Changes to koha/overdue.pl [rel_2_2]

[Henri-Damien LAURENT]

Index: koha/overdue.pl
diff -u /dev/null koha/overdue.pl:1.9.2.1
--- /dev/null	Fri Nov 25 16:50:20 2005
+++ koha/overdue.pl	Fri Nov 25 16:50:19 2005
@@ -0,0 +1,103 @@
+#!/usr/bin/perl
+
+# $Id: overdue.pl,v 1.9.2.1 2005/11/25 16:50:19 hdl Exp $
+
+# Copyright 2000-2002 Katipo Communications
+#
+# 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
+
+use strict;
+use C4::Context;
+use C4::Output;
+use CGI;
+use HTML::Template;
+use C4::Auth;
+
+my $input = new CGI;
+my $type=$input->param('type');
+my $order=$input->param('order');
+
+my $theme = $input->param('theme'); # only used if allowthemeoverride is set
+
+my ($template, $loggedinuser, $cookie)
+      = get_template_and_user({template_name => "overdue.tmpl",
+	                                 query => $input,
+	                                 type => "intranet",
+	                                 authnotrequired => 0,
+	                                 flagsrequired => {borrowers => 1},
+	                                 debug => 1,
+	                                 });
+my $duedate;
+my $bornum;
+my $itemnum;
+my $data1;
+my $data2;
+my $data3;
+my $name;
+my $phone;
+my $email;
+my $biblionumber;
+my $title;
+my $author;
+my @datearr = localtime(time());
+my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
+
+my $dbh = C4::Context->dbh;
+my $strsth="select date_due,concat(firstname,' ',surname) as borrower, borrowers.phone, borrowers.emailaddress,itemnumber from issues, borrowers where isnull(returndate) && date_due<'".$todaysdate."' && issues.borrowernumber=borrowers.borrowernumber order by date_due,borrower ";
+$strsth="select date_due,concat(firstname,' ',surname) as borrower, phone, emailaddress,itemnumber from issues, borrowers where isnull(returndate) && date_due<'".$todaysdate."' && issues.borrowernumber=borrowers.borrowernumber order by borrower,date_due " if ($order eq "borrower");
+my $sth=$dbh->prepare($strsth);
+warn "".$strsth;
+$sth->execute();
+
+my @overduedata;
+while (my $data=$sth->fetchrow_hashref) {
+  $duedate=$data->{'date_due'};
+  $itemnum=$data->{'itemnumber'};
+
+  $name=$data->{'borrower'};
+  $phone=$data->{'phone'};
+  $email=$data->{'emailaddress'};
+
+  my $sth2=$dbh->prepare("select biblionumber from items where itemnumber=?");
+  $sth2->execute($itemnum);
+  $data2=$sth2->fetchrow_hashref;
+  $biblionumber=$data2->{'biblionumber'};
+  $sth2->finish;
+
+  my $sth3=$dbh->prepare("select title,author from biblio where biblionumber=?");
+  $sth3->execute($biblionumber);
+  $data3=$sth3->fetchrow_hashref;
+  $title=$data3->{'title'};
+  $author=$data3->{'author'};
+  $sth3->finish;
+  push (@overduedata, {	duedate      => $duedate,
+			bornum       => $bornum,
+			itemnum      => $itemnum,
+			name         => $name,
+			phone        => $phone,
+			email        => $email,
+			biblionumber => $biblionumber,
+			title        => $title,
+			author       => $author });
+
+}
+
+$sth->finish;
+
+$template->param(		todaysdate        => $todaysdate,
+		overdueloop       => \@overduedata );
+
+print "Content-Type: text/html\n\n", $template->output;