marei: headline/colspec keys for SimpleTabular
[kivitendo-erp.git] / SL / DB / CustomDataExportQueryParameter.pm
1 package SL::DB::CustomDataExportQueryParameter;
2
3 use strict;
4
5 use SL::DB::MetaSetup::CustomDataExportQueryParameter;
6 use SL::DB::Manager::CustomDataExportQueryParameter;
7
8 __PACKAGE__->meta->initialize;
9
10 sub _default_value_type_fixed_value        { $_[0]->default_value }
11 sub _default_value_type_current_user_login { $::myconfig{login} }
12
13 sub _default_value_type_sql_query {
14   my ($self) = @_;
15
16   return '' if !$self->default_value;
17
18   my @result = $self->db->dbh->selectrow_array($self->default_value);
19   $::form->dberror if !@result;
20
21   return $result[0];
22 }
23
24 sub calculate_default_value {
25   my ($self) = @_;
26
27   my $method = "_default_value_type_" . ($self->default_value_type // '');
28   return $self->can($method) ? $self->$method : '';
29 }
30
31 1;