Revision 1feb4280
Von Bernd Bleßmann vor etwa 11 Jahren hinzugefügt
| SL/Controller/CsvImport/BaseMulti.pm | ||
|---|---|---|
| 5 | 5 |
use List::MoreUtils qw(pairwise); |
| 6 | 6 |
|
| 7 | 7 |
use SL::Helper::Csv; |
| 8 |
use SL::DB::Customer; |
|
| 9 |
use SL::DB::Language; |
|
| 10 |
use SL::DB::PaymentTerm; |
|
| 11 |
use SL::DB::Vendor; |
|
| 12 |
use SL::DB::Contact; |
|
| 13 | 8 |
|
| 14 | 9 |
use parent qw(SL::Controller::CsvImport::Base); |
| 15 | 10 |
|
| ... | ... | |
| 76 | 71 |
$self->controller->info_headers($info_headers); |
| 77 | 72 |
|
| 78 | 73 |
my @objects = $self->csv->get_objects; |
| 74 |
|
|
| 79 | 75 |
$self->controller->track_progress(progress => 70); |
| 80 | 76 |
|
| 81 | 77 |
my @raw_data = @{ $self->csv->get_data };
|
| ... | ... | |
| 133 | 129 |
} |
| 134 | 130 |
} |
| 135 | 131 |
|
| 136 |
sub add_cvar_raw_data_columns {
|
|
| 137 |
my ($self) = @_; |
|
| 138 |
|
|
| 139 |
map { $self->add_raw_data_columns($_) if exists $self->controller->data->[0]->{raw_data}->{$_} } @{ $self->cvar_columns };
|
|
| 140 |
} |
|
| 141 |
|
|
| 142 | 132 |
sub init_profile {
|
| 143 | 133 |
my ($self) = @_; |
| 144 | 134 |
|
| ... | ... | |
| 201 | 191 |
} |
| 202 | 192 |
} |
| 203 | 193 |
|
| 204 |
sub add_cvar_columns_to_displayable_columns {
|
|
| 205 |
my ($self) = @_; |
|
| 206 |
|
|
| 207 |
$self->add_displayable_columns(map { { name => 'cvar_' . $_->name,
|
|
| 208 |
description => $::locale->text('#1 (custom variable)', $_->description) } }
|
|
| 209 |
@{ $self->all_cvar_configs });
|
|
| 210 |
} |
|
| 211 |
|
|
| 212 |
sub init_existing_objects {
|
|
| 213 |
my ($self) = @_; |
|
| 214 |
|
|
| 215 |
eval "require " . $self->class; |
|
| 216 |
$self->existing_objects($self->manager_class->get_all); |
|
| 217 |
} |
|
| 218 |
|
|
| 219 |
sub init_class {
|
|
| 220 |
die "class not set"; |
|
| 221 |
} |
|
| 222 |
|
|
| 223 |
sub init_manager_class {
|
|
| 224 |
my ($self) = @_; |
|
| 225 |
|
|
| 226 |
$self->class =~ m/^SL::DB::(.+)/; |
|
| 227 |
$self->manager_class("SL::DB::Manager::" . $1);
|
|
| 228 |
} |
|
| 229 |
|
|
| 230 | 194 |
sub is_multiplexed { 1 }
|
| 231 | 195 |
|
| 232 | 196 |
1; |
Auch abrufbar als: Unified diff
Unveränderte Methoden nicht auch in abgeleiteter Klasse definieren.