@@ -, +, @@ --- C4/Reserves.pm | 12 ++++++++++++ 1 files changed, 12 insertions(+), 0 deletions(-) --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -40,6 +40,7 @@ use C4::Dates qw( format_date_in_iso ); use Koha::DateUtils; use List::MoreUtils qw( firstidx ); +use Carp; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); @@ -149,6 +150,17 @@ sub AddReserve { $constraint, $bibitems, $priority, $resdate, $expdate, $notes, $title, $checkitem, $found ) = @_; + + my ($count) = C4::Context->dbh->selectrow_array( + 'SELECT COUNT(*) FROM reserves WHERE biblionumber = ? AND borrowernumber = ?', + undef, + ( $biblionumber, $borrowernumber ) + ); + if ( $count > 0 ) { + carp("AddReserve: borrower $borrowernumber already has $count holds for biblionumber $biblionumber"); + return; + } + my $fee = GetReserveFee($borrowernumber, $biblionumber, $constraint, $bibitems ); --