SL/Controller/Gdpdu.pm

   1 package SL::Controller::Gdpdu;
   2
   3 # TODO:
   4 #  - depending exclusive checkboses via javascript
   5
   6 use strict;
   7
   8 use parent qw(SL::Controller::Base);
   9
  10 use SL::GDPDU;
  11 use SL::Locale::String qw(t8);
  12 use SL::Helper::Flash;
  13
  14 use Rose::Object::MakeMethods::Generic (
  15   'scalar --get_set_init' => [ qw(from to) ],
  16 );
  17
  18 __PACKAGE__->run_before('check_auth');
  19
  20 sub action_filter {
  21   my ($self) = @_;
  22
  23   $self->from(DateTime->today->add(years => -1)->add(days => 1)) if !$self->from;
  24   $self->to(DateTime->today)                                     if !$self->to;
  25
  26   $self->render('gdpdu/filter', title => t8('GDPDU Export'));
  27 }
  28
  29 sub action_export {
  30   my ($self) = @_;
  31
  32   if (!$self->check_inputs) {
  33     $self->action_filter;
  34     return;
  35   }
  36
  37   my $gdpdu = SL::GDPDU->new(
  38     company    => $::instance_conf->get_company,
  39     location   => $::instance_conf->get_address,
  40     from       => $self->from,
  41     to         => $self->to,
  42     all_tables => $::form->{all_tables},
  43   );
  44
  45   my $filename = $gdpdu->generate_export;
  46
  47   $self->send_file($filename, name => t8('gdpdu-#1-#2.zip', $self->from->ymd, $self->to->ymd), unlink => 1);
  48 }
  49
  50 #--- other stuff
  51
  52 sub check_auth { $::auth->assert('report') }
  53
  54 sub check_inputs {
  55   my ($self) = @_;
  56
  57   my $error = 0;
  58
  59   if (!$::form->{from}) {
  60     my $epoch = DateTime->new(day => 1, month => 1, year => 1900);
  61     flash('info', t8('No start date given, setting to #1', $epoch->to_kivitendo));
  62     $self->from($epoch);
  63   }
  64
  65   if (!$::form->{to}) {
  66     flash('info', t8('No end date given, setting to today'));
  67     $self->to(DateTime->today);
  68   }
  69
  70   !$error;
  71 }
  72
  73 sub init_from { DateTime->from_kivitendo($::form->{from}) }
  74 sub init_to { DateTime->from_kivitendo($::form->{to}) }
  75
  76 1;