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

(-)a/t/db_dependent/Items/AutomaticItemModificationByAge.t (-3 / +27 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 19;
4
use Test::More tests => 20;
5
use MARC::Record;
5
use MARC::Record;
6
use MARC::Field;
6
use MARC::Field;
7
use DateTime;
7
use DateTime;
Lines 47-53 $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode"); Link Here
47
my $record = MARC::Record->new();
47
my $record = MARC::Record->new();
48
$record->append_fields(
48
$record->append_fields(
49
    MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
49
    MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
50
    MARC::Field->new('245', ' ', ' ', a => 'Silence in the library'),
50
    MARC::Field->new('245', ' ', ' ', a => 'Silence in the library', h => 'Book'),
51
    MARC::Field->new('942', ' ', ' ', c => 'ITEMTYPE_T'),
51
    MARC::Field->new('942', ' ', ' ', c => 'ITEMTYPE_T'),
52
);
52
);
53
my ($biblionumber, undef) = C4::Biblio::AddBiblio($record, $frameworkcode);
53
my ($biblionumber, undef) = C4::Biblio::AddBiblio($record, $frameworkcode);
Lines 330-335 C4::Items::ToggleNewStatus( { rules => \@rules } ); Link Here
330
$modified_item = Koha::Items->find( $itemnumber );
330
$modified_item = Koha::Items->find( $itemnumber );
331
is( $modified_item->new_status, 'agefield_new_value', q|ToggleNewStatus: Age = 2, agefield = 'items.datelastseen' : The new_status value is updated|);
331
is( $modified_item->new_status, 'agefield_new_value', q|ToggleNewStatus: Age = 2, agefield = 'items.datelastseen' : The new_status value is updated|);
332
332
333
# Condition on biblio column
334
@rules = (
335
    {
336
        # does not exist
337
        conditions => [
338
            {
339
                field => 'biblio.medium',
340
                value => 'Book',
341
            },
342
        ],
343
        substitutions => [
344
            {
345
                field => 'items.new_status',
346
                value => 'new_updated_value_biblio',
347
             },
348
        ],
349
        age => '0',
350
    },
351
);
352
353
C4::Items::ToggleNewStatus( { rules => \@rules } );
354
355
$modified_item = Koha::Items->find( $itemnumber );
356
is( $modified_item->new_status, 'new_updated_value_biblio', q|ToggleNewStatus: conditions on biblio|);
357
333
# Run twice
358
# Run twice
334
t::lib::Mocks::mock_preference('CataloguingLog', 1);
359
t::lib::Mocks::mock_preference('CataloguingLog', 1);
335
my $actions_nb = $schema->resultset('ActionLog')->count();
360
my $actions_nb = $schema->resultset('ActionLog')->count();
336
- 

Return to bug 32029