Adding a feature to export star_ratings data

[koha:mainline.git] / opac / svc / star_ratings

#!/usr/bin/perl

# Copyright 2013 Chris Cormack <chris@bigballofwax.co.nz>
#
# This file is part of Koha.
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use strict;
use warnings;

use CGI;

use Koha::Cache;
use C4::Ratings;
use XML::Dumper;
use C4::Biblio;

my $query = CGI->new();

my $cache_active = Koha::Cache->is_cache_active;

my ( $cache_key, $cache, $ratings_xml );
if ($cache_active) {
    $cache_key   = "opac:ratings:";
    $cache       = Koha::Cache->new();
    $ratings_xml = $cache->get_from_cache($cache_key);
}
unless ($ratings_xml) {
    my $marcflavour = C4::Context->preference("MARCFLAVOUR");
    my $ratings = AllRatings();
    foreach my $rating (@$ratings){
    my $record = GetMarcBiblio($rating->{'biblionumber'});
    my $isbn = GetMarcISBN($record,$marcflavour);
    my $issn = GetMarcISSN($record,$marcflavour);
    $rating->{ISBN}=$isbn;
    $rating->{ISSN}=$issn;
    }
    my $dump    = new XML::Dumper;
    $ratings_xml = $dump->pl2xml($ratings);
}

print $query->header;
print $ratings_xml;