View | Details | Raw Unified | Return to bug 28012
Collapse All | Expand All

(-)a/serials/subscription-numberpatterns.pl (-10 / +12 lines)
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
- 

Return to bug 28012