Lines 58-63
if ( $op eq 'add_form' ) {
Link Here
|
58 |
my $rate = $input->param('rate'); |
58 |
my $rate = $input->param('rate'); |
59 |
my $active = $input->param('active'); |
59 |
my $active = $input->param('active'); |
60 |
my $p_sep_by_space = $input->param('p_sep_by_space'); |
60 |
my $p_sep_by_space = $input->param('p_sep_by_space'); |
|
|
61 |
my $p_cs_precedes = $input->param('p_cs_precedes'); |
61 |
my $is_a_modif = $input->param('is_a_modif'); |
62 |
my $is_a_modif = $input->param('is_a_modif'); |
62 |
|
63 |
|
63 |
if ($is_a_modif) { |
64 |
if ($is_a_modif) { |
Lines 67-72
if ( $op eq 'add_form' ) {
Link Here
|
67 |
$currency->rate($rate); |
68 |
$currency->rate($rate); |
68 |
$currency->active($active); |
69 |
$currency->active($active); |
69 |
$currency->p_sep_by_space($p_sep_by_space); |
70 |
$currency->p_sep_by_space($p_sep_by_space); |
|
|
71 |
$currency->p_cs_precedes($p_cs_precedes); |
70 |
eval { $currency->store; }; |
72 |
eval { $currency->store; }; |
71 |
if ($@) { |
73 |
if ($@) { |
72 |
push @messages, { type => 'error', code => 'error_on_update' }; |
74 |
push @messages, { type => 'error', code => 'error_on_update' }; |
Lines 81-86
if ( $op eq 'add_form' ) {
Link Here
|
81 |
rate => $rate, |
83 |
rate => $rate, |
82 |
active => $active, |
84 |
active => $active, |
83 |
p_sep_by_space => $p_sep_by_space, |
85 |
p_sep_by_space => $p_sep_by_space, |
|
|
86 |
p_cs_precedes => $p_cs_precedes, |
84 |
} |
87 |
} |
85 |
); |
88 |
); |
86 |
eval { $currency->store; }; |
89 |
eval { $currency->store; }; |