Lines 19-25
use Modern::Perl;
Link Here
|
19 |
use Data::Dumper; |
19 |
use Data::Dumper; |
20 |
|
20 |
|
21 |
use MARC::Record; |
21 |
use MARC::Record; |
22 |
use C4::Items qw( ModItemTransfer SearchItems AddItemFromMarc ModItemFromMarc get_hostitemnumbers_of Item2Marc ); |
22 |
use C4::Items qw( ModItemTransfer SearchItems AddItemFromMarc ModItemFromMarc get_hostitemnumbers_of Item2Marc ModDateLastSeen ); |
23 |
use C4::Biblio qw( GetMarcFromKohaField AddBiblio ); |
23 |
use C4::Biblio qw( GetMarcFromKohaField AddBiblio ); |
24 |
use C4::Circulation qw( AddIssue ); |
24 |
use C4::Circulation qw( AddIssue ); |
25 |
use Koha::Items; |
25 |
use Koha::Items; |
Lines 34-40
use Koha::AuthorisedValues;
Link Here
|
34 |
use t::lib::Mocks; |
34 |
use t::lib::Mocks; |
35 |
use t::lib::TestBuilder; |
35 |
use t::lib::TestBuilder; |
36 |
|
36 |
|
37 |
use Test::More tests => 11; |
37 |
use Test::More tests => 12; |
38 |
|
38 |
|
39 |
use Test::Warn; |
39 |
use Test::Warn; |
40 |
|
40 |
|
Lines 931-934
subtest 'ModItemFromMarc' => sub {
Link Here
|
931 |
|
931 |
|
932 |
$schema->storage->txn_rollback; |
932 |
$schema->storage->txn_rollback; |
933 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
933 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
934 |
} |
934 |
}; |
|
|
935 |
|
936 |
subtest 'ModDateLastSeen' => sub { |
937 |
plan tests => 5; |
938 |
$schema->storage->txn_begin; |
939 |
|
940 |
my $builder = t::lib::TestBuilder->new; |
941 |
my $item = $builder->build_sample_item; |
942 |
t::lib::Mocks::mock_preference('CataloguingLog', '1'); |
943 |
my $logs_before = Koha::ActionLogs->search({ module => 'CATALOGUING', action => 'MODIFY', object => $item->itemnumber })->count; |
944 |
ModDateLastSeen($item->itemnumber); |
945 |
my $logs_after = Koha::ActionLogs->search({ module => 'CATALOGUING', action => 'MODIFY', object => $item->itemnumber })->count; |
946 |
is( $logs_after, $logs_before, "ModDateLastSeen doesn't log if item not lost"); |
947 |
$item->itemlost(1)->store({ log_action => 0 }); |
948 |
ModDateLastSeen($item->itemnumber, 1); |
949 |
$item->discard_changes; |
950 |
$logs_after = Koha::ActionLogs->search({ module => 'CATALOGUING', action => 'MODIFY', object => $item->itemnumber })->count; |
951 |
is( $item->itemlost, 1, "Item left lost when parameter is passed"); |
952 |
is( $logs_after, $logs_before, "ModDateLastSeen doesn't log if item not lost"); |
953 |
ModDateLastSeen($item->itemnumber); |
954 |
$item->discard_changes; |
955 |
$logs_after = Koha::ActionLogs->search({ module => 'CATALOGUING', action => 'MODIFY', object => $item->itemnumber })->count; |
956 |
is( $item->itemlost, 0, "Item no longer lost when no parameter is passed"); |
957 |
is( $logs_after, $logs_before + 1, "ModDateLastSeen logs if item was lost and now found"); |
958 |
}; |
935 |
- |
|
|