139 |
} else { |
} else { |
140 |
print STDERR "WARNING: field '$field' doesn't have 'name' attribute!"; |
print STDERR "WARNING: field '$field' doesn't have 'name' attribute!"; |
141 |
} |
} |
142 |
|
|
143 |
if ($field_name) { |
if ($field_name) { |
144 |
|
$field_name = x($field_name); |
145 |
if (! $last_field_name) { |
if (! $last_field_name) { |
146 |
$last_field_name = x($field_name); |
$last_field_name = $field_name; |
147 |
return $last_field_name; |
return $last_field_name; |
148 |
} elsif ($field_name ne $last_field_name) { |
} elsif ($field_name ne $last_field_name) { |
149 |
$last_field_name = x($field_name); |
$last_field_name = $field_name; |
150 |
return $last_field_name; |
return $last_field_name; |
151 |
} |
} |
152 |
} |
} |
813 |
for(my $iC = $oWorksheet->{MinCol} ; defined $oWorksheet->{MaxCol} && $iC <= $oWorksheet->{MaxCol} ; $iC++) { |
for(my $iC = $oWorksheet->{MinCol} ; defined $oWorksheet->{MaxCol} && $iC <= $oWorksheet->{MaxCol} ; $iC++) { |
814 |
my $cell = $oWorksheet->{Cells}[$iR][$iC]; |
my $cell = $oWorksheet->{Cells}[$iR][$iC]; |
815 |
if ($cell) { |
if ($cell) { |
816 |
$row->{int2col($iC)} = $cell->Value; |
# this conversion is a cludge. |
817 |
|
# Files from Excell could have |
818 |
|
# characters which don't fit into |
819 |
|
# destination encoding. |
820 |
|
$row->{int2col($iC)} = $utf2cp->convert($cell->Value) || $cell->Value; |
821 |
} |
} |
822 |
} |
} |
823 |
|
|