4 use Test::More tests => 19;
8 use DateTime::Duration;
10 use C4::Items qw( GetMarcItem ToggleNewStatus );
11 use C4::Biblio qw( AddBiblio GetMarcFromKohaField );
13 use Koha::DateUtils qw( dt_from_string );
16 use t::lib::TestBuilder;
18 my $schema = Koha::Database->new->schema;
19 $schema->storage->txn_begin;
20 my $dbh = C4::Context->dbh;
22 my $builder = t::lib::TestBuilder->new;
25 my $library = $builder->build( { source => 'Branch' })->{branchcode};
26 my $library2 = $builder->build( { source => 'Branch' })->{branchcode};
28 my $frameworkcode = ''; # Use Default for Koha to MARC mappings
30 DELETE FROM marc_subfield_structure
31 WHERE ( kohafield = 'items.new_status' OR kohafield = 'items.stocknumber' )
33 |, undef, $frameworkcode);
35 my $new_tagfield = 'i';
37 INSERT INTO marc_subfield_structure(tagfield, tagsubfield, kohafield, frameworkcode)
38 VALUES ( 952, ?, 'items.new_status', ? )
39 |, undef, $new_tagfield, $frameworkcode);
42 my $cache = Koha::Caches->get_instance();
43 $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
44 $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
45 $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode");
47 my $record = MARC::Record->new();
48 $record->append_fields(
49 MARC::Field->new('100', ' ', ' ', a => 'Moffat, Steven'),
50 MARC::Field->new('245', ' ', ' ', a => 'Silence in the library'),
51 MARC::Field->new('942', ' ', ' ', c => 'ITEMTYPE_T'),
53 my ($biblionumber, undef) = C4::Biblio::AddBiblio($record, $frameworkcode);
55 my $item = $builder->build_sample_item(
57 biblionumber => $biblionumber,
59 new_status => 'new_value',
63 my $itemnumber = $item->itemnumber;
64 is ( $item->new_status, 'new_value', q|AddItem insert the 'new_status' field| );
66 my ( $tagfield, undef ) = GetMarcFromKohaField( 'items.itemnumber' );
67 my $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber );
68 is( $marc_item->subfield($tagfield, $new_tagfield), 'new_value', q|Koha mapping is correct|);
70 # Update the items.new_status field if items.ccode eq 'FIC' => should be updated
75 field => 'items.ccode',
81 field => 'items.new_status',
82 value => 'updated_value',
89 C4::Items::ToggleNewStatus( { rules => \@rules } );
91 my $modified_item = Koha::Items->find( $itemnumber );
92 is( $modified_item->new_status, 'updated_value', q|ToggleNewStatus: The new_status value is updated|);
93 $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber );
94 is( $marc_item->subfield($tagfield, $new_tagfield), 'updated_value', q|ToggleNewStatus: The new_status value is updated| );
96 # Update the items.new_status field if items.ccode eq 'DONT_EXIST' => should not be updated
101 field => 'items.ccode',
102 value => 'DONT_EXIST',
107 field => 'items.new_status',
108 value => 'new_updated_value',
115 C4::Items::ToggleNewStatus( { rules => \@rules } );
117 $modified_item = Koha::Items->find( $itemnumber );
118 is( $modified_item->new_status, 'updated_value', q|ToggleNewStatus: The new_status value is not updated|);
119 $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber );
120 is( $marc_item->subfield($tagfield, $new_tagfield), 'updated_value', q|ToggleNewStatus: The new_status value is not updated| );
123 my $dt_today = dt_from_string;
124 my $days5ago = $dt_today->add_duration( DateTime::Duration->new( days => -5 ) );
126 $modified_item->dateaccessioned($days5ago)->store;
132 field => 'items.ccode',
138 field => 'items.new_status',
139 value => 'new_updated_value',
142 age => '10', # Confirm not defining agefield, will default to using items.dateaccessioned
145 C4::Items::ToggleNewStatus( { rules => \@rules } );
146 $modified_item = Koha::Items->find( $itemnumber );
147 is( $modified_item->new_status, 'updated_value', q|ToggleNewStatus: Age = 10 : The new_status value is not updated|);
149 $rules[0]->{age} = 5;
150 $rules[0]->{substitutions}[0]{value} = 'new_updated_value5';
151 C4::Items::ToggleNewStatus( { rules => \@rules } );
152 $modified_item = Koha::Items->find( $itemnumber );
153 is( $modified_item->new_status, 'new_updated_value5', q|ToggleNewStatus: Age = 5 : The new_status value is updated|);
155 $rules[0]->{age} = '';
156 $rules[0]->{substitutions}[0]{value} = 'new_updated_value_empty_string';
157 C4::Items::ToggleNewStatus( { rules => \@rules } );
158 $modified_item = Koha::Items->find( $itemnumber );
159 is( $modified_item->new_status, 'new_updated_value_empty_string', q|ToggleNewStatus: Age = '' : The new_status value is updated|);
161 $rules[0]->{age} = undef;
162 $rules[0]->{substitutions}[0]{value} = 'new_updated_value_undef';
163 C4::Items::ToggleNewStatus( { rules => \@rules } );
164 $modified_item = Koha::Items->find( $itemnumber );
165 is( $modified_item->new_status, 'new_updated_value_undef', q|ToggleNewStatus: Age = undef : The new_status value is updated|);
172 field => 'items.ccode',
178 field => 'items.new_status',
186 C4::Items::ToggleNewStatus( { rules => \@rules } );
188 $modified_item = Koha::Items->find( $itemnumber );
189 is( $modified_item->new_status, '', q|ToggleNewStatus: The new_status value is empty|);
190 $marc_item = C4::Items::GetMarcItem( $biblionumber, $itemnumber );
191 is( $marc_item->subfield($tagfield, $new_tagfield), undef, q|ToggleNewStatus: The new_status field is removed from the item marc| );
193 # conditions multiple
198 field => 'items.ccode',
202 field => 'items.homebranch',
208 field => 'items.new_status',
209 value => 'new_value',
216 C4::Items::ToggleNewStatus( { rules => \@rules } );
218 $modified_item = Koha::Items->find( $itemnumber );
219 is( $modified_item->new_status, 'new_value', q|ToggleNewStatus: conditions multiple: all match, the new_status value is updated|);
225 field => 'items.ccode',
229 field => 'items.homebranch',
230 value => 'DONT_EXIST',
235 field => 'items.new_status',
236 value => 'new_updated_value',
243 C4::Items::ToggleNewStatus( { rules => \@rules } );
245 $modified_item = Koha::Items->find( $itemnumber );
246 is( $modified_item->new_status, 'new_value', q|ToggleNewStatus: conditions multiple: at least 1 condition does not match, the new_status value is not updated|);
252 field => 'items.ccode',
256 field => 'items.homebranch',
257 value => "$library|$library2",
262 field => 'items.new_status',
263 value => 'new_updated_value',
270 C4::Items::ToggleNewStatus( { rules => \@rules } );
272 $modified_item = Koha::Items->find( $itemnumber );
273 is( $modified_item->new_status, 'new_updated_value', q|ToggleNewStatus: conditions multiple: the 2 conditions match, the new_status value is updated|);
280 field => 'biblioitems.itemtype',
281 value => 'ITEMTYPE_T',
286 field => 'items.new_status',
287 value => 'another_new_updated_value',
294 C4::Items::ToggleNewStatus( { rules => \@rules } );
296 $modified_item = Koha::Items->find( $itemnumber );
297 is( $modified_item->new_status, 'another_new_updated_value', q|ToggleNewStatus: conditions on biblioitems|);
299 # Play with the 'Age field'
300 my $days2ago = $dt_today->add_duration( DateTime::Duration->new( days => -10 ) );
301 my $days20ago = $dt_today->add_duration( DateTime::Duration->new( days => -20 ) );
302 $modified_item->datelastseen($days2ago)->store;
303 $modified_item->dateaccessioned($days20ago)->store;
305 # When agefield='items.datelastseen'
310 field => 'biblioitems.itemtype',
311 value => 'ITEMTYPE_T',
316 field => 'items.new_status',
317 value => 'agefield_new_value',
321 agefield => 'items.datelastseen' # Confirm defining agefield => 'items.datelastseen' will use items.datelastseen
324 C4::Items::ToggleNewStatus( { rules => \@rules } );
325 $modified_item = Koha::Items->find( $itemnumber );
326 is( $modified_item->new_status, 'agefield_new_value', q|ToggleNewStatus: Age = 5, agefield = 'items.datelastseen' : The new_status value is not updated|);
328 $rules[0]->{age} = 2;
329 C4::Items::ToggleNewStatus( { rules => \@rules } );
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|);
334 t::lib::Mocks::mock_preference('CataloguingLog', 1);
335 my $actions_nb = $schema->resultset('ActionLog')->count();
336 C4::Items::ToggleNewStatus( { rules => \@rules } );
337 is( $schema->resultset('ActionLog')->count(), $actions_nb, q|ToggleNewStatus: no substitution does not generate action logs|);
340 $cache = Koha::Caches->get_instance();
341 $cache->clear_from_cache("MarcStructure-0-$frameworkcode");
342 $cache->clear_from_cache("MarcStructure-1-$frameworkcode");
343 $cache->clear_from_cache("MarcSubfieldStructure-$frameworkcode");
344 $schema->storage->txn_rollback;