@@ -, +, @@ --- C4/Circulation.pm | 19 ------------------- t/db_dependent/Circulation/transfers.t | 7 ------- 2 files changed, 26 deletions(-) --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -120,7 +120,6 @@ BEGIN { &GetTransfers &GetTransfersFromTo &updateWrongTransfer - &DeleteTransfer &IsBranchTransferAllowed &CreateBranchTransferLimit &DeleteBranchTransferLimits @@ -3502,24 +3501,6 @@ sub GetTransfersFromTo { return (@gettransfers); } -=head2 DeleteTransfer - - &DeleteTransfer($itemnumber); - -=cut - -sub DeleteTransfer { - my ($itemnumber) = @_; - return unless $itemnumber; - my $dbh = C4::Context->dbh; - my $sth = $dbh->prepare( - "DELETE FROM branchtransfers - WHERE itemnumber=? - AND datearrived IS NULL " - ); - return $sth->execute($itemnumber); -} - =head2 SendCirculationAlert Send out a C or C alert using the messaging system. --- a/t/db_dependent/Circulation/transfers.t +++ a/t/db_dependent/Circulation/transfers.t @@ -38,7 +38,6 @@ can_ok( qw( CreateBranchTransferLimit DeleteBranchTransferLimits - DeleteTransfer GetTransfers GetTransfersFromTo ) @@ -223,12 +222,6 @@ is( is(C4::Circulation::DeleteBranchTransferLimits(),undef,"Without parameters DeleteBranchTransferLimit returns undef"); is(C4::Circulation::DeleteBranchTransferLimits('B'),'0E0',"With a wrong id DeleteBranchTransferLimit returns 0E0"); -#Test DeleteTransfer -is( C4::Circulation::DeleteTransfer($item_id1), - 1, "A the item1's transfer has been deleted" ); -is(C4::Circulation::DeleteTransfer(),undef,"Without itemid DeleteTransfer returns undef"); -is(C4::Circulation::DeleteTransfer(-1),'0E0',"with a wrong itemid DeleteTranfer returns 0E0"); - #Test TransferSlip is( C4::Circulation::TransferSlip($branchcode_1, undef, 5, $branchcode_2), undef, "No tranferslip if invalid or undef itemnumber or barcode" ); --