View | Details | Raw Unified | Return to bug 36372
Collapse All | Expand All

(-)a/cataloguing/record_source.pl (-3 / +3 lines)
Lines 39-45 my $input = CGI->new; Link Here
39
my $biblionumber     = $input->param('biblionumber');
39
my $biblionumber     = $input->param('biblionumber');
40
my $record_source_id = $input->param('record_source_id') // '';
40
my $record_source_id = $input->param('record_source_id') // '';
41
my $save             = $input->param('save')             // '';
41
my $save             = $input->param('save')             // '';
42
my $biblio = Koha::Biblios->find($biblionumber);
42
my $biblio           = Koha::Biblios->find($biblionumber);
43
43
44
if ($save) {
44
if ($save) {
45
    $biblio->metadata->set( { record_source_id => $record_source_id } )->store;
45
    $biblio->metadata->set( { record_source_id => $record_source_id } )->store;
Lines 60-67 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
60
my $record_sources = Koha::RecordSources->search();
60
my $record_sources = Koha::RecordSources->search();
61
61
62
$template->param(
62
$template->param(
63
    biblio   => $biblio,
63
    biblio         => $biblio,
64
    record_sources => $record_sources,
64
    record_sources => $record_sources,
65
    current_source => { record_source_id => $biblio->metadata->record_source_id },
65
);
66
);
66
67
67
output_html_with_http_headers $input, $cookie, $template->output;
68
output_html_with_http_headers $input, $cookie, $template->output;
68
- 

Return to bug 36372