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

(-)a/C4/Circulation.pm (+38 lines)
Lines 3143-3148 sub GetTransfersFromTo { Link Here
3143
    return (@gettransfers);
3143
    return (@gettransfers);
3144
}
3144
}
3145
3145
3146
=head2 GetAllPendingTransfers
3147
3148
    C4::Circulation::GetAllPendingTransfers();
3149
3150
@RETURNS Reference to ARRAY of HASHes,
3151
            All rows in the koha.branchtransfers-table that have not arrived yet.
3152
            Warning, the amount of rows returned in production can be in the thousands.
3153
=cut
3154
3155
sub GetAllPendingTransfers {
3156
    my $dbh = C4::Context->dbh;
3157
3158
    my $query = 'SELECT * FROM branchtransfers WHERE datearrived IS NULL';
3159
    my $sth = $dbh->prepare($query);
3160
    $sth->execute();
3161
    my $pendingTransfers = $sth->fetchall_arrayref({});
3162
    return $pendingTransfers;
3163
}
3164
3165
=head2 GetAllTransfers
3166
3167
    C4::Circulation::GetAllTransfers();
3168
3169
@RETURNS Reference to ARRAY of HASHes,
3170
            All rows in the koha.branchtransfers-table.
3171
            Warning, the amount of rows returned in production can be in the millions.
3172
=cut
3173
3174
sub GetAllTransfers {
3175
    my $dbh = C4::Context->dbh;
3176
3177
    my $query = 'SELECT * FROM branchtransfers';
3178
    my $sth = $dbh->prepare($query);
3179
    $sth->execute();
3180
    my $transfers = $sth->fetchall_arrayref({});
3181
    return $transfers;
3182
}
3183
3146
=head2 DeleteTransfer
3184
=head2 DeleteTransfer
3147
3185
3148
  &DeleteTransfer($itemnumber);
3186
  &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 => 24;
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