From b0ad048321731e1e5e6bffb8bb22b0ce1ae908ab Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 1 May 2018 00:56:38 -0400 Subject: [PATCH] user feedback for catalog records - OPAC Signed-off-by: Galen Charlton --- .../perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm | 15 +++++++++++++++ .../src/templates/opac/parts/record/summary.tt2 | 21 +++++++++++++++++++++ 2 files changed, 36 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm index 2e48ce394c..ae207e26bb 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm @@ -26,6 +26,10 @@ sub load_record { return Apache2::Const::HTTP_BAD_REQUEST unless $rec_id and $rec_id =~ /^\d+$/; + if (my $feedback = $self->cgi->param('record_feedback')) { + $self->_record_feedback($rec_id, $feedback); + $ctx->{feedback_left} = 1; + } $self->added_content_stage1($rec_id); $self->timelog("past added content stage 1"); @@ -252,6 +256,17 @@ sub load_record { return Apache2::Const::OK; } +sub _record_feedback { + my ($self, $record, $feedback) = @_; + my $e = $self->editor; + my $brf = Fieldmapper::biblio::record_feedback->new; + $brf->record($record); + $brf->value($feedback); + $e->xact_begin; + $e->create_biblio_record_feedback($brf); + $e->xact_commit; +} + # collect IDs and info on the search that lead to this details page # If no search query, etc is present, we leave ctx.search_result_index == -1 sub fetch_related_search_info { diff --git a/Open-ILS/src/templates/opac/parts/record/summary.tt2 b/Open-ILS/src/templates/opac/parts/record/summary.tt2 index 7797c5e0a7..5a722873cb 100644 --- a/Open-ILS/src/templates/opac/parts/record/summary.tt2 +++ b/Open-ILS/src/templates/opac/parts/record/summary.tt2 @@ -150,6 +150,10 @@ [% END %] + [%- IF ctx.is_staff %]