3 # Copyright 2013 ByWater
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
30 use DBIx
::Class
::ResultClass
::HashRefInflator
;
32 use Koha
::MarcSubfieldStructures
;
33 use Koha
::BiblioFrameworks
;
37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
39 template_name
=> 'cataloguing/editor.tt',
43 flagsrequired
=> { editcatalogue
=> 'edit_catalogue' },
47 my $schema = Koha
::Database
->new->schema;
49 # Available import batches
50 $template->{VARS
}->{editable_batches
} = [ $schema->resultset('ImportBatch')->search(
52 batch_type
=> [ 'batch', 'webservice' ],
53 import_status
=> 'staged',
55 { result_class
=> 'DBIx::Class::ResultClass::HashRefInflator' },
58 # Needed information for cataloging plugins
59 $template->{VARS
}->{DefaultLanguageField008
} = pack( 'A3', C4
::Context
->preference('DefaultLanguageField008') || 'eng' );
61 my $authtags = Koha
::MarcSubfieldStructures
->search({ authtypecode
=> { '!=' => '' }, 'frameworkcode' => '' });
62 $template->{VARS
}->{authtags
} = $authtags;
64 my $frameworks = Koha
::BiblioFrameworks
->search({}, { order_by
=> ['frameworktext'] });
65 $template->{VARS
}->{frameworks
} = $frameworks;
68 my $dbh = C4
::Context
->dbh;
69 $template->{VARS
}->{z3950_servers
} = $dbh->selectall_arrayref( q{
70 SELECT * FROM z3950servers
71 WHERE recordtype != 'authority' AND servertype = 'zed'
75 output_html_with_http_headers
$input, $cookie, $template->output;