Revision 80e68986
Von Thomas Heck vor mehr als 12 Jahren hinzugefügt
| SL/Controller/CsvImport.pm | ||
|---|---|---|
|
|
||
|
use Rose::Object::MakeMethods::Generic
|
||
|
(
|
||
|
scalar => [ qw(type profile file all_profiles all_charsets sep_char all_sep_chars quote_char all_quote_chars escape_char all_escape_chars all_buchungsgruppen all_units
|
||
|
import_status errors headers raw_data_headers info_headers data num_imported num_importable displayable_columns) ],
|
||
|
scalar => [ qw(type profile file all_profiles all_charsets sep_char all_sep_chars quote_char all_quote_chars escape_char all_escape_chars all_buchungsgruppen all_units
|
||
|
import_status errors headers raw_data_headers info_headers data num_imported num_importable displayable_columns file) ],
|
||
|
'scalar --get_set_init' => [ qw(worker) ]
|
||
|
);
|
||
|
|
||
|
__PACKAGE__->run_before('check_auth');
|
||
| ... | ... | |
|
return $self->action_new;
|
||
|
}
|
||
|
|
||
|
my $worker = $self->create_worker($file);
|
||
|
$self->file($file);
|
||
|
|
||
|
my $worker = $self->worker();
|
||
|
|
||
|
$worker->run;
|
||
|
|
||
|
$self->num_imported(0);
|
||
| ... | ... | |
|
return "csv-import-" . $self->type . ".csv";
|
||
|
}
|
||
|
|
||
|
sub create_worker {
|
||
|
my ($self, $file) = @_;
|
||
|
sub init_worker {
|
||
|
my $self = shift;
|
||
|
|
||
|
my @args = (controller => $self);
|
||
|
|
||
|
if ( $self->file() ) {
|
||
|
push(@args, file => $self->file());
|
||
|
}
|
||
|
|
||
|
return $self->{type} eq 'customers_vendors' ? SL::Controller::CsvImport::CustomerVendor->new(controller => $self, file => $file)
|
||
|
: $self->{type} eq 'contacts' ? SL::Controller::CsvImport::Contact->new( controller => $self, file => $file)
|
||
|
: $self->{type} eq 'addresses' ? SL::Controller::CsvImport::Shipto->new( controller => $self, file => $file)
|
||
|
: $self->{type} eq 'parts' ? SL::Controller::CsvImport::Part->new( controller => $self, file => $file)
|
||
|
: $self->{type} eq 'projects' ? SL::Controller::CsvImport::Project->new( controller => $self, file => $file)
|
||
|
return $self->{type} eq 'customers_vendors' ? SL::Controller::CsvImport::CustomerVendor->new(@args)
|
||
|
: $self->{type} eq 'contacts' ? SL::Controller::CsvImport::Contact->new(@args)
|
||
|
: $self->{type} eq 'addresses' ? SL::Controller::CsvImport::Shipto->new(@args)
|
||
|
: $self->{type} eq 'parts' ? SL::Controller::CsvImport::Part->new(@args)
|
||
|
: $self->{type} eq 'projects' ? SL::Controller::CsvImport::Project->new(@args)
|
||
|
: die "Program logic error";
|
||
|
}
|
||
|
|
||
|
sub setup_help {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
$self->create_worker->setup_displayable_columns;
|
||
|
$self->worker->setup_displayable_columns;
|
||
|
}
|
||
|
|
||
|
|
||
Auch abrufbar als: Unified diff
Controller/CsvImport: file und worker verfügbar machen