Lines 378-388
my $record = MarcRecordFromNewSuggestion($suggestion2);
Link Here
|
378 |
|
378 |
|
379 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
379 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
380 |
|
380 |
|
381 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title', ''); |
381 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title'); |
382 |
|
382 |
|
383 |
is($record->field( $title_tag )->subfield( $title_subfield ), "Cuisine d'automne", "Record from suggestion title should be 'Cuisine d'automne'"); |
383 |
is($record->field( $title_tag )->subfield( $title_subfield ), "Cuisine d'automne", "Record from suggestion title should be 'Cuisine d'automne'"); |
384 |
|
384 |
|
385 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author', ''); |
385 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author'); |
386 |
|
386 |
|
387 |
is($record->field( $author_tag )->subfield( $author_subfield ), "Catherine", "Record from suggestion author should be 'Catherine'"); |
387 |
is($record->field( $author_tag )->subfield( $author_subfield ), "Catherine", "Record from suggestion author should be 'Catherine'"); |
388 |
|
388 |
|
Lines 601-616
subtest 'Suggestion with ISBN' => sub {
Link Here
|
601 |
my $record = MarcRecordFromNewSuggestion( $suggestion_with_isbn ); |
601 |
my $record = MarcRecordFromNewSuggestion( $suggestion_with_isbn ); |
602 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
602 |
is("MARC::Record", ref($record), "MarcRecordFromNewSuggestion should return a MARC::Record object"); |
603 |
|
603 |
|
604 |
my ($isbn_tag, $isbn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.isbn', ''); |
604 |
my ($isbn_tag, $isbn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.isbn'); |
605 |
is($record->field( $isbn_tag )->subfield( $isbn_subfield ), "1940997232", "ISBN Record from suggestion ISBN should be '1940997232'"); |
605 |
is($record->field( $isbn_tag )->subfield( $isbn_subfield ), "1940997232", "ISBN Record from suggestion ISBN should be '1940997232'"); |
606 |
|
606 |
|
607 |
my ($issn_tag, $issn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.issn', ''); |
607 |
my ($issn_tag, $issn_subfield) = C4::Biblio::GetMarcFromKohaField('biblioitems.issn'); |
608 |
is($record->field( $issn_tag )->subfield( $issn_subfield ), "1940997232", "ISSN Record from suggestion ISBN should also be '1940997232'"); |
608 |
is($record->field( $issn_tag )->subfield( $issn_subfield ), "1940997232", "ISSN Record from suggestion ISBN should also be '1940997232'"); |
609 |
|
609 |
|
610 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title', ''); |
610 |
my ($title_tag, $title_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.title'); |
611 |
is($record->field( $title_tag), undef, "Record from suggestion title should be empty"); |
611 |
is($record->field( $title_tag), undef, "Record from suggestion title should be empty"); |
612 |
|
612 |
|
613 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author', ''); |
613 |
my ($author_tag, $author_subfield) = C4::Biblio::GetMarcFromKohaField('biblio.author'); |
614 |
is($record->field( $author_tag), undef, "Record from suggestion author should be empty"); |
614 |
is($record->field( $author_tag), undef, "Record from suggestion author should be empty"); |
615 |
}; |
615 |
}; |
616 |
|
616 |
|
617 |
- |
|
|