3 # Copyright 2007 LibLime
4 # Copyright 2018 Koha Development Team
6 # This file is part of Koha.
8 # Koha is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or
11 # (at your option) any later version.
13 # Koha is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with Koha; if not, see <http://www.gnu.org/licenses>.
29 use C4::ClassSortRoutine;
30 use C4::ClassSplitRoutine;
31 use Koha::ClassSources;
32 use Koha::ClassSortRules;
33 use Koha::ClassSplitRules;
35 my $script_name = "/cgi-bin/koha/admin/classsources.pl";
38 my $op = $input->param('op') || 'list';
39 my $cn_source = $input->param('cn_source');
40 my $class_sort_rule = $input->param('class_sort_rule');
41 my $class_split_rule = $input->param('class_split_rule');
42 my $sort_routine = $input->param('sort_routine');
43 my $split_routine = $input->param('split_routine');
44 my @split_regex = $input->multi_param('split_regex');
45 my $description = $input->param('description');
46 my $used = $input->param('used');
48 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
50 template_name => "admin/classsources.tt",
54 flagsrequired => { parameters => 'manage_classifications' },
60 $template->param( script_name => $script_name );
62 if ( $op eq "add_source" ) {
64 $cn_source ? Koha::ClassSources->find($cn_source) : undef;
66 class_source => $class_source,
67 sort_rules => scalar Koha::ClassSortRules->search,
68 split_rules => scalar Koha::ClassSplitRules->search,
71 elsif ( $op eq "add_source_validate" ) {
72 my $class_source = Koha::ClassSources->find($cn_source);
76 description => $description,
77 used => ( $used eq 'used' ? 1 : 0 ),
78 class_sort_rule => $class_sort_rule,
79 class_split_rule => $class_split_rule,
82 eval { $class_source->store; };
85 { type => 'error', code => 'error_on_update_source' };
89 { type => 'message', code => 'success_on_update_source' };
94 $class_source = Koha::ClassSource->new(
96 cn_source => $cn_source,
97 description => $description,
98 used => ( $used eq 'used' ? 1 : 0 ),
99 class_sort_rule => $class_sort_rule,
100 class_split_rule => $class_split_rule,
103 eval { $class_source->store; };
106 { type => 'error', code => 'error_on_insert_source' };
110 { type => 'message', code => 'success_on_insert_source' };
116 elsif ( $op eq "delete_source_confirmed" ) {
117 my $class_source = Koha::ClassSources->find($cn_source);
118 my $deleted = eval { $class_source->delete };
119 if ( $@ or not $deleted ) {
120 push @messages, { type => 'error', code => 'error_on_delete_source' };
124 { type => 'message', code => 'success_on_delete_source' };
129 elsif ( $op eq "add_sort_rule" ) {
131 $class_sort_rule ? Koha::ClassSortRules->find($class_sort_rule) : undef;
133 sort_rule => $sort_rule,
134 sort_routines => get_class_sort_routines(),
137 elsif ( $op eq "add_sort_rule_validate" ) {
138 my $sort_rule = Koha::ClassSortRules->find($class_sort_rule);
141 { description => $description, sort_routine => $sort_routine } );
142 eval { $sort_rule->store; };
145 { type => 'error', code => 'error_on_update_sort_rule' };
149 { type => 'message', code => 'success_on_update_sort_rule' };
154 $sort_rule = Koha::ClassSortRule->new(
156 class_sort_rule => $class_sort_rule,
157 description => $description,
158 sort_routine => $sort_routine,
161 eval { $sort_rule->store; };
164 { type => 'error', code => 'error_on_insert_sort_rule' };
168 { type => 'message', code => 'success_on_insert_sort_rule' };
173 elsif ( $op eq "delete_sort_rule" ) {
174 my $sort_rule = Koha::ClassSortRules->find($class_sort_rule);
175 my $deleted = eval { $sort_rule->delete };
176 if ( $@ or not $deleted ) {
178 { type => 'error', code => 'error_on_delete_sort_rule' };
182 { type => 'message', code => 'success_on_delete_sort_rule' };
186 elsif ( $op eq "add_split_rule" ) {
189 ? Koha::ClassSplitRules->find($class_split_rule)
192 split_rule => $split_rule,
193 split_routines => get_class_split_routines(),
196 elsif ( $op eq "add_split_rule_validate" ) {
197 my $split_rule = Koha::ClassSplitRules->find($class_split_rule);
199 @split_regex = grep {!/^$/} @split_regex; # Remove empty
203 description => $description,
204 split_routine => $split_routine,
208 $split_rule->regexs(\@split_regex)
209 if $split_routine eq 'RegEx';
214 { type => 'error', code => 'error_on_update_split_rule' };
218 { type => 'message', code => 'success_on_update_split_rule' };
223 $split_rule = Koha::ClassSplitRule->new(
225 class_split_rule => $class_split_rule,
226 description => $description,
227 split_routine => $split_routine,
228 regexs => \@split_regex,
231 eval { $split_rule->store; };
235 { type => 'error', code => 'error_on_insert_split_rule' };
239 { type => 'message', code => 'success_on_insert_split_rule' };
244 elsif ( $op eq "delete_split_rule" ) {
245 my $split_rule = Koha::ClassSplitRules->find($class_split_rule);
246 my $deleted = eval { $split_rule->delete };
247 if ( $@ or not $deleted ) {
249 { type => 'error', code => 'error_on_delete_split_rule' };
253 { type => 'message', code => 'success_on_delete_split_rule' };
258 if ( $op eq 'list' ) {
259 my $class_sources = Koha::ClassSources->search;
260 my $sort_rules = Koha::ClassSortRules->search;
261 my $split_rules = Koha::ClassSplitRules->search;
263 class_sources => $class_sources,
264 sort_rules => $sort_rules,
265 split_rules => $split_rules,
269 $template->param( op => $op, messages => \@messages, );
270 output_html_with_http_headers $input, $cookie, $template->output;
274 sub get_class_sort_routines {
275 my @sort_routines = GetSortRoutineNames();
276 return \@sort_routines;
279 sub get_class_split_routines {
280 my @split_routines = GetSplitRoutineNames();
281 return \@split_routines;