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

(-)a/C4/Biblio.pm (+2 lines)
Lines 523-528 sub DelBiblio { Link Here
523
    # We update any existing orders
523
    # We update any existing orders
524
    my $orders = $biblio->orders;
524
    my $orders = $biblio->orders;
525
    $orders->update({ deleted_biblionumber => $biblionumber}, { no_triggers => 1 });
525
    $orders->update({ deleted_biblionumber => $biblionumber}, { no_triggers => 1 });
526
    # Update related ILL requests
527
    $biblio->ill_requests->update({ deleted_biblio_id => $biblio->id, biblio_id => undef });
526
528
527
    unless ( $params->{skip_record_index} ){
529
    unless ( $params->{skip_record_index} ){
528
        my $indexer = Koha::SearchEngine::Indexer->new({ index => $Koha::SearchEngine::BIBLIOS_INDEX });
530
        my $indexer = Koha::SearchEngine::Indexer->new({ index => $Koha::SearchEngine::BIBLIOS_INDEX });
(-)a/t/db_dependent/Biblio.t (-2 / +12 lines)
Lines 670-676 subtest 'deletedbiblio_metadata' => sub { Link Here
670
670
671
subtest 'DelBiblio' => sub {
671
subtest 'DelBiblio' => sub {
672
672
673
    plan tests => 6;
673
    plan tests => 10;
674
674
675
    t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 );
675
    t::lib::Mocks::mock_preference( 'RealTimeHoldsQueue', 0 );
676
676
Lines 716-726 subtest 'DelBiblio' => sub { Link Here
716
    my $order = $builder->build_object(
716
    my $order = $builder->build_object(
717
        { class => 'Koha::Acquisition::Orders', value => $orderinfo } );
717
        { class => 'Koha::Acquisition::Orders', value => $orderinfo } );
718
718
719
    # Add some ILL requests
720
    my $ill_req_1 = $builder->build_object({ class => 'Koha::Illrequests', value => { biblio_id => $biblio->id, deleted_biblio_id => undef } });
721
    my $ill_req_2 = $builder->build_object({ class => 'Koha::Illrequests', value => { biblio_id => $biblio->id, deleted_biblio_id => undef } });
722
719
    C4::Biblio::DelBiblio($biblio->biblionumber); # Or $biblio->delete
723
    C4::Biblio::DelBiblio($biblio->biblionumber); # Or $biblio->delete
720
    is( $subscription->get_from_storage, undef, 'subscription should be deleted on biblio deletion' );
724
    is( $subscription->get_from_storage, undef, 'subscription should be deleted on biblio deletion' );
721
    is( $serial->get_from_storage, undef, 'serial should be deleted on biblio deletion' );
725
    is( $serial->get_from_storage, undef, 'serial should be deleted on biblio deletion' );
722
    is( $subscription_history->get_from_storage, undef, 'subscription history should be deleted on biblio deletion' );
726
    is( $subscription_history->get_from_storage, undef, 'subscription history should be deleted on biblio deletion' );
723
    is( $order->get_from_storage->deleted_biblionumber, $biblio->biblionumber, 'biblionumber of order has been moved to deleted_biblionumber column' );
727
    is( $order->get_from_storage->deleted_biblionumber, $biblio->biblionumber, 'biblionumber of order has been moved to deleted_biblionumber column' );
728
729
    $ill_req_1 = $ill_req_1->get_from_storage;
730
    $ill_req_2 = $ill_req_2->get_from_storage;
731
    is( $ill_req_1->biblio_id, undef, 'biblio_id cleared on biblio deletion' );
732
    is( $ill_req_1->deleted_biblio_id, $biblio->id, 'biblio_id is kept on the deleted_biblio_id column' );
733
    is( $ill_req_2->biblio_id, undef, 'biblio_id cleared on biblio deletion' );
734
    is( $ill_req_2->deleted_biblio_id, $biblio->id, 'biblio_id is kept on the deleted_biblio_id column' );
724
};
735
};
725
736
726
subtest 'MarcFieldForCreatorAndModifier' => sub {
737
subtest 'MarcFieldForCreatorAndModifier' => sub {
727
- 

Return to bug 21983