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