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