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