View | Details | Raw Unified | Return to bug 24295
Collapse All | Expand All

(-)a/C4/Circulation.pm (-30 lines)
Lines 107-113 BEGIN { Link Here
107
107
108
      transferbook
108
      transferbook
109
      TooMany
109
      TooMany
110
      GetTransfers
111
      GetTransfersFromTo
110
      GetTransfersFromTo
112
      updateWrongTransfer
111
      updateWrongTransfer
113
      CalcDateDue
112
      CalcDateDue
Lines 3538-3572 sub AddIssuingCharge { Link Here
3538
    );
3537
    );
3539
}
3538
}
3540
3539
3541
=head2 GetTransfers
3542
3543
  GetTransfers($itemnumber);
3544
3545
=cut
3546
3547
sub GetTransfers {
3548
    my ($itemnumber) = @_;
3549
3550
    my $dbh = C4::Context->dbh;
3551
3552
    my $query = '
3553
        SELECT datesent,
3554
               frombranch,
3555
               tobranch,
3556
               branchtransfer_id,
3557
               daterequested,
3558
               reason
3559
        FROM branchtransfers
3560
        WHERE itemnumber = ?
3561
          AND datearrived IS NULL
3562
          AND datecancelled IS NULL
3563
        ';
3564
    my $sth = $dbh->prepare($query);
3565
    $sth->execute($itemnumber);
3566
    my @row = $sth->fetchrow_array();
3567
    return @row;
3568
}
3569
3570
=head2 GetTransfersFromTo
3540
=head2 GetTransfersFromTo
3571
3541
3572
  @results = GetTransfersFromTo($frombranch,$tobranch);
3542
  @results = GetTransfersFromTo($frombranch,$tobranch);
(-)a/t/db_dependent/Circulation/transfers.t (-19 / +3 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use C4::Context;
19
use C4::Context;
20
use C4::Circulation qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfers GetTransfersFromTo TransferSlip );
20
use C4::Circulation qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfersFromTo TransferSlip );
21
use C4::Biblio qw( AddBiblio );
21
use C4::Biblio qw( AddBiblio );
22
use C4::Items qw( ModItemTransfer );
22
use C4::Items qw( ModItemTransfer );
23
use Koha::Database;
23
use Koha::Database;
Lines 27-44 use Koha::Item::Transfers; Link Here
27
27
28
use t::lib::TestBuilder;
28
use t::lib::TestBuilder;
29
29
30
use Test::More tests => 22;
30
use Test::More tests => 19;
31
use Test::Deep;
31
use Test::Deep;
32
32
33
BEGIN {
33
BEGIN {
34
    use_ok('C4::Circulation', qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfers GetTransfersFromTo TransferSlip ));
34
    use_ok('C4::Circulation', qw( CreateBranchTransferLimit DeleteBranchTransferLimits GetTransfersFromTo TransferSlip ));
35
}
35
}
36
can_ok(
36
can_ok(
37
    'C4::Circulation',
37
    'C4::Circulation',
38
    qw(
38
    qw(
39
      CreateBranchTransferLimit
39
      CreateBranchTransferLimit
40
      DeleteBranchTransferLimits
40
      DeleteBranchTransferLimits
41
      GetTransfers
42
      GetTransfersFromTo
41
      GetTransfersFromTo
43
      )
42
      )
44
);
43
);
Lines 168-187 is(CreateBranchTransferLimit(undef,$branchcode_2),undef, Link Here
168
#branch_transfer_limits.toBranch and branch_transfer_limits.fromBranch aren't foreign keys
167
#branch_transfer_limits.toBranch and branch_transfer_limits.fromBranch aren't foreign keys
169
#is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added");
168
#is(CreateBranchTransferLimit(-1,-1,'CODE'),0,"With wrong CreateBranchTransferLimit returns 0 - No transfertlimit added");
170
169
171
#Test GetTransfers
172
my @transfers = GetTransfers($item_id1);
173
cmp_deeply(
174
    \@transfers,
175
    [ re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), $branchcode_1, $branchcode_2, re('[0-9]*'), re('^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}$'), 'Manual' ],
176
    "Transfers of the item1"
177
);    #NOTE: Only the first transfer is returned
178
@transfers = GetTransfers;
179
is_deeply( \@transfers, [],
180
    "GetTransfers without params returns an empty array" );
181
@transfers = GetTransfers(-1);
182
is_deeply( \@transfers, [],
183
    "GetTransfers with a wrong item id returns an empty array" );
184
185
#Test GetTransfersFromTo
170
#Test GetTransfersFromTo
186
my @transferfrom1to2 = GetTransfersFromTo( $branchcode_1,
171
my @transferfrom1to2 = GetTransfersFromTo( $branchcode_1,
187
    $branchcode_2 );
172
    $branchcode_2 );
188
- 

Return to bug 24295