|
Lines 420-427
sub run_tests {
Link Here
|
| 420 |
|
420 |
|
| 421 |
is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100, |
421 |
is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100, |
| 422 |
"GetMarcPrice returns the correct value"); |
422 |
"GetMarcPrice returns the correct value"); |
| 423 |
my $newincbiblioitemnumber=$biblioitemnumber+1; |
|
|
| 424 |
$dbh->do("UPDATE biblioitems SET biblioitemnumber = ? WHERE biblionumber = ?;", undef, $newincbiblioitemnumber, $biblionumber ); |
| 425 |
my $updatedrecord = GetMarcBiblio({ |
423 |
my $updatedrecord = GetMarcBiblio({ |
| 426 |
biblionumber => $biblionumber, |
424 |
biblionumber => $biblionumber, |
| 427 |
embed_items => 0 }); |
425 |
embed_items => 0 }); |
|
Lines 434-440
sub run_tests {
Link Here
|
| 434 |
} else { |
432 |
} else { |
| 435 |
$biblioitemnumbertotest = $updatedrecord->field($biblioitem_tag)->subfield($biblioitem_subfield); |
433 |
$biblioitemnumbertotest = $updatedrecord->field($biblioitem_tag)->subfield($biblioitem_subfield); |
| 436 |
} |
434 |
} |
| 437 |
is ($newincbiblioitemnumber, $biblioitemnumbertotest, 'Check newincbiblioitemnumber'); |
|
|
| 438 |
|
435 |
|
| 439 |
# test for GetMarcUrls |
436 |
# test for GetMarcUrls |
| 440 |
$marc_record->append_fields( |
437 |
$marc_record->append_fields( |
|
Lines 597-610
sub create_author_field {
Link Here
|
| 597 |
} |
594 |
} |
| 598 |
|
595 |
|
| 599 |
subtest 'MARC21' => sub { |
596 |
subtest 'MARC21' => sub { |
| 600 |
plan tests => 47; |
597 |
plan tests => 46; |
| 601 |
run_tests('MARC21'); |
598 |
run_tests('MARC21'); |
| 602 |
$schema->storage->txn_rollback; |
599 |
$schema->storage->txn_rollback; |
| 603 |
$schema->storage->txn_begin; |
600 |
$schema->storage->txn_begin; |
| 604 |
}; |
601 |
}; |
| 605 |
|
602 |
|
| 606 |
subtest 'UNIMARC' => sub { |
603 |
subtest 'UNIMARC' => sub { |
| 607 |
plan tests => 47; |
604 |
plan tests => 46; |
| 608 |
|
605 |
|
| 609 |
# Mock the auth type data for UNIMARC |
606 |
# Mock the auth type data for UNIMARC |
| 610 |
$dbh->do("UPDATE auth_types SET auth_tag_to_report = '106' WHERE auth_tag_to_report = '100'") or die $dbh->errstr; |
607 |
$dbh->do("UPDATE auth_types SET auth_tag_to_report = '106' WHERE auth_tag_to_report = '100'") or die $dbh->errstr; |
| 611 |
- |
|
|