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

(-)a/C4/Circulation.pm (-1 / +2 lines)
Lines 3270-3278 Deletes all the branch transfer limits for one branch Link Here
3270
3270
3271
sub DeleteBranchTransferLimits {
3271
sub DeleteBranchTransferLimits {
3272
    my $branch = shift;
3272
    my $branch = shift;
3273
    return unless $branch;
3273
    my $dbh    = C4::Context->dbh;
3274
    my $dbh    = C4::Context->dbh;
3274
    my $sth    = $dbh->prepare("DELETE FROM branch_transfer_limits WHERE fromBranch = ?");
3275
    my $sth    = $dbh->prepare("DELETE FROM branch_transfer_limits WHERE fromBranch = ?");
3275
    $sth->execute($branch);
3276
    return $sth->execute($branch);
3276
}
3277
}
3277
3278
3278
sub ReturnLostItem{
3279
sub ReturnLostItem{
(-)a/t/db_dependent/Circulation_transfers.t (-4 / +3 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 => 12;
12
use Test::More tests => 14;
13
13
14
BEGIN {
14
BEGIN {
15
    use_ok('C4::Circulation');
15
    use_ok('C4::Circulation');
Lines 184-191 is( Link Here
184
    1,
184
    1,
185
    "A Branch TransferLimit has been deleted"
185
    "A Branch TransferLimit has been deleted"
186
);
186
);
187
#FIXME :The following test should pass but doesn't because currently the routine DeleteBranchTransferLimit returns nothin
187
is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef");
188
#is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef");
188
is(C4::Circulation::DeleteBranchTransferLimits('B'),'0E0',"With a wrong id DeleteBranchTransferLimit returns 0E0");
189
189
190
#Test DeleteTransfer
190
#Test DeleteTransfer
191
is( C4::Circulation::DeleteTransfer($item_id1),
191
is( C4::Circulation::DeleteTransfer($item_id1),
192
- 

Return to bug 10699