3 # This file is part of Koha.
5 # Copyright 2013 BibLibre
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, see <http://www.gnu.org/licenses>.
24 use Koha::AdditionalField;
28 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30 template_name => "serials/add_fields.tt",
34 flagsrequired => { serials => '*' },
39 my $op = $input->param('op') // 'list';
40 my $field_id = $input->param('field_id');
44 my $name = $input->param('name') // q{};
45 my $authorised_value_category = $input->param('authorised_value_category') // q{};
46 my $marcfield = $input->param('marcfield') // q{};
47 my $searchable = $input->param('searchable') ? 1 : 0;
48 if ( $field_id and $name ) {
51 my $af = Koha::AdditionalField->new({
54 authorised_value_category => $authorised_value_category,
55 marcfield => $marcfield,
56 searchable => $searchable,
58 $updated = $af->update;
67 my $af = Koha::AdditionalField->new({
68 tablename => 'subscription',
70 authorised_value_category => $authorised_value_category,
71 marcfield => $marcfield,
72 searchable => $searchable,
74 $inserted = $af->insert;
89 if ( $op eq 'delete' ) {
92 my $af = Koha::AdditionalField->new( { id => $field_id } );
93 $deleted = $af->delete;
94 $deleted = 0 if $deleted eq '0E0';
103 if ( $op eq 'add_form' ) {
106 $field = Koha::AdditionalField->new( { id => $field_id } )->fetch;
114 if ( $op eq 'list' ) {
115 my $fields = Koha::AdditionalField->all( { tablename => 'subscription' } );
116 $template->param( fields => $fields );
121 messages => \@messages,
124 output_html_with_http_headers $input, $cookie, $template->output;