diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm
index 836b13fc42..268915107d 100644
--- a/C4/Suggestions.pm
+++ b/C4/Suggestions.pm
@@ -27,6 +27,7 @@ use C4::Context;
use C4::Output;
use C4::Debug;
use C4::Letters;
+use C4::Biblio qw( GetMarcFromKohaField );
use Koha::DateUtils;
use Koha::Suggestions;
@@ -48,6 +49,7 @@ our @EXPORT = qw(
SearchSuggestion
DelSuggestionsOlderThan
GetUnprocessedSuggestions
+ MarcRecordFromNewSuggestion
);
=head1 NAME
@@ -655,6 +657,46 @@ sub GetUnprocessedSuggestions {
return $s;
}
+=head2 MarcRecordFromNewSuggestion
+
+ $record = MarcRecordFromNewSuggestion ( $suggestion )
+
+This function build a marc record object from a suggestion
+
+=cut
+
+sub MarcRecordFromNewSuggestion {
+ my ($suggestion) = @_;
+ my $record = MARC::Record->new();
+
+ my ($title_tag, $title_subfield) = GetMarcFromKohaField('biblio.title', '');
+ $record->append_fields(
+ MARC::Field->new($title_tag, ' ', ' ', $title_subfield => $suggestion->{title})
+ );
+
+ my ($author_tag, $author_subfield) = GetMarcFromKohaField('biblio.author', '');
+ if ($record->field( $author_tag )) {
+ $record->field( $author_tag )->add_subfields( $author_subfield => $suggestion->{author} );
+ }
+ else {
+ $record->append_fields(
+ MARC::Field->new($author_tag, ' ', ' ', $author_subfield => $suggestion->{author})
+ );
+ }
+
+ my ($it_tag, $it_subfield) = GetMarcFromKohaField('biblioitems.itemtype', '');
+ if ($record->field( $it_tag )) {
+ $record->field( $it_tag )->add_subfields( $it_subfield => $suggestion->{itemtype} );
+ }
+ else {
+ $record->append_fields(
+ MARC::Field->new($it_tag, ' ', ' ', $it_subfield => $suggestion->{author})
+ );
+ }
+
+ return $record;
+}
+
1;
__END__
diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-suggestions.tt b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-suggestions.tt
index 2da7660e84..6208287188 100644
--- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-suggestions.tt
+++ b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-suggestions.tt
@@ -40,79 +40,90 @@
Please fill out this form to make a purchase suggestion. You will receive an email when the library processes your suggestion.
Only certain fields (marked in red) are required, but the more information you enter the easier it will be for the librarians to find the title you're requesting. The "Notes" field can be used to provide any additional information.
+ [% FOR m IN messages %]
+
+ [% SWITCH m.code %]
+ [% CASE 'biblio_exists' %]
+ A similar document already exists:
[% m.title %]. Click on "Confirm your suggestion" to ignore this message.
+ [% CASE %]
+ [% m.code %]
+ [% END %]
+