removing reserve.pl (moved to pendingreserves.pl)
This commit is contained in:
tipaul
parent
523e272288
commit
ee40bfb5c6
1 changed files with 0 additions and 161 deletions
161
circ/reserve.pl
161
circ/reserve.pl
|
|
@ -1,161 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# $Id$
|
||||
|
||||
# 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 CGI;
|
||||
use C4::Context;
|
||||
use C4::Output;
|
||||
use C4::Auth;
|
||||
use C4::Date;
|
||||
|
||||
my $input = new CGI;
|
||||
my $order = $input->param('order');
|
||||
my $startdate=$input->param('from');
|
||||
my $enddate=$input->param('to');
|
||||
|
||||
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 => { circulate => 1 },
|
||||
debug => 1,
|
||||
}
|
||||
);
|
||||
|
||||
my $duedate;
|
||||
my $borrowernumber;
|
||||
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 ($sqlorderby, $sqldatewhere) = ("","");
|
||||
|
||||
$sqldatewhere .= " && reservedate >= " . $dbh->quote($startdate) if ($startdate) ;
|
||||
$sqldatewhere .= " && reservedate <= " . $dbh->quote($enddate) if ($enddate) ;
|
||||
|
||||
if ($order eq "borrower") {
|
||||
$sqlorderby = " order by borrower, reservedate";
|
||||
} elsif ($order eq "biblio") {
|
||||
$sqlorderby = " order by biblio.title, priority,reservedate";
|
||||
} elsif ($order eq "priority") {
|
||||
$sqlorderby = "order by priority DESC";
|
||||
} else {
|
||||
$sqlorderby = " order by reservedate, borrower";
|
||||
}
|
||||
my $strsth =
|
||||
"SELECT reservedate,
|
||||
reserves.borrowernumber as borrowernumber,
|
||||
concat(firstname,' ',surname) as borrower,
|
||||
borrowers.phone,
|
||||
borrowers.email,
|
||||
reserves.biblionumber,
|
||||
reserves.branchcode as branch,
|
||||
items.holdingbranch,
|
||||
items.itemcallnumber,
|
||||
items.itemnumber,
|
||||
notes,
|
||||
notificationdate,
|
||||
reminderdate,
|
||||
priority,
|
||||
reserves.found,
|
||||
biblio.title,
|
||||
biblio.author
|
||||
FROM reserves
|
||||
LEFT JOIN items ON items.biblionumber=reserves.biblionumber,
|
||||
borrowers,biblio
|
||||
WHERE isnull(cancellationdate)
|
||||
&& reserves.borrowernumber=borrowers.borrowernumber
|
||||
&& reserves.biblionumber=biblio.biblionumber
|
||||
&& reserves.found is NULL
|
||||
&& items.holdingbranch=?
|
||||
";
|
||||
|
||||
$strsth .= $sqlorderby;
|
||||
|
||||
my $sth = $dbh->prepare($strsth);
|
||||
|
||||
$sth->execute(C4::Context->userenv->{'branch'});
|
||||
|
||||
my @reservedata;
|
||||
my $previous;
|
||||
my $this;
|
||||
while ( my $data = $sth->fetchrow_hashref ) {
|
||||
$this=$data->{biblionumber}.":".$data->{borrowernumber};
|
||||
my @itemlist;
|
||||
push(
|
||||
@reservedata,
|
||||
{
|
||||
reservedate => $previous eq $this?"":format_date( $data->{reservedate} ),
|
||||
priority => $previous eq $this?"":$data->{priority},
|
||||
name => $previous eq $this?"":$data->{borrower},
|
||||
title => $previous eq $this?"":$data->{title},
|
||||
author => $previous eq $this?"":$data->{author},
|
||||
borrowernumber => $previous eq $this?"":$data->{borrowernumber},
|
||||
itemnum => $previous eq $this?"":$data->{itemnumber},
|
||||
phone => $previous eq $this?"":$data->{phone},
|
||||
email => $previous eq $this?"":$data->{email},
|
||||
biblionumber => $previous eq $this?"":$data->{biblionumber},
|
||||
statusw => ( $data->{found} eq "w" ),
|
||||
statusf => ( $data->{found} eq "f" ),
|
||||
holdingbranch => $data->{holdingbranch},
|
||||
branch => $previous eq $this?"":$data->{branch},
|
||||
itemcallnumber => $data->{itemcallnumber},
|
||||
notes => $previous eq $this?"":$data->{notes},
|
||||
notificationdate => $previous eq $this?"":$data->{notificationdate},
|
||||
reminderdate => $previous eq $this?"":$data->{reminderdate}
|
||||
}
|
||||
);
|
||||
$previous=$this;
|
||||
}
|
||||
|
||||
$sth->finish;
|
||||
|
||||
$template->param(
|
||||
todaysdate => format_date($todaysdate),
|
||||
from => $startdate,
|
||||
to => $enddate,
|
||||
reserveloop => \@reservedata,
|
||||
intranetcolorstylesheet =>
|
||||
C4::Context->preference("intranetcolorstylesheet"),
|
||||
intranetstylesheet => C4::Context->preference("intranetstylesheet"),
|
||||
IntranetNav => C4::Context->preference("IntranetNav"),
|
||||
"BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1,
|
||||
);
|
||||
|
||||
output_html_with_http_headers $input, $cookie, $template->output;
|
||||
Loading…
Reference in a new issue