3 # Copyright 2011-2013 Biblibre SARL
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>.
22 subscription-numberpatterns.pl
26 Manage numbering patterns
35 use C4
::Serials
::Numberpattern
;
36 use C4
::Serials
::Frequency
;
39 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user
( {
40 template_name
=> 'serials/subscription-numberpatterns.tt',
43 flagsrequired
=> { 'serials' => 1 }
46 my $op = $input->param('op');
48 if($op && $op eq 'savenew') {
49 my $label = $input->param('label');
51 foreach(qw
/ label description numberingmethod displayorder
52 label1 label2 label3 add1 add2 add3 every1 every2 every3
53 setto1 setto2 setto3 whenmorethan1 whenmorethan2 whenmorethan3
54 numbering1 numbering2 numbering3
/) {
55 $numberpattern->{$_} = $input->param($_);
56 if($numberpattern->{$_} and $numberpattern->{$_} eq '') {
57 $numberpattern->{$_} = undef;
60 my $numberpattern2 = GetSubscriptionNumberpatternByName
($label);
62 if(!defined $numberpattern2) {
63 AddSubscriptionNumberpattern
($numberpattern);
66 $template->param(error_existing_numberpattern
=> 1);
67 $template->param(%$numberpattern);
69 } elsif ($op && $op eq 'savemod') {
70 my $id = $input->param('id');
71 my $label = $input->param('label');
72 my $numberpattern = GetSubscriptionNumberpattern
($id);
74 if($numberpattern->{'label'} ne $label) {
75 my $numberpattern2 = GetSubscriptionNumberpatternByName
($label);
76 if(defined $numberpattern2 && $id != $numberpattern2->{'id'}) {
81 foreach(qw
/ id label description numberingmethod displayorder
82 label1 label2 label3 add1 add2 add3 every1 every2 every3
83 setto1 setto2 setto3 whenmorethan1 whenmorethan2 whenmorethan3
84 numbering1 numbering2 numbering3
/) {
85 $numberpattern->{$_} = $input->param($_) || undef;
87 ModSubscriptionNumberpattern
($numberpattern);
90 $template->param(error_existing_numberpattern
=> 1);
94 if($op && ($op eq 'new' || $op eq 'modify')) {
96 my $id = $input->param('id');
98 my $numberpattern = GetSubscriptionNumberpattern
($id);
99 $template->param(%$numberpattern);
104 my @frequencies = GetSubscriptionFrequencies
();
106 push @subtypes, { value
=> $_ } for (qw
/ issues weeks months /);
108 my $languages = [ map {
110 language
=> $_->{iso639_2_code
},
111 description
=> $_->{language_description
} || $_->{language
}
113 } @
{ C4
::Languages
::getAllLanguages
() } ];
117 frequencies_loop
=> \
@frequencies,
118 subtypes_loop
=> \
@subtypes,
119 locales
=> $languages,
121 output_html_with_http_headers
$input, $cookie, $template->output;
125 if($op && $op eq 'del') {
126 my $id = $input->param('id');
128 my $confirm = $input->param('confirm');
130 DelSubscriptionNumberpattern
($id);
132 my @subs = GetSubscriptionsWithNumberpattern
($id);
137 subscriptions
=> \
@subs
140 DelSubscriptionNumberpattern
($id);
146 my @numberpatterns_loop = GetSubscriptionNumberpatterns
();
149 numberpatterns_loop
=> \
@numberpatterns_loop,
152 output_html_with_http_headers
$input, $cookie, $template->output;