From ce33063f5b14b3484a13278aa70a1b158a1289b2 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 12 Dec 2013 21:15:06 +0100 Subject: [PATCH] Bug 11395: New service to preview a record. Content-Type: text/plain; charset=utf-8 The main patch adds the ability to preview a record. This is done using an AJAX way. The preview record is processed on the server side. Note: I don't think an authentification check is necessary here. Signed-off-by: Brendan Gallagher Signed-off-by: Kyle M Hall Signed-off-by: Tomas Cohen Arazi Signed-off-by: Marcel de Rooy --- svc/records/preview | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 53 insertions(+), 0 deletions(-) create mode 100755 svc/records/preview diff --git a/svc/records/preview b/svc/records/preview new file mode 100755 index 0000000..39fcb92 --- /dev/null +++ b/svc/records/preview @@ -0,0 +1,53 @@ +#!/usr/bin/perl + +# This file is part of Koha. +# +# Copyright (C) 2013 BibLibre +# +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . + +use Modern::Perl; +use CGI; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio ); +use C4::MarcModificationTemplates qw( ModifyRecordWithTemplate ); +use C4::Output qw( output_html_with_http_headers ); +use Koha::Authority; + +my $query = CGI->new(); +my $record_id = $query->param('record_id'); +my $record_type = $query->param('record_type') || 'biblio'; +my $mmtid = $query->param('mmtid'); # Marc modification template id + +my $record; +if ( $record_type eq 'biblio' ) { + $record = GetMarcBiblio( $record_id ); +} else { + my $authority = Koha::Authority->get_from_authid( $record_id ); + $record = $authority->record; +} + +if ( $mmtid ) { + ModifyRecordWithTemplate( $mmtid, $record ); +} + +my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ + template_name => "catalogue/showmarc.tt", + query => $query, + type => "intranet", + authnotrequired => 1, +}); + +$template->param( MARC_FORMATTED => $record->as_formatted ); +output_html_with_http_headers $query, $cookie, $template->output; -- 1.7.7.6