Lines 75-81
if($op && ($op eq 'cud-savenew' || $op eq 'cud-savemod')) {
Link Here
|
75 |
foreach (qw/ description unit issuesperunit unitsperissue displayorder /) { |
75 |
foreach (qw/ description unit issuesperunit unitsperissue displayorder /) { |
76 |
$frequency->{$_} = $input->param($_); |
76 |
$frequency->{$_} = $input->param($_); |
77 |
} |
77 |
} |
78 |
$frequency->{unit} = undef if $frequency->{unit} eq ''; |
78 |
$frequency->{unit} = undef if $frequency->{unit} eq ''; |
|
|
79 |
$frequency->{displayorder} = undef if $frequency->{displayorder} eq ''; |
79 |
foreach (qw/issuesperunit unitsperissue/) { |
80 |
foreach (qw/issuesperunit unitsperissue/) { |
80 |
$frequency->{$_} = 1 if $frequency->{$_} !~ /\d+/; |
81 |
$frequency->{$_} = 1 if $frequency->{$_} !~ /\d+/; |
81 |
} |
82 |
} |
82 |
- |
|
|