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 |
- |
|
|