|
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 |
- |
|
|