91 lines
2.9 KiB
Perl
91 lines
2.9 KiB
Perl
package KohaTest::Items::ModItemsFromMarc;
|
|
use base qw( KohaTest::Items );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use C4::Context;
|
|
use C4::Biblio;
|
|
use C4::Items;
|
|
|
|
=head2 STARTUP METHODS
|
|
|
|
These get run once, before the main test methods in this module
|
|
|
|
=cut
|
|
|
|
=head2 startup_90_add_item_get_callnumber
|
|
|
|
=cut
|
|
|
|
sub startup_90_add_item_get_callnumber : Test( startup => 13 ) {
|
|
my $self = shift;
|
|
|
|
$self->add_biblios( count => 1, add_items => 1 );
|
|
|
|
ok( $self->{'items'}, 'An item has been aded' )
|
|
or diag( Data::Dumper->Dump( [ $self->{'items'} ], ['items'] ) );
|
|
|
|
my @biblioitems = C4::Biblio::GetBiblioItemByBiblioNumber( $self->{'items'}[0]{'biblionumber'} );
|
|
ok( $biblioitems[0]->{'biblioitemnumber'}, '...and it has a biblioitemnumber' )
|
|
or diag( Data::Dumper->Dump( [ \@biblioitems ], ['biblioitems'] ) );
|
|
|
|
my $items_info = GetItemsByBiblioitemnumber( $biblioitems[0]->{'biblioitemnumber'} );
|
|
isa_ok( $items_info, 'ARRAY', '...and we can search with that biblioitemnumber' )
|
|
or diag( Data::Dumper->Dump( [$items_info], ['items_info'] ) );
|
|
cmp_ok( scalar @$items_info, '>', 0, '...and we can find at least one item with that biblioitemnumber' );
|
|
|
|
my $item_info = $items_info->[0];
|
|
ok( $item_info->{'itemcallnumber'}, '...and the item we found has a call number: ' . $item_info->{'itemcallnumber'} )
|
|
or diag( Data::Dumper->Dump( [$item_info], ['item_info'] ) );
|
|
|
|
$self->{itemnumber} = $item_info->{itemnumber};
|
|
}
|
|
|
|
|
|
=head2 TEST METHODS
|
|
|
|
standard test methods
|
|
|
|
=head3 bug2466
|
|
|
|
Regression test for bug 2466 (when clearing an item field
|
|
via the cataloging or serials item editor, corresponding
|
|
column is not cleared).
|
|
|
|
=cut
|
|
|
|
sub bug2466 : Test( 8 ) {
|
|
my $self = shift;
|
|
|
|
my $item = C4::Items::GetItem($self->{itemnumber});
|
|
isa_ok($item, 'HASH', "item $self->{itemnumber} exists");
|
|
|
|
my $item_marc = C4::Items::GetMarcItem($item->{biblionumber}, $self->{itemnumber});
|
|
isa_ok($item_marc, 'MARC::Record', "retrieved item MARC");
|
|
|
|
cmp_ok($item->{itemcallnumber}, 'ne', '', "item call number is not blank");
|
|
|
|
my ($callnum_tag, $callnum_subfield) = C4::Biblio::GetMarcFromKohaField('items.itemcallnumber', '');
|
|
cmp_ok($callnum_tag, '>', 0, "found tag for itemcallnumber");
|
|
|
|
my $item_field = $item_marc->field($callnum_tag);
|
|
ok(defined($item_field), "retrieved MARC field for item");
|
|
|
|
$item_field->delete_subfield(code => $callnum_subfield);
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
my $item_from_marc = C4::Biblio::TransformMarcToKoha($dbh, $item_marc, '', 'items');
|
|
ok(not(exists($item_from_marc->{itemcallnumber})), "itemcallnumber subfield removed");
|
|
|
|
C4::Items::ModItemFromMarc($item_marc, $item->{biblionumber}, $self->{itemnumber});
|
|
|
|
my $modified_item = C4::Items::GetItem($self->{itemnumber});
|
|
isa_ok($modified_item, 'HASH', "retrieved modified item");
|
|
|
|
ok(not(defined($modified_item->{itemcallnumber})), "itemcallnumber is now undef");
|
|
}
|
|
|
|
1;
|