3 # Copyright 2000-2002 Katipo Communications
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>.
23 use List::MoreUtils qw( any );
25 use C4::Auth qw( get_template_and_user );
27 use C4::Koha qw( getitemtypeimagelocation );
28 use C4::Output qw( output_html_with_http_headers );
30 use Koha::AuthorisedValues;
31 use Koha::AuthorisedValueCategories;
35 my $id = $input->param('id');
36 my $op = $input->param('op') || 'list';
37 my $searchfield = $input->param('searchfield');
38 $searchfield = '' unless defined $searchfield;
39 $searchfield =~ s/\,//g;
42 our ($template, $borrowernumber, $cookie)= get_template_and_user({
43 template_name => "admin/authorised_values.tt",
44 flagsrequired => {parameters => 'manage_auth_values'},
49 ################## ADD_FORM ##################################
50 # called by default. Used to create form to add or modify a record
51 if ($op eq 'add_form') {
52 my ( @selected_branches, $category, $av );
54 $av = Koha::AuthorisedValues->new->find( $id );
55 @selected_branches = $av->library_limits ? $av->library_limits->as_list : ();
57 $category = $input->param('category');
60 my $branches = Koha::Libraries->search( {}, { order_by => ['branchname'] } );
62 while ( my $branch = $branches->next ) {
63 push @branches_loop, {
64 branchcode => $branch->branchcode,
65 branchname => $branch->branchname,
66 selected => any {$_->branchcode eq $branch->branchcode} @selected_branches,
71 $template->param(action_modify => 1);
72 } elsif ( ! $category ) {
73 $template->param(action_add_category => 1);
75 $template->param(action_add_value => 1);
80 category_name => $av->category,
82 imagesets => C4::Koha::getImageSets( checked => $av->imageurl ),
86 category_name => $category,
87 imagesets => C4::Koha::getImageSets(),
91 branches_loop => \@branches_loop,
94 } elsif ($op eq 'add') {
95 my $new_authorised_value = $input->param('authorised_value');
96 my $new_category = $input->param('category');
97 my $image = $input->param( 'image' ) || '';
99 $image eq 'removeImage' ? ''
101 $image eq 'remoteImage' ? $input->param('remoteImage')
104 my $duplicate_entry = 0;
105 my @branches = grep { $_ ne q{} } $input->multi_param('branches');
107 if ( $new_category eq 'branches' or $new_category eq 'itemtypes' or $new_category eq 'cn_source' ) {
108 push @messages, {type => 'error', code => 'invalid_category_name' };
110 elsif ( $id ) { # Update
111 my $av = Koha::AuthorisedValues->new->find( $id );
113 $av->lib( scalar $input->param('lib') || undef );
114 $av->lib_opac( scalar $input->param('lib_opac') || undef );
115 $av->category( $new_category );
116 $av->authorised_value( $new_authorised_value );
117 $av->imageurl( $imageurl );
120 $av->replace_library_limits( \@branches );
123 push @messages, {type => 'error', code => 'error_on_update' };
125 push @messages, { type => 'message', code => 'success_on_update' };
130 my $av = Koha::AuthorisedValue->new(
132 category => $new_category,
133 authorised_value => $new_authorised_value,
134 lib => scalar $input->param('lib') || undef,
135 lib_opac => scalar $input->param('lib_opac') || undef,
136 imageurl => $imageurl,
139 $av->replace_library_limits( \@branches );
144 push @messages, {type => 'error', code => 'error_on_insert' };
146 push @messages, { type => 'message', code => 'success_on_insert' };
151 $searchfield = $new_category;
152 } elsif ($op eq 'add_category' ) {
153 my $new_category = $input->param('category');
155 my $already_exists = Koha::AuthorisedValueCategories->find(
157 category_name => $new_category,
161 if ( $already_exists ) {
162 if ( $new_category eq 'branches' or $new_category eq 'itemtypes' or $new_category eq 'cn_source' ) {
163 push @messages, {type => 'error', code => 'invalid_category_name' };
165 push @messages, {type => 'error', code => 'cat_already_exists' };
169 my $av = Koha::AuthorisedValueCategory->new( {
170 category_name => $new_category,
178 push @messages, {type => 'error', code => 'error_on_insert_cat' };
180 push @messages, { type => 'message', code => 'success_on_insert_cat' };
181 $searchfield = $new_category;
186 } elsif ($op eq 'delete') {
187 my $av = Koha::AuthorisedValues->new->find( $id );
188 my $deleted = eval {$av->delete};
189 if ( $@ or not $deleted ) {
190 push @messages, {type => 'error', code => 'error_on_delete' };
192 push @messages, { type => 'message', code => 'success_on_delete' };
196 } elsif ($op eq 'delete_category') {
197 my $category_name = $input->param('category_name');
198 my $avc = Koha::AuthorisedValueCategories->find( $category_name );
199 my $deleted = eval {$avc->delete};
200 if ( $@ or not $deleted ) {
201 push @messages, {type => 'error', code => 'error_on_delete_category' };
203 push @messages, { type => 'message', code => 'success_on_delete_category' };
211 searchfield => $searchfield,
212 messages => \@messages,
215 if ( $op eq 'list' ) {
216 # build categories list
217 my @category_names = Koha::AuthorisedValueCategories->search(
220 { -not_in => [ '', 'branches', 'itemtypes', 'cn_source' ] }
222 { order_by => ['category_name'] }
223 )->get_column('category_name');
227 my @avs_by_category = Koha::AuthorisedValues->new->search( { category => $searchfield } )->as_list;
230 for my $av ( @avs_by_category ) {
231 my %row_data; # get a fresh hash for the row data
232 $row_data{category} = $av->category;
233 $row_data{authorised_value} = $av->authorised_value;
234 $row_data{lib} = $av->lib;
235 $row_data{lib_opac} = $av->lib_opac;
236 $row_data{image} = getitemtypeimagelocation( 'intranet', $av->imageurl );
237 $row_data{branches} = $av->library_limits ? $av->library_limits->as_list : [];
238 $row_data{id} = $av->id;
239 push(@loop_data, \%row_data);
244 category => Koha::AuthorisedValueCategories->find($searchfield), # TODO Move this up and add a Koha::AVC->authorised_values method to replace call for avs_by_category
245 category_names => \@category_names,
249 output_html_with_http_headers $input, $cookie, $template->output;