use strict;
-require Exporter;
use C4::Context;
use C4::Biblio;
+use C4::Items;
use C4::Search;
use C4::Circulation;
use C4::Accounts;
-our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,%EXPORT_TAGS);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
my $library_name = C4::Context->preference("LibraryName");
-# set the version for version checking
-$VERSION = 3.00;
-
=head1 NAME
C4::Reserves - Koha functions for dealing with reservation.
=cut
-@ISA = qw(Exporter);
-
-@EXPORT = qw(
- &AddReserve
-
- &GetReservesFromItemnumber
- &GetReservesFromBiblionumber
- &GetReservesFromBorrowernumber
- &GetReservesForBranch
- &GetReservesToBranch
- &GetReserveCount
- &GetReserveFee
-
- &GetOtherReserves
+BEGIN {
+ # set the version for version checking
+ $VERSION = 3.02;
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(
+ &AddReserve
- &ModReserveFill
- &ModReserveAffect
- &ModReserve
- &ModReserveStatus
- &ModReserveCancelAll
- &ModReserveMinusPriority
-
- &CheckReserves
- &CancelReserve
-);
-
+ &GetReservesFromItemnumber
+ &GetReservesFromBiblionumber
+ &GetReservesFromBorrowernumber
+ &GetReservesForBranch
+ &GetReservesToBranch
+ &GetReserveCount
+ &GetReserveFee
+ &GetReserveInfo
+
+ &GetOtherReserves
+
+ &ModReserveFill
+ &ModReserveAffect
+ &ModReserve
+ &ModReserveStatus
+ &ModReserveCancelAll
+ &ModReserveMinusPriority
+
+ &CheckReserves
+ &CancelReserve
+ );
+}
=item AddReserve
itemnumber,
reservenotes
FROM reserves
- WHERE cancellationdate IS NULL
- AND (found <> \'F\' OR found IS NULL)
- AND biblionumber = ?
+ WHERE biblionumber = ?
ORDER BY priority";
my $sth = $dbh->prepare($query);
$sth->execute($biblionumber);
SELECT reservedate,borrowernumber,branchcode
FROM reserves
WHERE itemnumber=?
- AND cancellationdate IS NULL
- AND (found <> 'F' OR found IS NULL)
";
my $sth_res = $dbh->prepare($query);
$sth_res->execute($itemnumber);
SELECT *
FROM reserves
WHERE borrowernumber=?
- AND cancellationdate IS NULL
AND found =?
ORDER BY reservedate
");
SELECT *
FROM reserves
WHERE borrowernumber=?
- AND cancellationdate IS NULL
- AND (found != 'F' or found is null)
ORDER BY reservedate
");
$sth->execute($borrowernumber);
SELECT COUNT(*) AS counter
FROM reserves
WHERE borrowernumber = ?
- AND cancellationdate IS NULL
- AND (found != \'F\' OR found IS NULL)
';
my $sth = $dbh->prepare($query);
$sth->execute($borrowernumber);
my $data = $sth->fetchrow_hashref;
$sth->finish();
my $fee = $data->{'reservefee'};
- my $cntitems = @- > $bibitems;
+ my $cntitems = @- > $bibitems; # FIXME: @- is a regexp match var. Unclear and probably INCORRECT usage here.
if ( $fee > 0 ) {
}
$x++;
}
- if ( $const eq 'o' ) {
- if ( $found == 1 ) {
- push @biblioitems, $data1;
- }
- }
- else {
- if ( $found == 0 ) {
- push @biblioitems, $data1;
- }
+ if ( $found == 0 or
+ ($found == 1 and $const eq 'o')) {
+ push @biblioitems, $data1;
}
}
}
my $allissued = 1;
while ( $x < $cntitemsfound ) {
my $bitdata = $biblioitems[$x];
- my $sth2 = $dbh->prepare(
- "SELECT * FROM items
- WHERE biblioitemnumber = ?"
- );
+ my $sth2 = $dbh->prepare("SELECT * FROM items WHERE biblioitemnumber = ?");
$sth2->execute( $bitdata->{'biblioitemnumber'} );
while ( my $itdata = $sth2->fetchrow_hashref ) {
- my $sth3 = $dbh->prepare(
- "SELECT * FROM issues
- WHERE itemnumber = ?
- AND returndate IS NULL"
- );
+ my $sth3 = $dbh->prepare("SELECT * FROM issues WHERE itemnumber = ?");
$sth3->execute( $itdata->{'itemnumber'} );
- if ( my $isdata = $sth3->fetchrow_hashref ) {
- }
- else {
+ unless ($sth3->rows()) {
$allissued = 0;
}
}
$x++;
}
if ( $allissued == 0 ) {
- my $rsth =
- $dbh->prepare("SELECT * FROM reserves WHERE biblionumber = ?");
+ my $rsth = $dbh->prepare("SELECT * FROM reserves WHERE biblionumber = ?");
$rsth->execute($biblionumber);
- if ( my $rdata = $rsth->fetchrow_hashref ) {
- }
- else {
+ unless ($rsth->rows()) {
$fee = 0;
}
}
my $sth = $dbh->prepare(
"SELECT borrowernumber,reservedate,itemnumber,timestamp
FROM reserves
- WHERE priority='0' AND cancellationdate is null
- AND branchcode=?
- AND found IS NULL "
+ WHERE priority='0'
+ AND branchcode=?"
);
$sth->execute( $frombranch );
my @transreserv;
my $query = "SELECT borrowernumber,reservedate,itemnumber,waitingdate
FROM reserves
WHERE priority='0'
- AND cancellationdate IS NULL
AND found='W' ";
if ($frombranch){
$query .= " AND branchcode=? ";
my $sth = $dbh->prepare($query);
$sth->execute( $item, $borr );
$sth->finish;
+ $query = "
+ INSERT INTO old_reserves
+ SELECT * FROM reserves
+ WHERE itemnumber = ?
+ AND borrowernumber = ?
+ ";
+ $sth = $dbh->prepare($query);
+ $sth->execute( $item, $borr );
+ $query = "
+ DELETE FROM reserves
+ WHERE itemnumber = ?
+ AND borrowernumber = ?
+ ";
+ $sth = $dbh->prepare($query);
+ $sth->execute( $item, $borr );
}
else {
# removing a reserve record....
AND borrowernumber = ?
AND cancellationdate IS NULL
AND itemnumber IS NULL
- AND (found <> 'F' OR found IS NULL)
/;
my $sth = $dbh->prepare($query);
$sth->execute( $biblio, $borr );
priority = 0
WHERE biblionumber = ?
AND borrowernumber = ?
- AND cancellationdate IS NULL
- AND (found <> 'F' or found IS NULL)
/;
# update the database, removing the record...
$sth->execute( $biblio, $borr );
$sth->finish;
+ $query = qq/
+ INSERT INTO old_reserves
+ SELECT * FROM reserves
+ WHERE biblionumber = ?
+ AND borrowernumber = ?
+ /;
+ $sth = $dbh->prepare($query);
+ $sth->execute( $biblio, $borr );
+
+ $query = qq/
+ DELETE FROM reserves
+ WHERE biblionumber = ?
+ AND borrowernumber = ?
+ /;
+ $sth = $dbh->prepare($query);
+ $sth->execute( $biblio, $borr );
+
# now fix the priority on the others....
- _FixPriority( $priority, $biblio );
+ _FixPriority($biblio,$borr,$priority);
}
}
SET cancellationdate=now()
WHERE biblionumber = ?
AND borrowernumber = ?
- AND cancellationdate is NULL
- AND (found <> 'F' or found is NULL)
/;
my $sth = $dbh->prepare($query);
$sth->execute( $biblio, $borrower );
$sth->finish;
+ $query = qq/
+ INSERT INTO old_reserves
+ SELECT *
+ FROM reserves
+ WHERE biblionumber = ?
+ AND borrowernumber = ?
+ /;
+ $sth = $dbh->prepare($query);
+ $sth->execute( $biblio, $borrower );
+ $query = qq/
+ DELETE FROM reserves
+ WHERE biblionumber = ?
+ AND borrowernumber = ?
+ /;
+ $sth = $dbh->prepare($query);
+ $sth->execute( $biblio, $borrower );
}
else {
UPDATE reserves SET priority = ? ,branchcode = ?, itemnumber = ?, found = NULL
WHERE biblionumber = ?
AND borrowernumber = ?
- AND cancellationdate is NULL
- AND (found <> 'F' or found is NULL)
/;
my $sth = $dbh->prepare($query);
$sth->execute( $rank, $branch,$itemnumber, $biblio, $borrower);
$sth->execute( $biblionumber, $resdate, $borrowernumber );
$sth->finish;
+ # move to old_reserves
+ $query = "INSERT INTO old_reserves
+ SELECT * FROM reserves
+ WHERE biblionumber = ?
+ AND reservedate = ?
+ AND borrowernumber = ?
+ ";
+ $sth = $dbh->prepare($query);
+ $sth->execute( $biblionumber, $resdate, $borrowernumber );
+ $query = "DELETE FROM reserves
+ WHERE biblionumber = ?
+ AND reservedate = ?
+ AND borrowernumber = ?
+ ";
+ $sth = $dbh->prepare($query);
+ $sth->execute( $biblionumber, $resdate, $borrowernumber );
+
# now fix the priority on the others (if the priority wasn't
# already sorted!)....
unless ( $priority == 0 ) {
- _FixPriority( $priority, $biblionumber );
+ _FixPriority($biblionumber, $borrowernumber, $priority);
}
}
itemnumber = ?
WHERE borrowernumber = ?
AND biblionumber = ?
- AND reserves.cancellationdate IS NULL
- AND (reserves.found <> 'F' OR reserves.found IS NULL)
";
}
else {
itemnumber = ?
WHERE borrowernumber = ?
AND biblionumber = ?
- AND reserves.cancellationdate IS NULL
- AND (reserves.found <> 'F' OR reserves.found IS NULL)
";
}
$sth = $dbh->prepare($query);
my $query = "
UPDATE reserves
SET priority = 0 , itemnumber = ?
- WHERE cancellationdate IS NULL
- AND borrowernumber=?
+ WHERE borrowernumber=?
AND biblionumber=?
";
my $sth_upd = $dbh->prepare($query);
SET priority = priority-1
WHERE biblionumber = ?
AND priority > 0
- AND cancellationdate IS NULL
";
$sth_upd = $dbh->prepare($query);
$sth_upd->execute( $biblionumber );
$sth_upd->finish;
}
+=item GetReserveInfo
+
+&GetReserveInfo($borrowernumber,$biblionumber);
+
+ Get item and borrower details for a current hold.
+ Current implementation this query should have a single result.
+=cut
+
+sub GetReserveInfo {
+ my ( $borrowernumber, $biblionumber ) = @_;
+ my $dbh = C4::Context->dbh;
+ my $strsth="SELECT reservedate, reservenotes, reserves.borrowernumber,
+ reserves.biblionumber, reserves.branchcode,
+ notificationdate, reminderdate, priority, found,
+ firstname, surname, phone,
+ email, address, address2,
+ cardnumber, city, zipcode,
+ biblio.title, biblio.author,
+ items.holdingbranch, items.itemcallnumber, items.itemnumber,
+ barcode, notes
+ FROM reserves left join items
+ ON items.itemnumber=reserves.itemnumber ,
+ borrowers, biblio
+ WHERE
+ reserves.borrowernumber=? &&
+ reserves.biblionumber=? &&
+ reserves.borrowernumber=borrowers.borrowernumber &&
+ reserves.biblionumber=biblio.biblionumber ";
+ my $sth = $dbh->prepare($strsth);
+ $sth->execute($borrowernumber,$biblionumber);
+
+ my $data = $sth->fetchrow_hashref;
+ return $data;
+
+}
+
=item _FixPriority
&_FixPriority($biblio,$borrowernumber,$rank);
SET priority = 0
WHERE biblionumber = ?
AND borrowernumber = ?
- AND cancellationdate IS NULL
AND found ='W'
/;
my $sth = $dbh->prepare($query);
SELECT borrowernumber, reservedate, constrainttype
FROM reserves
WHERE biblionumber = ?
- AND cancellationdate IS NULL
- AND ((found <> 'F' and found <> 'W') or found is NULL)
+ AND ((found <> 'W') or found is NULL)
ORDER BY priority ASC
/;
my $sth = $dbh->prepare($query);
AND reserves.borrowernumber = reserveconstraints.borrowernumber
AND reserves.reservedate =reserveconstraints.reservedate )
OR reserves.constrainttype='a' )
- AND reserves.cancellationdate is NULL
- AND (reserves.found <> 'F' or reserves.found is NULL)
/;
my $sth = $dbh->prepare($query);
$sth->execute( $biblio, $bibitem );
- my @results;
- while ( my $data = $sth->fetchrow_hashref ) {
- push( @results, $data );
- }
- $sth->finish;
- return @results;
+ return $sth->fetchall_arrayref({});
}
=back
=cut
+1;