|
Lines 33-39
use Koha::MarcSubfieldStructures;
Link Here
|
| 33 |
use C4::Linker::Default qw( get_link ); |
33 |
use C4::Linker::Default qw( get_link ); |
| 34 |
|
34 |
|
| 35 |
BEGIN { |
35 |
BEGIN { |
| 36 |
use_ok('C4::Biblio', qw( AddBiblio GetMarcFromKohaField BiblioAutoLink GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField LinkBibHeadingsToAuthorities GetBiblioData GetMarcBiblio ModBiblio GetMarcISSN GetMarcControlnumber GetMarcISBN GetMarcPrice GetFrameworkCode GetMarcUrls IsMarcStructureInternal GetMarcStructure GetXmlBiblio DelBiblio )); |
36 |
use_ok('C4::Biblio', qw( AddBiblio GetMarcFromKohaField BiblioAutoLink GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField LinkBibHeadingsToAuthorities GetBiblioData ModBiblio GetMarcISSN GetMarcControlnumber GetMarcISBN GetMarcPrice GetFrameworkCode GetMarcUrls IsMarcStructureInternal GetMarcStructure GetXmlBiblio DelBiblio )); |
| 37 |
} |
37 |
} |
| 38 |
|
38 |
|
| 39 |
my $schema = Koha::Database->new->schema; |
39 |
my $schema = Koha::Database->new->schema; |
|
Lines 271-278
sub run_tests {
Link Here
|
| 271 |
is( $data->{ title }, undef, |
271 |
is( $data->{ title }, undef, |
| 272 |
'(GetBiblioData) Title field is empty in fresh biblio.'); |
272 |
'(GetBiblioData) Title field is empty in fresh biblio.'); |
| 273 |
|
273 |
|
|
|
274 |
my $biblio = Koha::Biblios->find($biblionumber); |
| 275 |
|
| 274 |
my ( $isbn_field, $isbn_subfield ) = get_isbn_field(); |
276 |
my ( $isbn_field, $isbn_subfield ) = get_isbn_field(); |
| 275 |
my $marc = GetMarcBiblio({ biblionumber => $biblionumber }); |
277 |
my $marc = $biblio->metadata->record; |
| 276 |
is( $marc->subfield( $isbn_field, $isbn_subfield ), $isbn, ); |
278 |
is( $marc->subfield( $isbn_field, $isbn_subfield ), $isbn, ); |
| 277 |
|
279 |
|
| 278 |
# Add title |
280 |
# Add title |
|
Lines 283-289
sub run_tests {
Link Here
|
| 283 |
is( $data->{ title }, $title, |
285 |
is( $data->{ title }, $title, |
| 284 |
'ModBiblio correctly added the title field, and GetBiblioData.'); |
286 |
'ModBiblio correctly added the title field, and GetBiblioData.'); |
| 285 |
is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.'); |
287 |
is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.'); |
| 286 |
$marc = GetMarcBiblio({ biblionumber => $biblionumber }); |
288 |
$marc = $biblio->metadata->record; |
| 287 |
my ( $title_field, $title_subfield ) = get_title_field(); |
289 |
my ( $title_field, $title_subfield ) = get_title_field(); |
| 288 |
is( $marc->subfield( $title_field, $title_subfield ), $title, ); |
290 |
is( $marc->subfield( $title_field, $title_subfield ), $title, ); |
| 289 |
|
291 |
|
|
Lines 422-430
sub run_tests {
Link Here
|
| 422 |
"GetMarcPrice returns the correct value"); |
424 |
"GetMarcPrice returns the correct value"); |
| 423 |
my $newincbiblioitemnumber=$biblioitemnumber+1; |
425 |
my $newincbiblioitemnumber=$biblioitemnumber+1; |
| 424 |
$dbh->do("UPDATE biblioitems SET biblioitemnumber = ? WHERE biblionumber = ?;", undef, $newincbiblioitemnumber, $biblionumber ); |
426 |
$dbh->do("UPDATE biblioitems SET biblioitemnumber = ? WHERE biblionumber = ?;", undef, $newincbiblioitemnumber, $biblionumber ); |
| 425 |
my $updatedrecord = GetMarcBiblio({ |
427 |
my $updatedrecord = $biblio->metadata->record; |
| 426 |
biblionumber => $biblionumber, |
|
|
| 427 |
embed_items => 0 }); |
| 428 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
428 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
| 429 |
my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber" ); |
429 |
my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber" ); |
| 430 |
die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag; |
430 |
die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag; |
|
Lines 702-708
subtest 'MarcFieldForCreatorAndModifier' => sub {
Link Here
|
| 702 |
my $record = MARC::Record->new(); |
702 |
my $record = MARC::Record->new(); |
| 703 |
my ($biblionumber) = C4::Biblio::AddBiblio($record, ''); |
703 |
my ($biblionumber) = C4::Biblio::AddBiblio($record, ''); |
| 704 |
|
704 |
|
| 705 |
$record = GetMarcBiblio({biblionumber => $biblionumber}); |
705 |
my $biblio = Koha::Biblios->find($biblionumber); |
|
|
706 |
$record = $biblio->metadata->record; |
| 706 |
is($record->subfield('998', 'a'), 123, '998$a = 123'); |
707 |
is($record->subfield('998', 'a'), 123, '998$a = 123'); |
| 707 |
is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe'); |
708 |
is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe'); |
| 708 |
is($record->subfield('998', 'c'), 123, '998$c = 123'); |
709 |
is($record->subfield('998', 'c'), 123, '998$c = 123'); |
|
Lines 711-717
subtest 'MarcFieldForCreatorAndModifier' => sub {
Link Here
|
| 711 |
$c4_context->mock('userenv', sub { return { number => 321, firstname => 'Jane', surname => 'Doe'}; }); |
712 |
$c4_context->mock('userenv', sub { return { number => 321, firstname => 'Jane', surname => 'Doe'}; }); |
| 712 |
C4::Biblio::ModBiblio($record, $biblionumber, ''); |
713 |
C4::Biblio::ModBiblio($record, $biblionumber, ''); |
| 713 |
|
714 |
|
| 714 |
$record = GetMarcBiblio({biblionumber => $biblionumber}); |
715 |
$record = $biblio->metadata->record; |
| 715 |
is($record->subfield('998', 'a'), 123, '998$a = 123'); |
716 |
is($record->subfield('998', 'a'), 123, '998$a = 123'); |
| 716 |
is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe'); |
717 |
is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe'); |
| 717 |
is($record->subfield('998', 'c'), 321, '998$c = 321'); |
718 |
is($record->subfield('998', 'c'), 321, '998$c = 321'); |