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

(-)a/C4/Circulation.pm (-1 / +2 lines)
Lines 3267-3275 Deletes all the branch transfer limits for one branch Link Here
3267
3267
3268
sub DeleteBranchTransferLimits {
3268
sub DeleteBranchTransferLimits {
3269
    my $branch = shift;
3269
    my $branch = shift;
3270
    return unless $branch;
3270
    my $dbh    = C4::Context->dbh;
3271
    my $dbh    = C4::Context->dbh;
3271
    my $sth    = $dbh->prepare("DELETE FROM branch_transfer_limits WHERE fromBranch = ?");
3272
    my $sth    = $dbh->prepare("DELETE FROM branch_transfer_limits WHERE fromBranch = ?");
3272
    $sth->execute($branch);
3273
    return $sth->execute($branch);
3273
}
3274
}
3274
3275
3275
sub ReturnLostItem{
3276
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