projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Warnung zu qw( , ) unterdrücken
[kivitendo-erp.git]
/
SL
/
Controller
/
CsvImport
/
Shipto.pm
diff --git
a/SL/Controller/CsvImport/Shipto.pm
b/SL/Controller/CsvImport/Shipto.pm
index
903c4b2
..
c20b574
100644
(file)
--- a/
SL/Controller/CsvImport/Shipto.pm
+++ b/
SL/Controller/CsvImport/Shipto.pm
@@
-19,9
+19,17
@@
sub init_class {
sub check_objects {
my ($self) = @_;
sub check_objects {
my ($self) = @_;
+ $self->controller->track_progress(phase => 'building data', progress => 0);
+
+ my $i;
+ my $num_data = scalar @{ $self->controller->data };
foreach my $entry (@{ $self->controller->data }) {
foreach my $entry (@{ $self->controller->data }) {
+ $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;
+
$self->check_vc($entry, 'trans_id');
$entry->{object}->module('CT');
$self->check_vc($entry, 'trans_id');
$entry->{object}->module('CT');
+ } continue {
+ $i++;
}
$self->add_info_columns({ header => $::locale->text('Customer/Vendor'), method => 'vc_name' });
}
$self->add_info_columns({ header => $::locale->text('Customer/Vendor'), method => 'vc_name' });
@@
-127,4
+135,4
@@
sub setup_displayable_columns {
);
}
);
}
-1;
\ No newline at end of file
+1;