Lines 14-20
use ILS::Transaction;
Link Here
|
14 |
|
14 |
|
15 |
use C4::Circulation; |
15 |
use C4::Circulation; |
16 |
use C4::Reserves qw( ModReserveAffect ); |
16 |
use C4::Reserves qw( ModReserveAffect ); |
17 |
use C4::Items qw( ModItemTransfer ); |
17 |
use C4::Items qw( ModItemTransfer GetItemnumberFromBarcode); |
18 |
use C4::Debug; |
18 |
use C4::Debug; |
19 |
|
19 |
|
20 |
our @ISA = qw(ILS::Transaction); |
20 |
our @ISA = qw(ILS::Transaction); |
Lines 54-59
sub do_checkin {
Link Here
|
54 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
54 |
$debug and warn "do_checkin() calling AddReturn($barcode, $branch)"; |
55 |
my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch); |
55 |
my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch); |
56 |
$self->alert(!$return); |
56 |
$self->alert(!$return); |
|
|
57 |
my $itemnumber = GetItemnumberFromBarcode( $barcode ); |
57 |
# ignoring messages: NotIssued, IsPermanent, WasLost, WasTransfered |
58 |
# ignoring messages: NotIssued, IsPermanent, WasLost, WasTransfered |
58 |
|
59 |
|
59 |
# biblionumber, biblioitemnumber, itemnumber |
60 |
# biblionumber, biblioitemnumber, itemnumber |
Lines 81-95
sub do_checkin {
Link Here
|
81 |
if ($messages->{ResFound}) { |
82 |
if ($messages->{ResFound}) { |
82 |
$self->hold($messages->{ResFound}); |
83 |
$self->hold($messages->{ResFound}); |
83 |
if ($branch eq $messages->{ResFound}->{branchcode}) { |
84 |
if ($branch eq $messages->{ResFound}->{branchcode}) { |
84 |
$self->alert_type('01'); |
85 |
$self->alert_type('01'); |
85 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
86 |
ModReserveAffect( $itemnumber, |
86 |
$messages->{ResFound}->{borrowernumber}, 0); |
87 |
$messages->{ResFound}->{borrowernumber}, 0); |
87 |
|
88 |
|
88 |
} else { |
89 |
} else { |
89 |
$self->alert_type('02'); |
90 |
$self->alert_type('02'); |
90 |
ModReserveAffect( $messages->{ResFound}->{itemnumber}, |
91 |
ModReserveAffect( $itemnumber, |
91 |
$messages->{ResFound}->{borrowernumber}, 1); |
92 |
$messages->{ResFound}->{borrowernumber}, 1); |
92 |
ModItemTransfer( $messages->{ResFound}->{itemnumber}, |
93 |
ModItemTransfer( $itemnumber, |
93 |
$branch, |
94 |
$branch, |
94 |
$messages->{ResFound}->{branchcode} |
95 |
$messages->{ResFound}->{branchcode} |
95 |
); |
96 |
); |
96 |
- |
|
|