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