Lines 379-389
my $record = MarcRecordFromNewSuggestion($suggestion2);
Link Here
|
379 |
|
379 |
|
380 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
380 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
381 |
|
381 |
|
382 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title', ''); |
382 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title'); |
383 |
|
383 |
|
384 |
is($record->field( $title_tag )->subfield( $title_subfield ), "Cuisine d'automne", "Record from suggestion title should be 'Cuisine d'automne'"); |
384 |
is($record->field( $title_tag )->subfield( $title_subfield ), "Cuisine d'automne", "Record from suggestion title should be 'Cuisine d'automne'"); |
385 |
|
385 |
|
386 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author', ''); |
386 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author'); |
387 |
|
387 |
|
388 |
is($record->field( $author_tag )->subfield( $author_subfield ), "Catherine", "Record from suggestion author should be 'Catherine'"); |
388 |
is($record->field( $author_tag )->subfield( $author_subfield ), "Catherine", "Record from suggestion author should be 'Catherine'"); |
389 |
|
389 |
|
Lines 649-664
subtest 'Suggestion with ISBN' => sub {
Link Here
|
649 |
my $record = MarcRecordFromNewSuggestion( $suggestion_with_isbn ); |
649 |
my $record = MarcRecordFromNewSuggestion( $suggestion_with_isbn ); |
650 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
650 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
651 |
|
651 |
|
652 |
my ($isbn_tag, $isbn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.isbn', ''); |
652 |
my ($isbn_tag, $isbn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.isbn'); |
653 |
is($record->field( $isbn_tag )->subfield( $isbn_subfield ), "1940997232", "ISBN Record from suggestion ISBN should be '1940997232'"); |
653 |
is($record->field( $isbn_tag )->subfield( $isbn_subfield ), "1940997232", "ISBN Record from suggestion ISBN should be '1940997232'"); |
654 |
|
654 |
|
655 |
my ($issn_tag, $issn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.issn', ''); |
655 |
my ($issn_tag, $issn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.issn'); |
656 |
is($record->field( $issn_tag )->subfield( $issn_subfield ), "1940997232", "ISSN Record from suggestion ISBN should also be '1940997232'"); |
656 |
is($record->field( $issn_tag )->subfield( $issn_subfield ), "1940997232", "ISSN Record from suggestion ISBN should also be '1940997232'"); |
657 |
|
657 |
|
658 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title', ''); |
658 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title'); |
659 |
is($record->field( $title_tag), undef, "Record from suggestion title should be empty"); |
659 |
is($record->field( $title_tag), undef, "Record from suggestion title should be empty"); |
660 |
|
660 |
|
661 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author', ''); |
661 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author'); |
662 |
is($record->field( $author_tag), undef, "Record from suggestion author should be empty"); |
662 |
is($record->field( $author_tag), undef, "Record from suggestion author should be empty"); |
663 |
}; |
663 |
}; |
664 |
|
664 |
|
665 |
- |
|
|