Lines 43-48
use C4::Serials::Numberpattern qw(
Link Here
|
43 |
); |
43 |
); |
44 |
use C4::Serials::Frequency qw( GetSubscriptionFrequencies ); |
44 |
use C4::Serials::Frequency qw( GetSubscriptionFrequencies ); |
45 |
|
45 |
|
|
|
46 |
my @NUMBERPATTERN_FIELDS = qw/ |
47 |
label description numberingmethod displayorder |
48 |
label1 label2 label3 add1 add2 add3 every1 every2 every3 |
49 |
setto1 setto2 setto3 whenmorethan1 whenmorethan2 whenmorethan3 |
50 |
numbering1 numbering2 numbering3 /; |
51 |
|
46 |
my $input = CGI->new; |
52 |
my $input = CGI->new; |
47 |
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { |
53 |
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { |
48 |
template_name => 'serials/subscription-numberpatterns.tt', |
54 |
template_name => 'serials/subscription-numberpatterns.tt', |
Lines 56-67
my $op = $input->param('op');
Link Here
|
56 |
if($op && $op eq 'savenew') { |
62 |
if($op && $op eq 'savenew') { |
57 |
my $label = $input->param('label'); |
63 |
my $label = $input->param('label'); |
58 |
my $numberpattern; |
64 |
my $numberpattern; |
59 |
foreach(qw/ label description numberingmethod displayorder |
65 |
foreach(@NUMBERPATTERN_FIELDS) { |
60 |
label1 label2 label3 add1 add2 add3 every1 every2 every3 |
|
|
61 |
setto1 setto2 setto3 whenmorethan1 whenmorethan2 whenmorethan3 |
62 |
numbering1 numbering2 numbering3 /) { |
63 |
$numberpattern->{$_} = $input->param($_); |
66 |
$numberpattern->{$_} = $input->param($_); |
64 |
if($numberpattern->{$_} and $numberpattern->{$_} eq '') { |
67 |
if(defined $numberpattern->{$_} and $numberpattern->{$_} eq '') { |
65 |
$numberpattern->{$_} = undef; |
68 |
$numberpattern->{$_} = undef; |
66 |
} |
69 |
} |
67 |
} |
70 |
} |
Lines 86-96
if($op && $op eq 'savenew') {
Link Here
|
86 |
} |
89 |
} |
87 |
} |
90 |
} |
88 |
if($mod_ok) { |
91 |
if($mod_ok) { |
89 |
foreach(qw/ id label description numberingmethod displayorder |
92 |
foreach(@NUMBERPATTERN_FIELDS) { |
90 |
label1 label2 label3 add1 add2 add3 every1 every2 every3 |
|
|
91 |
setto1 setto2 setto3 whenmorethan1 whenmorethan2 whenmorethan3 |
92 |
numbering1 numbering2 numbering3 /) { |
93 |
$numberpattern->{$_} = $input->param($_) || undef; |
93 |
$numberpattern->{$_} = $input->param($_) || undef; |
|
|
94 |
if(defined $numberpattern->{$_} and $numberpattern->{$_} eq '') { |
95 |
$numberpattern->{$_} = undef; |
96 |
} |
94 |
} |
97 |
} |
95 |
ModSubscriptionNumberpattern($numberpattern); |
98 |
ModSubscriptionNumberpattern($numberpattern); |
96 |
} else { |
99 |
} else { |
97 |
- |
|
|