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

[Henri-Damien LAURENT]

Index: koha/circ/reserve.pl
diff -u /dev/null koha/circ/reserve.pl:1.1.2.1
--- /dev/null   Wed Nov 30 16:18:02 2005
+++ koha/circ/reserve.pl        Wed Nov 30 16:18:02 2005
@@ -0,0 +1,107 @@
+#!/usr/bin/perl
+
+# $Id: reserve.pl,v 1.1.2.1 2005/11/30 16:18:02 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 => "circ/reserve.tmpl",
+                                        query => $input,
+                                        type => "intranet",
+                                        authnotrequired => 0,
+                                        flagsrequired => {borrowers => 1},
+                                        debug => 1,
+                                        });
+# borrowernumber       int(11) 
+#       reservedate    date    
+#       biblionumber   int(11) 
+#       constrainttype         char(1)
+#       branchcode     varchar(4) 
+#       notificationdate       date    
+#       reminderdate   date            
+#       cancellationdate       date    
+#       reservenotes   text    
+#       priority       smallint(6) 
+#       found          char(1)         
+#       timestamp      timestamp               ON UPDATE CURRENT_TIMESTAMP     
Oui     CURRENT_TIMESTAMP               Modifier        Supprimer       
Primaire        Index   Unique  Texte entier
+#       itemnumber     int(11)         
+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 reservedate,reserves.borrowernumber as bornum, 
concat(firstname,' ',surname) as borrower, borrowers.phone, 
borrowers.emailaddress,reserves.biblionumber, itemnumber, notes, 
notificationdate, reminderdate, priority, biblio.title, biblio.author from 
reserves, borrowers,biblio where isnull(cancellationdate) && 
reserves.borrowernumber=borrowers.borrowernumber && 
reserves.biblionumber=biblio.biblionumber order by reservedate, borrower ";
+$strsth="select reservedate,reserves.borrowernumber as 
bornum,concat(firstname,' ',surname) as borrower, borrowers.phone, 
borrowers.emailaddress,reserves.biblionumber, itemnumber, notes, 
notificationdate, reminderdate, priority, biblio.title, biblio.author from 
reserves, borrowers,biblio where isnull(cancellationdate) && 
reserves.borrowernumber=borrowers.borrowernumber && 
reserves.biblionumber=biblio.biblionumber order by borrower,reservedate " if 
($order eq "borrower");
+$strsth="select reservedate,reserves.borrowernumber as 
bornum,concat(firstname,' ',surname) as borrower, borrowers.phone, 
borrowers.emailaddress,reserves.biblionumber, itemnumber, notes, 
notificationdate, reminderdate, priority, biblio.title, biblio.author from 
reserves, borrowers,biblio where isnull(cancellationdate) && 
reserves.borrowernumber=borrowers.borrowernumber && 
reserves.biblionumber=biblio.biblionumber order by biblio.title, 
priority,reservedate " if ($order eq "biblio");
+my $sth=$dbh->prepare($strsth);
+warn "".$strsth;
+$sth->execute();
+
+my @reservedata;
+while (my $data=$sth->fetchrow_hashref) {
+  push (@reservedata, 
+                       {
+                               reservedate  => $data->{reservedate},
+                               priority         => $data->{priority},
+                               name         => $data->{borrower},
+                               title        => $data->{title},
+                               author       => $data->{author},
+                               bornum       => $data->{bornum},
+                               itemnum      => $data->{itemnumber},
+                               phone        => $data->{phone},
+                               email        => $data->{email},
+                               biblionumber => $data->{biblionumber},
+                               notes            => $data->{notes},
+                               notificationdate => $data->{notificationdate},
+                               reminderdate => $data->{reminderdate}
+                       }
+       
+       );
+
+}
+
+$sth->finish;
+
+$template->param(              todaysdate        => $todaysdate,
+               reserveloop       => address@hidden );
+
+print "Content-Type: text/html\n\n", $template->output;