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 set_profile_defaults {
  22 };
  23
  24 sub init_all_cvar_configs {
  25   my ($self) = @_;
  26
  27   return SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'Projects' ]);
  28 }
  29
  30 sub check_objects {
  31   my ($self) = @_;
  32
  33   $self->controller->track_progress(phase => 'building data', progress => 0);
  34
  35   my $i;
  36   my $num_data = scalar @{ $self->controller->data };
  37   foreach my $entry (@{ $self->controller->data }) {
  38     $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;
  39
  40     $self->handle_cvars($entry);
  41   } continue {
  42     $i++;
  43   }
  44
  45   $self->add_cvar_raw_data_columns;
  46 }
  47
  48 sub get_duplicate_check_fields {
  49   return {
  50     projectnumber => {
  51       label     => $::locale->text('Project Number'),
  52       default   => 1,
  53       std_check => 1
  54     },
  55   };
  56 }
  57
  58 sub setup_displayable_columns {
  59   my ($self) = @_;
  60
  61   $self->SUPER::setup_displayable_columns;
  62   $self->add_cvar_columns_to_displayable_columns;
  63
  64   $self->add_displayable_columns({ name => 'projectnumber', description => $::locale->text('number') },
  65                                  { name => 'description',   description => $::locale->text('Description') },
  66                                  { name => 'active',        description => $::locale->text('Active') },
  67                                 );
  68 }
  69
  70 1;