projekt kivitendo

use SL::DB::Helper::Filtered;

use List::MoreUtils qw(any);

__PACKAGE__->add_filter_specs(

  type => sub {

    my ($key, $value, $prefix) = @_;

    return __PACKAGE__->type_filter($value, $prefix);

  },

);

sub type_filter {

  my $class  = shift;

  my $type   = lc(shift || '');

  my $prefix = shift || '';

  # remove '_template' if needed

  my $template_type = $type;

  $template_type =~ s/_template$//;

  return ("${prefix}template_type" => $template_type) if( any {$template_type eq $_} (

      'gl_transaction',

      'ar_transaction',

      'ap_transaction',

    ));

  die "Unknown type $type";

}

sub record_type { goto &template_type; }

sub displayable_name {

  my ($self) = @_;

  return join ' ', $self->template_name_to_use, $self->mtime->to_kivitendo;

}