|
Lines 174-187
elsif ($op eq 'save') {
Link Here
|
| 174 |
my $image_select = 0; |
174 |
my $image_select = 0; |
| 175 |
my $field_enabled = 0; |
175 |
my $field_enabled = 0; |
| 176 |
CGI_PARAMS: |
176 |
CGI_PARAMS: |
| 177 |
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 |
177 |
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 |
| 178 |
if ($parameter =~ m/^field_([0-9])_(.*)$/) { |
178 |
if ($parameter =~ m/^field_([0-9])_(.*)$/) { |
| 179 |
my $field_number = $1; |
179 |
my $field_number = $1; |
| 180 |
my $field_data = $2; |
180 |
my $field_data = $2; |
| 181 |
$field_enabled = $field_number if $field_data eq 'enable'; |
181 |
$field_enabled = $field_number if $field_data eq 'enable'; |
| 182 |
next CGI_PARAMS unless $field_number == $field_enabled; |
182 |
next CGI_PARAMS unless $field_number == $field_enabled; |
| 183 |
if ($field_data eq 'text') { |
183 |
if ($field_data eq 'text') { |
| 184 |
push @$text_lines, $cgi->param($parameter); |
184 |
push @$text_lines, $cgi->multi_param($parameter); |
| 185 |
if ($array_index <= 0) { |
185 |
if ($array_index <= 0) { |
| 186 |
$array_index++; |
186 |
$array_index++; |
| 187 |
} |
187 |
} |
|
Lines 195-201
elsif ($op eq 'save') {
Link Here
|
| 195 |
} |
195 |
} |
| 196 |
elsif ($parameter =~ m/^barcode_(.*)$/) { |
196 |
elsif ($parameter =~ m/^barcode_(.*)$/) { |
| 197 |
$field_enabled = $1 if $1 eq 'print'; |
197 |
$field_enabled = $1 if $1 eq 'print'; |
| 198 |
next CGI_PARAMS unless $field_enabled eq 'print'; |
198 |
next CGI_PARAMS unless defined $field_enabled && $field_enabled eq 'print'; |
| 199 |
$layout->{'barcode'}->{$1} = $cgi->param($parameter); |
199 |
$layout->{'barcode'}->{$1} = $cgi->param($parameter); |
| 200 |
} |
200 |
} |
| 201 |
elsif ($parameter =~m/^image_([0-9])_(.*)$/) { |
201 |
elsif ($parameter =~m/^image_([0-9])_(.*)$/) { |
| 202 |
- |
|
|