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

(-)a/C4/Items.pm (-1 lines)
Lines 64-70 use Koha::AuthorisedValues; Link Here
64
use Koha::DateUtils qw( dt_from_string output_pref );
64
use Koha::DateUtils qw( dt_from_string output_pref );
65
use Koha::Database;
65
use Koha::Database;
66
66
67
use Koha::Biblios;
68
use Koha::Biblioitems;
67
use Koha::Biblioitems;
69
use Koha::Items;
68
use Koha::Items;
70
use Koha::ItemTypes;
69
use Koha::ItemTypes;
(-)a/Koha/Item.pm (-8 / +3 lines)
Lines 1185-1191 sub orders { Link Here
1185
    my ( $self ) = @_;
1185
    my ( $self ) = @_;
1186
1186
1187
    my $orders = $self->_result->item_orders;
1187
    my $orders = $self->_result->item_orders;
1188
    return unless $orders;
1189
    return Koha::Acquisition::Orders->_new_from_dbic($orders);
1188
    return Koha::Acquisition::Orders->_new_from_dbic($orders);
1190
}
1189
}
1191
1190
Lines 1245-1257 sub move_to_biblio { Link Here
1245
    }
1244
    }
1246
1245
1247
    # Acquisition orders
1246
    # Acquisition orders
1248
    my $orders = $self->orders;
1247
    $self->orders->update({ biblionumber => $to_biblionumber }, { no_triggers => 1 });
1249
    if ($orders) {
1250
        $orders->update({ biblionumber => $to_biblionumber }, { no_triggers => 1 });
1251
    }
1252
1248
1253
    # Holds
1249
    # Holds
1254
    $self->holds->update({ biblionumber => $to_biblionumber });
1250
    $self->holds->update({ biblionumber => $to_biblionumber }, { no_triggers => 1 });
1255
1251
1256
    # hold_fill_target (there's no Koha object available yet)
1252
    # hold_fill_target (there's no Koha object available yet)
1257
    my $hold_fill_target = $self->_result->hold_fill_target;
1253
    my $hold_fill_target = $self->_result->hold_fill_target;
Lines 1271-1278 sub move_to_biblio { Link Here
1271
    );
1267
    );
1272
1268
1273
    # tracked_links
1269
    # tracked_links
1274
    my $tracked_links = $self->tracked_links;
1270
    $self->tracked_links->update({ biblionumber => $to_biblionumber }, { no_triggers => 1 });
1275
    $tracked_links->update({ biblionumber => $to_biblionumber });
1276
1271
1277
    return $to_biblionumber;
1272
    return $to_biblionumber;
1278
}
1273
}
(-)a/t/db_dependent/Koha/Item.t (-11 / +5 lines)
Lines 834-851 subtest 'get_transfers' => sub { Link Here
834
};
834
};
835
835
836
subtest 'Tests for relationship between item and item_orders via aqorders_item' => sub {
836
subtest 'Tests for relationship between item and item_orders via aqorders_item' => sub {
837
    plan tests => 2;
837
    plan tests => 3;
838
838
839
    $schema->storage->txn_begin;
839
    $schema->storage->txn_begin;
840
840
841
    my $biblio = $builder->build_sample_biblio();
841
    my $biblio = $builder->build_sample_biblio();
842
    my $item = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
842
    my $item = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
843
    my $aq_budget = $builder->build({
843
844
        source => 'Aqbudget',
844
    my $orders = $item->orders;
845
        value  => {
845
    is ($orders->count, 0, 'No order on this item yet');
846
            budget_notes => 'test',
847
        },
848
    });
849
846
850
    my $order_note = 'Order for ' . $item->itemnumber;
847
    my $order_note = 'Order for ' . $item->itemnumber;
851
848
Lines 853-859 subtest 'Tests for relationship between item and item_orders via aqorders_item' Link Here
853
        class => 'Koha::Acquisition::Orders',
850
        class => 'Koha::Acquisition::Orders',
854
        value  => {
851
        value  => {
855
            biblionumber => $biblio->biblionumber,
852
            biblionumber => $biblio->biblionumber,
856
            budget_id => $aq_budget->{budget_id},
857
            order_internalnote => $order_note,
853
            order_internalnote => $order_note,
858
        },
854
        },
859
    });
855
    });
Lines 861-867 subtest 'Tests for relationship between item and item_orders via aqorders_item' Link Here
861
        class => 'Koha::Acquisition::Orders',
857
        class => 'Koha::Acquisition::Orders',
862
        value  => {
858
        value  => {
863
            biblionumber => $biblio->biblionumber,
859
            biblionumber => $biblio->biblionumber,
864
            budget_id => $aq_budget->{budget_id},
865
        },
860
        },
866
    });
861
    });
867
    my $aq_order_item1 = $builder->build({
862
    my $aq_order_item1 = $builder->build({
Lines 872-878 subtest 'Tests for relationship between item and item_orders via aqorders_item' Link Here
872
        },
867
        },
873
    });
868
    });
874
869
875
    my $orders = $item->orders;
870
    $orders = $item->orders;
876
    is ($orders->count, 1, 'One order found by item with the relationship');
871
    is ($orders->count, 1, 'One order found by item with the relationship');
877
    is ($orders->next->order_internalnote, $order_note, 'Correct order found by item with the relationship');
872
    is ($orders->next->order_internalnote, $order_note, 'Correct order found by item with the relationship');
878
};
873
};
879
- 

Return to bug 22690