|
Lines 38-45
use C4::Branch qw( GetBranchDetail );
Link Here
|
| 38 |
use C4::Dates qw( format_date_in_iso ); |
38 |
use C4::Dates qw( format_date_in_iso ); |
| 39 |
|
39 |
|
| 40 |
use Koha::DateUtils; |
40 |
use Koha::DateUtils; |
|
|
41 |
use Koha::Database; |
| 41 |
|
42 |
|
| 42 |
use List::MoreUtils qw( firstidx ); |
43 |
use List::MoreUtils qw( firstidx ); |
|
|
44 |
use Carp; |
| 43 |
|
45 |
|
| 44 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
46 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); |
| 45 |
|
47 |
|
|
Lines 149-154
sub AddReserve {
Link Here
|
| 149 |
$constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
151 |
$constraint, $bibitems, $priority, $resdate, $expdate, $notes, |
| 150 |
$title, $checkitem, $found |
152 |
$title, $checkitem, $found |
| 151 |
) = @_; |
153 |
) = @_; |
|
|
154 |
|
| 155 |
my ($count) = C4::Context->dbh->selectrow_array( |
| 156 |
'SELECT COUNT(*) FROM reserves WHERE biblionumber = ? AND borrowernumber = ?', |
| 157 |
undef, |
| 158 |
( $biblionumber, $borrowernumber ) |
| 159 |
); |
| 160 |
if ( $count > 0 ) { |
| 161 |
carp("AddReserve: borrower $borrowernumber already has $count holds for biblionumber $biblionumber"); |
| 162 |
return; |
| 163 |
} |
| 164 |
|
| 152 |
my $fee = |
165 |
my $fee = |
| 153 |
GetReserveFee($borrowernumber, $biblionumber, $constraint, |
166 |
GetReserveFee($borrowernumber, $biblionumber, $constraint, |
| 154 |
$bibitems ); |
167 |
$bibitems ); |
| 155 |
- |
|
|