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

(-)a/C4/Circulation.pm (-19 lines)
Lines 120-126 BEGIN { Link Here
120
		&GetTransfers
120
		&GetTransfers
121
		&GetTransfersFromTo
121
		&GetTransfersFromTo
122
		&updateWrongTransfer
122
		&updateWrongTransfer
123
		&DeleteTransfer
124
                &IsBranchTransferAllowed
123
                &IsBranchTransferAllowed
125
                &CreateBranchTransferLimit
124
                &CreateBranchTransferLimit
126
                &DeleteBranchTransferLimits
125
                &DeleteBranchTransferLimits
Lines 3502-3525 sub GetTransfersFromTo { Link Here
3502
    return (@gettransfers);
3501
    return (@gettransfers);
3503
}
3502
}
3504
3503
3505
=head2 DeleteTransfer
3506
3507
  &DeleteTransfer($itemnumber);
3508
3509
=cut
3510
3511
sub DeleteTransfer {
3512
    my ($itemnumber) = @_;
3513
    return unless $itemnumber;
3514
    my $dbh          = C4::Context->dbh;
3515
    my $sth          = $dbh->prepare(
3516
        "DELETE FROM branchtransfers
3517
         WHERE itemnumber=?
3518
         AND datearrived IS NULL "
3519
    );
3520
    return $sth->execute($itemnumber);
3521
}
3522
3523
=head2 SendCirculationAlert
3504
=head2 SendCirculationAlert
3524
3505
3525
Send out a C<check-in> or C<checkout> alert using the messaging system.
3506
Send out a C<check-in> or C<checkout> alert using the messaging system.
(-)a/t/db_dependent/Circulation/transfers.t (-8 lines)
Lines 38-44 can_ok( Link Here
38
    qw(
38
    qw(
39
      CreateBranchTransferLimit
39
      CreateBranchTransferLimit
40
      DeleteBranchTransferLimits
40
      DeleteBranchTransferLimits
41
      DeleteTransfer
42
      GetTransfers
41
      GetTransfers
43
      GetTransfersFromTo
42
      GetTransfersFromTo
44
      )
43
      )
Lines 223-234 is( Link Here
223
is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef");
222
is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef");
224
is(C4::Circulation::DeleteBranchTransferLimits('B'),'0E0',"With a wrong id DeleteBranchTransferLimit returns 0E0");
223
is(C4::Circulation::DeleteBranchTransferLimits('B'),'0E0',"With a wrong id DeleteBranchTransferLimit returns 0E0");
225
224
226
#Test DeleteTransfer
227
is( C4::Circulation::DeleteTransfer($item_id1),
228
    1, "A the item1's transfer has been deleted" );
229
is(C4::Circulation::DeleteTransfer(),undef,"Without itemid DeleteTransfer returns undef");
230
is(C4::Circulation::DeleteTransfer(-1),'0E0',"with a wrong itemid DeleteTranfer returns 0E0");
231
232
#Test TransferSlip
225
#Test TransferSlip
233
is( C4::Circulation::TransferSlip($branchcode_1, undef, 5, $branchcode_2),
226
is( C4::Circulation::TransferSlip($branchcode_1, undef, 5, $branchcode_2),
234
    undef, "No tranferslip if invalid or undef itemnumber or barcode" );
227
    undef, "No tranferslip if invalid or undef itemnumber or barcode" );
235
- 

Return to bug 27896