Lines 82-87
elsif ( $op eq 'add_validate' ) {
Link Here
|
82 |
my $location = $cgi->param('location'); |
82 |
my $location = $cgi->param('location'); |
83 |
my $code = $cgi->param('code'); |
83 |
my $code = $cgi->param('code'); |
84 |
my $branchcode = $cgi->param('branchcode') || undef; |
84 |
my $branchcode = $cgi->param('branchcode') || undef; |
|
|
85 |
my $idnew = $cgi->param('idnew'); |
85 |
|
86 |
|
86 |
my @lang = $cgi->multi_param('lang'); |
87 |
my @lang = $cgi->multi_param('lang'); |
87 |
|
88 |
|
Lines 92-97
elsif ( $op eq 'add_validate' ) {
Link Here
|
92 |
my $published_on = dt_from_string( scalar $cgi->param('published_on') ); |
93 |
my $published_on = dt_from_string( scalar $cgi->param('published_on') ); |
93 |
my $number = $cgi->param('number'); |
94 |
my $number = $cgi->param('number'); |
94 |
|
95 |
|
|
|
96 |
my $original_default = $idnew ? Koha::AdditionalContents->find($idnew) : undef; |
97 |
|
95 |
my $success = 1; |
98 |
my $success = 1; |
96 |
for my $lang ( sort {$a ne 'default'} @lang ) { # Process 'default' first |
99 |
for my $lang ( sort {$a ne 'default'} @lang ) { # Process 'default' first |
97 |
my $title = $cgi->param( 'title_' . $lang ); |
100 |
my $title = $cgi->param( 'title_' . $lang ); |
Lines 100-106
elsif ( $op eq 'add_validate' ) {
Link Here
|
100 |
{ |
103 |
{ |
101 |
category => $category, |
104 |
category => $category, |
102 |
code => $code, |
105 |
code => $code, |
103 |
branchcode => $branchcode, |
106 |
branchcode => $original_default ? $original_default->branchcode : $branchcode, |
104 |
lang => $lang, |
107 |
lang => $lang, |
105 |
} |
108 |
} |
106 |
); |
109 |
); |
107 |
- |
|
|