gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Still a work in progress, pendingreserves.pl is quite broken 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Chris Cormack 2008-01-07 20:42:40 -06:00 committed by Joshua Ferraro
parent 1bd7615fab
commit b9b77bcb60
1 changed files with 42 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
circ/pendingreserves.pl
View File

@ -107,7 +107,8 @@ my $strsth =
LEFT JOIN biblio ON reserves.biblionumber=biblio.biblionumber
WHERE isnull(cancellationdate)
$sqldatewhere
AND reserves.found is NULL ";
AND reserves.found is NULL
AND reserves.itemnumber is NULL";
if (C4::Context->preference('IndependantBranches')){
$strsth .= " AND items.holdingbranch=? ";
@ -153,6 +154,46 @@ while ( my $data = $sth->fetchrow_hashref ) {
$previous=$this;
}
$sth->finish;
$strsth=~ s/AND reserves.itemnumber is NULL/AND reserves.itemnumber is NOT NULL/;
$strsth=~ s/LEFT JOIN items ON items.biblionumber=reserves.biblionumber/LEFT JOIN items ON items.biblionumber=reserves.itemnumber/;
$sth = $dbh->prepare($strsth);
if (C4::Context->preference('IndependantBranches')){
$sth->execute(C4::Context->userenv->{'branch'});
}
else {
$sth->execute();
}
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},
thisitemonly => 1,
}
);
$previous=$this;
}
$sth->finish;
$template->param(