projekt kivitendo

use SL::DB::Helper::Paginated ();

use List::Util qw(min);

  my $report_id = $params{report_id} || $::form->{id};

  $self->{report}      = SL::DB::Manager::CsvImportReport->find_by(id => $report_id);

  my $num_rows         = SL::DB::Manager::CsvImportReportRow->get_all_count(query => [ csv_import_report_id => $report_id ]);

  my $num_cols         = SL::DB::Manager::CsvImportReportRow->get_all_count(query => [ csv_import_report_id => $report_id, row => 0 ]);

  # manual paginating, yuck

  my $page = $::form->{page} || 1;

  my $pages = {};

  $pages->{per_page}        = $::form->{per_page} || 20;

  $pages->{max}             = SL::DB::Helper::Paginated::ceil($num_rows / ($num_cols || 1), $pages->{per_page}) || 1;

  $pages->{cur}             = $page < 1 ? 1

                            : $page > $pages->{max} ? $pages->{max}

                            : $page;

  $pages->{common}          = SL::DB::Helper::Paginated::make_common_pages($pages->{cur}, $pages->{max});

  $self->{display_rows} = [

    0,

    $pages->{per_page} * ($pages->{cur}-1) + 1

      ..

    min($pages->{per_page} * $pages->{cur}, $num_rows / ($num_cols || 1) - 1)

  ];

  my @query = (

    csv_import_report_id => $report_id,

    or => [

      row => 0,

      and => [

        row => { gt => $pages->{per_page} * ($pages->{cur}-1) },

        row => { le => $pages->{per_page} * $pages->{cur} },

      ]

    ]

  );

  my $rows             = SL::DB::Manager::CsvImportReportRow->get_all(query => \@query);

  my $status           = SL::DB::Manager::CsvImportReportStatus->get_all(query => \@query);

  $self->{report_rows}   = $self->{report}->folded_rows(rows => $rows);

  $self->{report_status} = $self->{report}->folded_status(status => $status);

  $self->{pages} = $pages;

  my $base_url = $self->url_for(action => 'report', id => $report_id);

  $self->render('csv_import/report', { no_layout => $params{no_layout} }, base_url => $base_url);

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

  my $folded_rows = {};

  for my $row_obj (@{ $params{rows} || $self->rows }) {

    $folded_rows->{ $row_obj->row } ||= [];

    $folded_rows->{ $row_obj->row }[ $row_obj->col ] = $row_obj->value;

  }

  $folded_rows;

sub folded_status {

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

  my $folded_status = {};

  for my $status_obj (@{ $params{status} || $self->status }) {

    $folded_status->{ $status_obj->row } ||= {};

    $folded_status->{ $status_obj->row }{information} ||= [];

    $folded_status->{ $status_obj->row }{errors} ||= [];

    push @{ $folded_status->{ $status_obj->row }{ $status_obj->type } }, $status_obj->value;

  $folded_status;

[%- FOREACH rownum = SELF.display_rows %]

  [%- FOREACH value = SELF.report_rows.${rownum} %]

  [% csv_import_report_errors = SELF.report_status.${rownum}.errors %]

  [%- FOREACH value = SELF.report_rows.${rownum} %]

    [%- FOREACH info  = SELF.report_status.${rownum}.information %][% IF !loop.first || csv_import_report_errors.size %]<br>[%- END %][%- info | html %][%- END %]

[%- PROCESS 'common/paginate.html' pages=SELF.pages %]