Revision d161c66c
Von Bernd Bleßmann vor etwa 11 Jahren hinzugefügt
| SL/Controller/CsvImport/Order.pm | ||
|---|---|---|
| 398 | 398 |
} |
| 399 | 399 |
|
| 400 | 400 |
# If order has errors set error for orderitems as well |
| 401 |
my $order_entry;
|
|
| 401 |
$order_entry = undef;
|
|
| 402 | 402 |
foreach my $entry (@{ $self->controller->data }) {
|
| 403 | 403 |
# Search first order |
| 404 | 404 |
if ($entry->{raw_data}->{datatype} eq $self->settings->{'order_column'}) {
|
| SL/Helper/Csv.pm | ||
|---|---|---|
| 229 | 229 |
|
| 230 | 230 |
# initialize lookup hash if not already done |
| 231 | 231 |
if ($self->is_multiplexed && ! defined $self->_row_header ) {
|
| 232 |
$self->_row_header({ pairwise { $a->{row_ident} => $b } @{ $self->profile }, @{ $self->header } });
|
|
| 232 |
$self->_row_header({ pairwise { no warnings 'once'; $a->{row_ident} => $b } @{ $self->profile }, @{ $self->header } });
|
|
| 233 | 233 |
} |
| 234 | 234 |
|
| 235 | 235 |
if ($self->is_multiplexed) {
|
| SL/Helper/Csv/Dispatcher.pm | ||
|---|---|---|
| 59 | 59 |
|
| 60 | 60 |
# initialize lookup hash if not already done |
| 61 | 61 |
if ($self->_csv->is_multiplexed && ! defined $self->_row_spec ) {
|
| 62 |
$self->_row_spec({ pairwise { $a->{row_ident} => $b } @{ $self->_csv->profile }, @{ $self->_specs } });
|
|
| 62 |
$self->_row_spec({ pairwise { no warnings 'once'; $a->{row_ident} => $b } @{ $self->_csv->profile }, @{ $self->_specs } });
|
|
| 63 | 63 |
} |
| 64 | 64 |
|
| 65 | 65 |
if ($self->_csv->is_multiplexed) {
|
Auch abrufbar als: Unified diff
Warnungen gefixt.