75b5ce2a31
Keeps the selected framework, allows selecting another and validates the record using the correct framework. Contains additional minor tweaks to display proper error messages. To test: 1. Add a record with a non-default framework in the basic editor. 2. Switch to advanced editor and make sure the settings menu displays the correct framework. 3. Save the record and confirm that the framework code did not change. 4. Change the framework and save the record again. 5. Verify that the framework code changed. 6. Change one framework to make an extra field mandatory. 7. Make sure that the field is required in the editor when the framework above is selected but not when another framework is selected. Signed-off-by: Michal Denar <black23@gmail.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
75 lines
2.3 KiB
Perl
Executable file
75 lines
2.3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# Copyright 2013 ByWater
|
|
#
|
|
# 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 MARC::Record;
|
|
|
|
use C4::Auth;
|
|
use C4::Biblio;
|
|
use C4::Context;
|
|
use C4::Output;
|
|
use DBIx::Class::ResultClass::HashRefInflator;
|
|
use Koha::Database;
|
|
use Koha::MarcSubfieldStructures;
|
|
use Koha::BiblioFrameworks;
|
|
|
|
my $input = CGI->new;
|
|
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => 'cataloguing/editor.tt',
|
|
query => $input,
|
|
type => 'intranet',
|
|
authnotrequired => 0,
|
|
flagsrequired => { editcatalogue => 'edit_catalogue' },
|
|
}
|
|
);
|
|
|
|
my $schema = Koha::Database->new->schema;
|
|
|
|
# Available import batches
|
|
$template->{VARS}->{editable_batches} = [ $schema->resultset('ImportBatch')->search(
|
|
{
|
|
batch_type => [ 'batch', 'webservice' ],
|
|
import_status => 'staged',
|
|
},
|
|
{ result_class => 'DBIx::Class::ResultClass::HashRefInflator' },
|
|
) ];
|
|
|
|
# Needed information for cataloging plugins
|
|
$template->{VARS}->{DefaultLanguageField008} = pack( 'A3', C4::Context->preference('DefaultLanguageField008') || 'eng' );
|
|
|
|
my $authtags = Koha::MarcSubfieldStructures->search({ authtypecode => { '!=' => '' }, 'frameworkcode' => '' });
|
|
$template->{VARS}->{authtags} = $authtags;
|
|
|
|
my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });
|
|
$template->{VARS}->{frameworks} = $frameworks;
|
|
|
|
# Z39.50 servers
|
|
my $dbh = C4::Context->dbh;
|
|
$template->{VARS}->{z3950_servers} = $dbh->selectall_arrayref( q{
|
|
SELECT * FROM z3950servers
|
|
WHERE recordtype != 'authority' AND servertype = 'zed'
|
|
ORDER BY servername
|
|
}, { Slice => {} } );
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|