Lines 35-41
use C4::Message;
Link Here
|
35 |
use C4::Debug; |
35 |
use C4::Debug; |
36 |
use C4::Log; # logaction |
36 |
use C4::Log; # logaction |
37 |
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units); |
37 |
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units); |
38 |
use C4::RotatingCollections; |
|
|
39 |
use Algorithm::CheckDigits; |
38 |
use Algorithm::CheckDigits; |
40 |
|
39 |
|
41 |
use Data::Dumper; |
40 |
use Data::Dumper; |
Lines 53-58
use Koha::Libraries;
Link Here
|
53 |
use Koha::Holds; |
52 |
use Koha::Holds; |
54 |
use Koha::RefundLostItemFeeRule; |
53 |
use Koha::RefundLostItemFeeRule; |
55 |
use Koha::RefundLostItemFeeRules; |
54 |
use Koha::RefundLostItemFeeRules; |
|
|
55 |
use Koha::RotatingCollection::Trackings; |
56 |
use Carp; |
56 |
use Carp; |
57 |
use List::MoreUtils qw( uniq ); |
57 |
use List::MoreUtils qw( uniq ); |
58 |
use Scalar::Util qw( looks_like_number ); |
58 |
use Scalar::Util qw( looks_like_number ); |
Lines 1962-1968
sub AddReturn {
Link Here
|
1962 |
my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} ); |
1962 |
my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} ); |
1963 |
|
1963 |
|
1964 |
# if we have a transfer to do, we update the line of transfers with the datearrived |
1964 |
# if we have a transfer to do, we update the line of transfers with the datearrived |
1965 |
my $is_in_rotating_collection = C4::RotatingCollections::isItemInAnyCollection( $item->{'itemnumber'} ); |
1965 |
my $is_in_rotating_collection = Koha::RotatingCollection::Trackings->search( { itemnumber => $item->{'itemnumber'} } )->count; |
1966 |
if ($datesent) { |
1966 |
if ($datesent) { |
1967 |
if ( $tobranch eq $branch ) { |
1967 |
if ( $tobranch eq $branch ) { |
1968 |
my $sth = C4::Context->dbh->prepare( |
1968 |
my $sth = C4::Context->dbh->prepare( |