use SL::DB::Buchungsgruppe;
use SL::DB::CsvImportProfile;
+use SL::DB::Unit;
use SL::Helper::Flash;
use SL::SessionFile;
use SL::Controller::CsvImport::Contact;
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
- import_status errors headers raw_data_headers data num_imported num_importable worker 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) ],
);
__PACKAGE__->run_before('check_auth');
$self->redirect_to(action => 'new', 'profile.type' => $self->type);
}
+sub action_download_sample {
+ my $self = shift;
+
+ $self->profile_from_form;
+ $self->setup_help;
+
+ my $file_name = 'csv_import_sample_' . $self->type . '.csv';
+ my $file = SL::SessionFile->new($file_name, mode => '>', encoding => $self->profile->get('charset'));
+ my $csv = Text::CSV_XS->new({ binary => 1, map { ( $_ => $self->profile->get($_) ) } qw(sep_char escape_char quote_char),});
+
+ $csv->print($file->fh, [ map { $_->{name} } @{ $self->displayable_columns } ]);
+ $file->fh->print("\r\n");
+ $csv->print($file->fh, [ map { $_->{description} } @{ $self->displayable_columns } ]);
+ $file->fh->print("\r\n");
+
+ $file->fh->close;
+
+ $self->send_file($file->file_name, name => $file_name);
+}
+
#
# filters
#
: $self->type eq 'parts' ? $::locale->text('CSV import: parts and services')
: die;
- $self->all_buchungsgruppen(SL::DB::Manager::Buchungsgruppe->get_all_sorted);
+ if ($self->{type} eq 'parts') {
+ $self->all_buchungsgruppen(SL::DB::Manager::Buchungsgruppe->get_all_sorted);
+ $self->all_units(SL::DB::Manager::Unit->get_all_sorted);
+ }
$self->setup_help;
my $worker = $self->create_worker($file);
$worker->run;
+
+ $self->num_imported(0);
$worker->save_objects if !$params{test};
$self->num_importable(scalar grep { !$_ } map { scalar @{ $_->{errors} } } @{ $self->data || [] });