projekt kivitendo

package SL::Helper::Csv::Consistency;

use strict;

use SL::DB::Default;

use SL::DB::Currency;

use SL::Helper::Csv::Error;

#

# public functions

#

sub check_currency {

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

  my $object = $entry->{object};

  # Check whether or not currency ID is valid.

  if ($object->currency_id && !$self->_currencies_by->{id}->{ $object->currency_id }) {

    push @{ $entry->{errors} }, $::locale->text('Error: Invalid currency');

    return 0;

  }

  # Map name to ID if given.

  if (!$object->currency_id && $entry->{raw_data}->{currency}) {

    my $currency = $self->_currencies_by->{name}->{  $entry->{raw_data}->{currency} };

    if (!$currency) {

      push @{ $entry->{errors} }, $::locale->text('Error: Invalid currency');

      return 0;

    }

    $object->currency_id($currency->id);

  }

  # Set default currency if none was given and take_default is true.

  $object->currency_id($self->_default_currency_id) if !$object->currency_id and $params{take_default};

  $entry->{raw_data}->{currency_id} = $object->currency_id;

  return 1;

}

#

# private functions

#

sub _currencies_by {

  my ($self) = @_;

  return { map { my $col = $_; ( $col => { map { ( $_->$col => $_ ) } @{ $self->_all_currencies } } ) } qw(id name) };

}

sub _all_currencies {

  my ($self) = @_;

  return SL::DB::Manager::Currency->get_all;

}

sub _default_currency_id {

  my ($self) = @_;

  return SL::DB::Default->get->currency_id;

}

1;