|
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( |