projekt kivitendo

  my $profile = $self->profile;

  $self->csv(SL::Helper::Csv->new(file                   => $self->file->file_name,

                                  encoding               => $self->controller->profile->get('charset'),

                                  ignore_unknown_columns => 1,

                                  strict_profile         => 1,

                                  case_insensitive_header => 1,

use Params::Validate qw(:all);

use Text::CSV_XS;

use Rose::Object::MakeMethods::Generic scalar => [ qw(

  numberformat dateformat ignore_unknown_columns strict_profile _io _csv

  _objects _parsed _data _errors all_cvar_configs case_insensitive_header

) ];

    profile                => { type    => HASHREF,  optional => 1 },

    file                   => 1,

    encoding               => 0,

    numberformat           => 0,

    dateformat             => 0,

    ignore_unknown_columns => 0,

sub get_objects {

  my ($self, %params) = @_;

  croak 'must parse first' unless $self->_parsed;

  $self->_make_objects unless $self->_objects;

  my ($self, %params) = @_;

  my @objs;

  local $::myconfig{numberformat} = $self->numberformat if $self->numberformat;

  local $::myconfig{dateformat}   = $self->dateformat   if $self->dateformat;

  for my $line (@{ $self->_data }) {

    push @objs, $tmp_obj;

  }

    quote_char  => '\'',    # default '"'

    escape_char => '"',     # default '"'

    header      => [qw(id text sellprice word)], # see later

  );

  my $status  = $csv->parse;

Can be an array of columns, in this case the first line is not used as a

header. Empty header fields will be ignored in objects.

In this case C<listprice_as_number> will be used to read in values from the

C<listprice> column.

In case of a One-To-One relationsship these can also be set over

relationsships by sparating the steps with a dot (C<.>). This will work:

And will result in something like this:

will have to do that for yourself. Since you provided the profile, it is

assumed you know what to do in this case.

and the return value used instead of the line itself.

=item C<ignore_unknown_columns>

Dispatch to child objects, like this:

 $csv = SL::Helper::Csv->new(

 );

=head1 AUTHOR

}

sub dispatch {

  for my $spec (@{ $self->_specs }) {

    $self->apply($obj, $spec, $line->{$spec->{key}});

  }

}

sub apply {

  my ($self, %params) = @_;

  my $header  = $self->_csv->header;

  my @specs;

  for my $col (@$header) {

  return unless $path;

  return unless $cur_class;

Support::TestSetup::login();

my $csv = SL::Helper::Csv->new(

);

isa_ok $csv->_csv, 'Text::CSV_XS';

$::myconfig{dateformat} = 'dd.mm.yyyy';

$csv = SL::Helper::Csv->new(

);

$csv->parse;

EOL

  sep_char => ',',

  quote_char => "'",

);

$csv->parse;

is scalar @{ $csv->get_objects }, 1, 'auto header works';

;;description;sellprice;lastcost_as_number;

#####;Puppy;Kaffee;0.12;12,2;1,5234

EOL

);

$csv->parse;

is scalar @{ $csv->get_objects }, 1, 'bozo header doesn\'t blow things up';

Kaffee;;0.12;12,2;1,5234

Beer;1123245;0.12;12,2;1,5234

EOL

);

$csv->parse;

is scalar @{ $csv->get_objects }, 2, 'multiple objects work';

Beer;1123245;0.12;1.5234

EOL

  numberformat => '1,000.00',

);

$csv->parse;

is $csv->get_objects->[0]->lastcost, '1221.52', 'formatnumber';

Beer;1123245;0.12;1.5234

EOL

  numberformat => '1,000.00',

);

is $csv->parse, undef, 'broken csv header won\'t get parsed';

Beer;1123245;0.12;1.5234

EOL

  numberformat => '1,000.00',

);

is $csv->parse, undef, 'broken csv content won\'t get parsed';

is_deeply $csv->errors, [ '"Kaf"fee";;0.12;1,221.52'."\n", 2023, 'EIQ - QUO character not allowed', 5, 2 ], 'error';

EOL

  numberformat => '1,000.00',

  ignore_unknown_columns => 1,

);

$csv->parse;

is $csv->get_objects->[0]->lastcost, '1221.52', 'ignore_unkown_columns works';

Beer;1123245;0.12;1.5234;16 %

EOL

  numberformat => '1,000.00',

  profile => {

  }

);

$csv->parse;

Beer;1123245;0.12;1.5234;

EOL

  numberformat => '1,000.00',

  profile => {

);

$csv->parse;

my @mm = $csv->get_objects->[0]->makemodel;

 Kaffee;;0.12;1,221.52;213;Chair 0815;523;Table 15

EOL

  numberformat => '1,000.00',

  profile => {

  }

);

$csv->parse;

description;partnumber;sellprice;lastcost_as_number;buchungsgruppe;

EOL

  numberformat => '1,000.00',

  profile => {

  }

);

is $csv->parse, undef, 'wrong profile gets rejected';

  numberformat => '1,000.00',

  ignore_unknown_columns => 1,

  strict_profile => 1,

  profile => {

  }

);

$csv->parse;

EOL

  numberformat => '1,000.00',

  strict_profile => 1,

  profile => {

  }

);

$csv->parse;

$csv = SL::Helper::Csv->new(

  file   => \"Kaffee",

  header => [ 'description' ],

);

$csv->parse;

is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'eol bug at the end of files';

$csv = SL::Helper::Csv->new(

  file   => \"Description\nKaffee",

  case_insensitive_header => 1,

);

$csv->parse;

is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive header from csv works';

$csv = SL::Helper::Csv->new(

  file   => \"Kaffee",

  header => [ 'Description' ],

  case_insensitive_header => 1,

);

$csv->parse;

is_deeply $csv->get_data, [ { description => 'Kaffee' } ], 'case insensitive header as param works';

$csv = SL::Helper::Csv->new(

  file   => \"\x{EF}\x{BB}\x{BF}description\nKaffee",

  encoding => 'utf8',

);

$csv->parse;

is_deeply $csv->get_data, [ { cvar_Groundhog => 'Phil' } ], 'using empty path to get cvars working';

ok $csv->get_objects->[0], '...and not destorying the objects';

# vim: ft=perl