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;