|
Lines 179-192
elsif ($op eq 'save') {
Link Here
|
| 179 |
my $image_select = 0; |
179 |
my $image_select = 0; |
| 180 |
my $field_enabled = 0; |
180 |
my $field_enabled = 0; |
| 181 |
CGI_PARAMS: |
181 |
CGI_PARAMS: |
| 182 |
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 |
182 |
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 |
| 183 |
if ($parameter =~ m/^field_([0-9])_(.*)$/) { |
183 |
if ($parameter =~ m/^field_([0-9])_(.*)$/) { |
| 184 |
my $field_number = $1; |
184 |
my $field_number = $1; |
| 185 |
my $field_data = $2; |
185 |
my $field_data = $2; |
| 186 |
$field_enabled = $field_number if $field_data eq 'enable'; |
186 |
$field_enabled = $field_number if $field_data eq 'enable'; |
| 187 |
next CGI_PARAMS unless $field_number == $field_enabled; |
187 |
next CGI_PARAMS unless $field_number == $field_enabled; |
| 188 |
if ($field_data eq 'text') { |
188 |
if ($field_data eq 'text') { |
| 189 |
push @$text_lines, $cgi->param($parameter); |
189 |
push @$text_lines, $cgi->multi_param($parameter); |
| 190 |
if ($array_index <= 0) { |
190 |
if ($array_index <= 0) { |
| 191 |
$array_index++; |
191 |
$array_index++; |
| 192 |
} |
192 |
} |
|
Lines 200-206
elsif ($op eq 'save') {
Link Here
|
| 200 |
} |
200 |
} |
| 201 |
elsif ($parameter =~ m/^barcode_(.*)$/) { |
201 |
elsif ($parameter =~ m/^barcode_(.*)$/) { |
| 202 |
$field_enabled = $1 if $1 eq 'print'; |
202 |
$field_enabled = $1 if $1 eq 'print'; |
| 203 |
next CGI_PARAMS unless $field_enabled eq 'print'; |
203 |
next CGI_PARAMS unless defined $field_enabled && $field_enabled eq 'print'; |
| 204 |
$layout->{'barcode'}->{$1} = $cgi->param($parameter); |
204 |
$layout->{'barcode'}->{$1} = $cgi->param($parameter); |
| 205 |
} |
205 |
} |
| 206 |
elsif ($parameter =~m/^image_([0-9])_(.*)$/) { |
206 |
elsif ($parameter =~m/^image_([0-9])_(.*)$/) { |
| 207 |
- |
|
|