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

(-)a/C4/Circulation.pm (+38 lines)
Lines 3152-3157 sub GetTransfersFromTo { Link Here
3152
    return (@gettransfers);
3152
    return (@gettransfers);
3153
}
3153
}
3154
3154
3155
=head2 GetAllPendingTransfers
3156
3157
    C4::Circulation::GetAllPendingTransfers();
3158
3159
@RETURNS Reference to ARRAY of HASHes,
3160
            All rows in the koha.branchtransfers-table that have not arrived yet.
3161
            Warning, the amount of rows returned in production can be in the thousands.
3162
=cut
3163
3164
sub GetAllPendingTransfers {
3165
    my $dbh = C4::Context->dbh;
3166
3167
    my $query = 'SELECT * FROM branchtransfers WHERE datearrived IS NULL';
3168
    my $sth = $dbh->prepare($query);
3169
    $sth->execute();
3170
    my $pendingTransfers = $sth->fetchall_arrayref({});
3171
    return $pendingTransfers;
3172
}
3173
3174
=head2 GetAllTransfers
3175
3176
    C4::Circulation::GetAllTransfers();
3177
3178
@RETURNS Reference to ARRAY of HASHes,
3179
            All rows in the koha.branchtransfers-table.
3180
            Warning, the amount of rows returned in production can be in the millions.
3181
=cut
3182
3183
sub GetAllTransfers {
3184
    my $dbh = C4::Context->dbh;
3185
3186
    my $query = 'SELECT * FROM branchtransfers';
3187
    my $sth = $dbh->prepare($query);
3188
    $sth->execute();
3189
    my $transfers = $sth->fetchall_arrayref({});
3190
    return $transfers;
3191
}
3192
3155
=head2 DeleteTransfer
3193
=head2 DeleteTransfer
3156
3194
3157
  &DeleteTransfer($itemnumber);
3195
  &DeleteTransfer($itemnumber);
(-)a/t/db_dependent/Circulation_transfers.t (-2 / +8 lines)
Lines 9-15 use C4::Circulation; Link Here
9
use Koha::DateUtils;
9
use Koha::DateUtils;
10
use DateTime::Duration;
10
use DateTime::Duration;
11
11
12
use Test::More tests => 22;
12
use Test::More tests => 23;
13
use Test::Deep;
13
use Test::Deep;
14
14
15
BEGIN {
15
BEGIN {
Lines 121-126 ModItemTransfer( Link Here
121
);
121
);
122
122
123
#Begin Tests
123
#Begin Tests
124
#Test GetAllTransfers()
125
my $allTransfers = C4::Circulation::GetAllTransfers();
126
ok(($allTransfers && scalar(@$allTransfers) == 2), "GetAllTransfers() returns all transfers :)");
127
#Test GetAllPendingTransfers()
128
my $pendingTransfers = C4::Circulation::GetAllPendingTransfers();
129
ok(($pendingTransfers && scalar(@$pendingTransfers) == 2), "GetAllPendingTransfers() returns all pending transfers :)");
130
124
#Test CreateBranchTransferLimit
131
#Test CreateBranchTransferLimit
125
is(
132
is(
126
    CreateBranchTransferLimit(
133
    CreateBranchTransferLimit(
127
- 

Return to bug 14188