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>.
28 use C4::ClassSortRoutine;
29 use C4::ClassSplitRoutine;
30 use Koha::ClassSources;
31 use Koha::ClassSortRules;
32 use Koha::ClassSplitRules;
34 my $script_name = "/cgi-bin/koha/admin/classsources.pl";
37 my $op = $input->param('op') || 'list';
38 my $cn_source = $input->param('cn_source');
39 my $class_sort_rule = $input->param('class_sort_rule');
40 my $class_split_rule = $input->param('class_split_rule');
41 my $sort_routine = $input->param('sort_routine');
42 my $split_routine = $input->param('split_routine');
43 my @split_regex = $input->multi_param('split_regex');
44 my $description = $input->param('description');
45 my $used = $input->param('used');
47 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
49 template_name => "admin/classsources.tt",
52 flagsrequired => { parameters => 'manage_classifications' },
57 $template->param( script_name => $script_name );
59 if ( $op eq "add_source" ) {
61 $cn_source ? Koha::ClassSources->find($cn_source) : undef;
63 class_source => $class_source,
64 sort_rules => scalar Koha::ClassSortRules->search,
65 split_rules => scalar Koha::ClassSplitRules->search,
68 elsif ( $op eq "add_source_validate" ) {
69 my $class_source = Koha::ClassSources->find($cn_source);
73 description => $description,
74 used => ( $used eq 'used' ? 1 : 0 ),
75 class_sort_rule => $class_sort_rule,
76 class_split_rule => $class_split_rule,
79 eval { $class_source->store; };
82 { type => 'error', code => 'error_on_update_source' };
86 { type => 'message', code => 'success_on_update_source' };
91 $class_source = Koha::ClassSource->new(
93 cn_source => $cn_source,
94 description => $description,
95 used => ( $used eq 'used' ? 1 : 0 ),
96 class_sort_rule => $class_sort_rule,
97 class_split_rule => $class_split_rule,
100 eval { $class_source->store; };
103 { type => 'error', code => 'error_on_insert_source' };
107 { type => 'message', code => 'success_on_insert_source' };
113 elsif ( $op eq "delete_source_confirmed" ) {
114 my $class_source = Koha::ClassSources->find($cn_source);
115 my $deleted = eval { $class_source->delete };
116 if ( $@ or not $deleted ) {
117 push @messages, { type => 'error', code => 'error_on_delete_source' };
121 { type => 'message', code => 'success_on_delete_source' };
126 elsif ( $op eq "add_sort_rule" ) {
128 $class_sort_rule ? Koha::ClassSortRules->find($class_sort_rule) : undef;
130 sort_rule => $sort_rule,
131 sort_routines => get_class_sort_routines(),
134 elsif ( $op eq "add_sort_rule_validate" ) {
135 my $sort_rule = Koha::ClassSortRules->find($class_sort_rule);
138 { description => $description, sort_routine => $sort_routine } );
139 eval { $sort_rule->store; };
142 { type => 'error', code => 'error_on_update_sort_rule' };
146 { type => 'message', code => 'success_on_update_sort_rule' };
151 $sort_rule = Koha::ClassSortRule->new(
153 class_sort_rule => $class_sort_rule,
154 description => $description,
155 sort_routine => $sort_routine,
158 eval { $sort_rule->store; };
161 { type => 'error', code => 'error_on_insert_sort_rule' };
165 { type => 'message', code => 'success_on_insert_sort_rule' };
170 elsif ( $op eq "delete_sort_rule" ) {
171 my $sort_rule = Koha::ClassSortRules->find($class_sort_rule);
172 my $deleted = eval { $sort_rule->delete };
173 if ( $@ or not $deleted ) {
175 { type => 'error', code => 'error_on_delete_sort_rule' };
179 { type => 'message', code => 'success_on_delete_sort_rule' };
183 elsif ( $op eq "add_split_rule" ) {
186 ? Koha::ClassSplitRules->find($class_split_rule)
189 split_rule => $split_rule,
190 split_routines => get_class_split_routines(),
193 elsif ( $op eq "add_split_rule_validate" ) {
194 my $split_rule = Koha::ClassSplitRules->find($class_split_rule);
196 @split_regex = grep {!/^$/} @split_regex; # Remove empty
200 description => $description,
201 split_routine => $split_routine,
205 $split_rule->regexs(\@split_regex)
206 if $split_routine eq 'RegEx';
211 { type => 'error', code => 'error_on_update_split_rule' };
215 { type => 'message', code => 'success_on_update_split_rule' };
220 $split_rule = Koha::ClassSplitRule->new(
222 class_split_rule => $class_split_rule,
223 description => $description,
224 split_routine => $split_routine,
225 regexs => \@split_regex,
228 eval { $split_rule->store; };
232 { type => 'error', code => 'error_on_insert_split_rule' };
236 { type => 'message', code => 'success_on_insert_split_rule' };
241 elsif ( $op eq "delete_split_rule" ) {
242 my $split_rule = Koha::ClassSplitRules->find($class_split_rule);
243 my $deleted = eval { $split_rule->delete };
244 if ( $@ or not $deleted ) {
246 { type => 'error', code => 'error_on_delete_split_rule' };
250 { type => 'message', code => 'success_on_delete_split_rule' };
255 if ( $op eq 'list' ) {
256 my $class_sources = Koha::ClassSources->search;
257 my $sort_rules = Koha::ClassSortRules->search;
258 my $split_rules = Koha::ClassSplitRules->search;
260 class_sources => $class_sources,
261 sort_rules => $sort_rules,
262 split_rules => $split_rules,
266 $template->param( op => $op, messages => \@messages, );
267 output_html_with_http_headers $input, $cookie, $template->output;
271 sub get_class_sort_routines {
272 my @sort_routines = GetSortRoutineNames();
273 return \@sort_routines;
276 sub get_class_split_routines {
277 my @split_routines = GetSplitRoutineNames();
278 return \@split_routines;