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);