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