|
Lines 176-189
elsif ($op eq 'save') {
Link Here
|
| 176 |
my $image_select = 0; |
176 |
my $image_select = 0; |
| 177 |
my $field_enabled = 0; |
177 |
my $field_enabled = 0; |
| 178 |
CGI_PARAMS: |
178 |
CGI_PARAMS: |
| 179 |
foreach my $parameter ($cgi->param()) { # parse the field values and build a hash of the layout for conversion to xml and storage in the db |
179 |
foreach my $parameter ($cgi->multi_param()) { # parse the field values and build a hash of the layout for conversion to xml and storage in the db |
| 180 |
if ($parameter =~ m/^field_([0-9])_(.*)$/) { |
180 |
if ($parameter =~ m/^field_([0-9])_(.*)$/) { |
| 181 |
my $field_number = $1; |
181 |
my $field_number = $1; |
| 182 |
my $field_data = $2; |
182 |
my $field_data = $2; |
| 183 |
$field_enabled = $field_number if $field_data eq 'enable'; |
183 |
$field_enabled = $field_number if $field_data eq 'enable'; |
| 184 |
next CGI_PARAMS unless $field_number == $field_enabled; |
184 |
next CGI_PARAMS unless $field_number == $field_enabled; |
| 185 |
if ($field_data eq 'text') { |
185 |
if ($field_data eq 'text') { |
| 186 |
push @$text_lines, $cgi->param($parameter); |
186 |
push @$text_lines, $cgi->multi_param($parameter); |
| 187 |
if ($array_index <= 0) { |
187 |
if ($array_index <= 0) { |
| 188 |
$array_index++; |
188 |
$array_index++; |
| 189 |
} |
189 |
} |
|
Lines 197-203
elsif ($op eq 'save') {
Link Here
|
| 197 |
} |
197 |
} |
| 198 |
elsif ($parameter =~ m/^barcode_(.*)$/) { |
198 |
elsif ($parameter =~ m/^barcode_(.*)$/) { |
| 199 |
$field_enabled = $1 if $1 eq 'print'; |
199 |
$field_enabled = $1 if $1 eq 'print'; |
| 200 |
next CGI_PARAMS unless $field_enabled eq 'print'; |
200 |
next CGI_PARAMS unless defined $field_enabled && $field_enabled eq 'print'; |
| 201 |
$layout->{'barcode'}->{$1} = $cgi->param($parameter); |
201 |
$layout->{'barcode'}->{$1} = $cgi->param($parameter); |
| 202 |
} |
202 |
} |
| 203 |
elsif ($parameter =~m/^image_([0-9])_(.*)$/) { |
203 |
elsif ($parameter =~m/^image_([0-9])_(.*)$/) { |
| 204 |
- |
|
|