|
Lines 29-39
use Koha::Library;
Link Here
|
| 29 |
use Koha::DateUtils; |
29 |
use Koha::DateUtils; |
| 30 |
use Koha::MarcSubfieldStructures; |
30 |
use Koha::MarcSubfieldStructures; |
| 31 |
use Koha::Caches; |
31 |
use Koha::Caches; |
|
|
32 |
use C4::Items; |
| 32 |
|
33 |
|
| 33 |
use t::lib::Mocks; |
34 |
use t::lib::Mocks; |
| 34 |
use t::lib::TestBuilder; |
35 |
use t::lib::TestBuilder; |
| 35 |
|
36 |
|
| 36 |
use Test::More tests => 12; |
37 |
use Test::More tests => 13; |
| 37 |
use Test::Warn; |
38 |
use Test::Warn; |
| 38 |
|
39 |
|
| 39 |
my $schema = Koha::Database->new->schema; |
40 |
my $schema = Koha::Database->new->schema; |
|
Lines 857-862
subtest 'Test logging for ModItem' => sub {
Link Here
|
| 857 |
$schema->storage->txn_rollback; |
858 |
$schema->storage->txn_rollback; |
| 858 |
}; |
859 |
}; |
| 859 |
|
860 |
|
|
|
861 |
subtest 'tests for GetMarcItem' => sub { |
| 862 |
|
| 863 |
plan tests => 1; |
| 864 |
$schema->storage->txn_begin; |
| 865 |
my $builder = t::lib::TestBuilder->new; |
| 866 |
my $library = $builder->build({ source => 'Branch', }); |
| 867 |
my $itemtype = $builder->build({ source => 'Itemtype', }); |
| 868 |
my $biblio = $builder->build({ |
| 869 |
source => 'Biblio', |
| 870 |
value=>{ |
| 871 |
frameworkcode => "", |
| 872 |
} |
| 873 |
}); |
| 874 |
my $biblioitem = $builder->build({ |
| 875 |
source => 'Biblioitem', |
| 876 |
value => { biblionumber => $biblio->{biblionumber} }, |
| 877 |
}); |
| 878 |
my $item1 = $builder->build_object({ |
| 879 |
class => 'Koha::Items', |
| 880 |
value => { |
| 881 |
biblionumber => $biblio->{biblionumber}, |
| 882 |
biblioitemnumber => $biblioitem->{biblioitemnumber}, |
| 883 |
itype => $itemtype->{itype}, |
| 884 |
homebranch => $library->{branchcode}, |
| 885 |
barcode => undef, |
| 886 |
restricted => 1, |
| 887 |
itemcallnumber => "", |
| 888 |
cn_sort => "", |
| 889 |
} |
| 890 |
}); |
| 891 |
my ($itemtag, $item_num_subfield )=C4::Biblio::GetMarcFromKohaField("items.itemnumber"); |
| 892 |
my $get_itemnumber = $item1->itemnumber; |
| 893 |
my $item1_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $item1->itemnumber ); |
| 894 |
my (undef, undef, $itemnumber2 ) = AddItemFromMarc( $item1_marc, $biblio->{biblionumber} ); |
| 895 |
my $item2_marc = C4::Items::GetMarcItem( $biblio->{biblionumber}, $itemnumber2 ); |
| 896 |
($itemtag, $item_num_subfield )=C4::Biblio::GetMarcFromKohaField("items.itemnumber"); #get itemnumber tag |
| 897 |
$item1_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #and remove it |
| 898 |
$item2_marc->field($itemtag)->delete_subfield(code => $item_num_subfield); #because it won't match |
| 899 |
is_deeply( $item1_marc, $item2_marc, "The Marc should match if the items are the same"); |
| 900 |
$schema->storage->txn_rollback; |
| 901 |
|
| 902 |
}; |
| 903 |
|
| 860 |
# Helper method to set up a Biblio. |
904 |
# Helper method to set up a Biblio. |
| 861 |
sub get_biblio { |
905 |
sub get_biblio { |
| 862 |
my ( $frameworkcode ) = @_; |
906 |
my ( $frameworkcode ) = @_; |
| 863 |
- |
|
|