SL/Controller/CsvImport/Project.pm

   1 package SL::Controller::CsvImport::Project;
   2
   3 use strict;
   4
   5 use SL::Helper::Csv;
   6 use SL::DB::CustomVariable;
   7 use SL::DB::CustomVariableConfig;
   8
   9 use parent qw(SL::Controller::CsvImport::Base);
  10
  11 use Rose::Object::MakeMethods::Generic
  12 (
  13  scalar => [ qw(table) ],
  14 );
  15
  16 sub init_class {
  17   my ($self) = @_;
  18   $self->class('SL::DB::Project');
  19 }
  20
  21 sub init_all_cvar_configs {
  22   my ($self) = @_;
  23
  24   return SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'Projects' ]);
  25 }
  26
  27 sub check_objects {
  28   my ($self) = @_;
  29
  30   $self->controller->track_progress(phase => 'building data', progress => 0);
  31
  32   my $i;
  33   my $num_data = scalar @{ $self->controller->data };
  34   foreach my $entry (@{ $self->controller->data }) {
  35     $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;
  36
  37     $self->handle_cvars($entry);
  38   } continue {
  39     $i++;
  40   }
  41
  42   $self->add_cvar_raw_data_columns;
  43 }
  44
  45 sub get_duplicate_check_fields {
  46   return {
  47     projectnumber => {
  48       label     => $::locale->text('Project Number'),
  49       default   => 1,
  50       std_check => 1
  51     },
  52   };
  53 }
  54
  55 sub setup_displayable_columns {
  56   my ($self) = @_;
  57
  58   $self->SUPER::setup_displayable_columns;
  59   $self->add_cvar_columns_to_displayable_columns;
  60
  61   $self->add_displayable_columns({ name => 'projectnumber', description => $::locale->text('number') },
  62                                  { name => 'description',   description => $::locale->text('Description') },
  63                                  { name => 'active',        description => $::locale->text('Active') },
  64                                 );
  65 }
  66
  67 1;