Lines 36-42
use C4::Message;
Link Here
|
36 |
use C4::Debug; |
36 |
use C4::Debug; |
37 |
use C4::Log; # logaction |
37 |
use C4::Log; # logaction |
38 |
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units); |
38 |
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units); |
39 |
use C4::RotatingCollections; |
|
|
40 |
use Algorithm::CheckDigits; |
39 |
use Algorithm::CheckDigits; |
41 |
|
40 |
|
42 |
use Data::Dumper; |
41 |
use Data::Dumper; |
Lines 57-62
use Koha::RefundLostItemFeeRule;
Link Here
|
57 |
use Koha::RefundLostItemFeeRules; |
56 |
use Koha::RefundLostItemFeeRules; |
58 |
use Koha::Account::Lines; |
57 |
use Koha::Account::Lines; |
59 |
use Koha::Account::Offsets; |
58 |
use Koha::Account::Offsets; |
|
|
59 |
use Koha::RotatingCollection::Trackings; |
60 |
use Carp; |
60 |
use Carp; |
61 |
use List::MoreUtils qw( uniq ); |
61 |
use List::MoreUtils qw( uniq ); |
62 |
use Scalar::Util qw( looks_like_number ); |
62 |
use Scalar::Util qw( looks_like_number ); |
Lines 1944-1950
sub AddReturn {
Link Here
|
1944 |
my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} ); |
1944 |
my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} ); |
1945 |
|
1945 |
|
1946 |
# if we have a transfer to do, we update the line of transfers with the datearrived |
1946 |
# if we have a transfer to do, we update the line of transfers with the datearrived |
1947 |
my $is_in_rotating_collection = C4::RotatingCollections::isItemInAnyCollection( $item->{'itemnumber'} ); |
1947 |
my $is_in_rotating_collection = Koha::RotatingCollection::Trackings->search( { itemnumber => $item->{'itemnumber'} } )->count; |
1948 |
if ($datesent) { |
1948 |
if ($datesent) { |
1949 |
if ( $tobranch eq $branch ) { |
1949 |
if ( $tobranch eq $branch ) { |
1950 |
my $sth = C4::Context->dbh->prepare( |
1950 |
my $sth = C4::Context->dbh->prepare( |