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