projekt kivitendo

  return $self->render('generic/error', { layout => 0 }, label_error => "list_transactions needs a trans_id") unless $::form->{id};

  my $dbh = SL::DB->client->dbh;

  my $cv = $::form->{id};

  my ($db, $cv_type);

  if ('month' eq $::form->{mode}) {

    $date_part_select = "CONCAT(EXTRACT (MONTH FROM transdate),'/',EXTRACT (YEAR FROM transdate))";

    $group_by         = "EXTRACT (YEAR FROM transdate), EXTRACT (MONTH FROM transdate)";

  } else {

    $date_part_select = "EXTRACT (YEAR FROM transdate)";

    $group_by         = "EXTRACT (YEAR FROM transdate)";

  }

  my $query = <<SQL;