#!/usr/bin/perl

# Copyright 2000-2002 Katipo Communications

# Copyright 2004-2010 BibLibre

#

# 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, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use CGI;

use C4::Output qw( output_html_with_http_headers );

use C4::Auth qw( get_template_and_user haspermission );

use C4::Biblio qw( ModBiblio );

use C4::Context;

use Koha::DateUtils qw( dt_from_string );

use Koha::Biblios;

use Koha::RecordSources;

use URI::Escape qw( uri_escape_utf8 );

# ========================

#          MAIN

#=========================

my $input = CGI->new;

my $biblionumber  = $input->param('biblionumber'); # if biblionumber exists, it's a modif, not a new biblio.

my $record_source_id = $input->param('record_source_id') // '';

my $save = $input->param('save') // '';

if ($save ne '') {

    my $biblio = Koha::Biblios->find($biblionumber);

    $biblio->metadata->set({record_source_id => $record_source_id})->store;

    print $input->redirect("/cgi-bin/koha/catalogue/detail.pl?biblionumber=$biblionumber");

}

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

    {

        template_name   => "cataloguing/record_source.tt",

        query           => $input,

        type            => "intranet",

        flagsrequired   => { editcatalogue => 'set_record_sources' },

    });

my $record_sources = Koha::RecordSources->search();

$template->param(

    biblionumber => $biblionumber,

    record_sources => $record_sources,

);

output_html_with_http_headers $input, $cookie, $template->output;

            [% IF CAN_user_editcatalogue_set_record_sources %]

               <li><a id="setrecordsource" href="/cgi-bin/koha/cataloguing/record_source.pl?biblionumber=[% biblionumber | html %]">Set record source</a></li>

            [% ELSE %]

               <li class="disabled"><a id="setrecordsource" href="#">Set record source</a></li>

            [% END %]