my %vcs_by_number = map { ( $_->$numbercolumn => $_ ) } @{ $self->existing_objects };
my $methods = $self->controller->headers->{methods};
my %vcs_by_number = map { ( $_->$numbercolumn => $_ ) } @{ $self->existing_objects };
my $methods = $self->controller->headers->{methods};
my $num_data = scalar @{ $self->controller->data };
foreach my $entry (@{ $self->controller->data }) {
$self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;
my $num_data = scalar @{ $self->controller->data };
foreach my $entry (@{ $self->controller->data }) {
$self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;
$self->check_taxzone($entry, take_default => 1);
$self->check_currency($entry, take_default => 1);
$self->check_salesman($entry);
$self->check_taxzone($entry, take_default => 1);
$self->check_currency($entry, take_default => 1);
$self->check_salesman($entry);
push @{ $entry->{information} }, $::locale->text('Illegal characters have been removed from the following fields: #1', join(', ', @cleaned_fields))
if @cleaned_fields;
push @{ $entry->{information} }, $::locale->text('Illegal characters have been removed from the following fields: #1', join(', ', @cleaned_fields))
if @cleaned_fields;
push @{ $entry->{information} }, $::locale->text('Updating existing entry in database');
} else {
$object->$numbercolumn('####');
}
push @{ $entry->{information} }, $::locale->text('Updating existing entry in database');
} else {
$object->$numbercolumn('####');
}
my ($self, %params) = @_;
my $numbercolumn = $self->table . 'number';
my ($self, %params) = @_;
my $numbercolumn = $self->table . 'number';
- my $with_number = [ grep { $_->{object}->$numbercolumn ne '####' } @{ $self->controller->data } ];
- my $without_number = [ grep { $_->{object}->$numbercolumn eq '####' } @{ $self->controller->data } ];
+ my $with_number = [ grep { ($_->{object}->$numbercolumn || '') ne '####' } @{ $self->controller->data } ];
+ my $without_number = [ grep { ($_->{object}->$numbercolumn || '') eq '####' } @{ $self->controller->data } ];