Lines 280-287
subtest q{Test Koha::Database->schema()->resultset('Item')->itemtype()} => sub {
Link Here
|
280 |
$item->itype( undef ); |
280 |
$item->itype( undef ); |
281 |
$item->update(); |
281 |
$item->update(); |
282 |
my $effective_itemtype; |
282 |
my $effective_itemtype; |
|
|
283 |
my $itemnumber = $item->id; |
283 |
warning_is { $effective_itemtype = $item->effective_itemtype() } |
284 |
warning_is { $effective_itemtype = $item->effective_itemtype() } |
284 |
"item-level_itypes set but no itemtype set for item ($item->itemnumber)", |
285 |
"item-level_itypes set but no itemtype set for item ($itemnumber)", |
285 |
'->effective_itemtype() raises a warning when falling back to bib-level'; |
286 |
'->effective_itemtype() raises a warning when falling back to bib-level'; |
286 |
|
287 |
|
287 |
ok( defined $effective_itemtype && |
288 |
ok( defined $effective_itemtype && |
Lines 292-298
subtest q{Test Koha::Database->schema()->resultset('Item')->itemtype()} => sub {
Link Here
|
292 |
}; |
293 |
}; |
293 |
|
294 |
|
294 |
subtest 'SearchItems test' => sub { |
295 |
subtest 'SearchItems test' => sub { |
295 |
plan tests => 14; |
296 |
plan tests => 15; |
296 |
|
297 |
|
297 |
$schema->storage->txn_begin; |
298 |
$schema->storage->txn_begin; |
298 |
my $dbh = C4::Context->dbh; |
299 |
my $dbh = C4::Context->dbh; |
Lines 445-451
subtest 'SearchItems test' => sub {
Link Here
|
445 |
ModItemFromMarc($item3_record, $biblionumber, $item3_itemnumber); |
446 |
ModItemFromMarc($item3_record, $biblionumber, $item3_itemnumber); |
446 |
|
447 |
|
447 |
# Make sure the link is used |
448 |
# Make sure the link is used |
448 |
my $item3 = GetItem($item3_itemnumber); |
449 |
my $item3; |
|
|
450 |
warning_is { $item3 = GetItem($item3_itemnumber) } |
451 |
"item-level_itypes set but no itemtype set for item ($item3_itemnumber)", |
452 |
'->effective_itemtype() raises a warning when falling back to bib-level'; |
449 |
ok($item3->{itemnotes} eq 'foobar', 'itemnotes eq "foobar"'); |
453 |
ok($item3->{itemnotes} eq 'foobar', 'itemnotes eq "foobar"'); |
450 |
|
454 |
|
451 |
# Do the same search again. |
455 |
# Do the same search again. |
452 |
- |
|
|