kivitendo/SL/DB/CustomDataExportQuery.pm @ 953b448e
| e713c314 | Moritz Bunkus | package SL::DB::CustomDataExportQuery;
|
|
use strict;
|
|||
use SL::DB::MetaSetup::CustomDataExportQuery;
|
|||
use SL::DB::Manager::CustomDataExportQuery;
|
|||
__PACKAGE__->meta->add_relationship(
|
|||
parameters => {
|
|||
type => 'one to many',
|
|||
class => 'SL::DB::CustomDataExportQueryParameter',
|
|||
column_map => { id => 'query_id' },
|
|||
},
|
|||
);
|
|||
__PACKAGE__->meta->initialize;
|
|||
sub used_parameter_names {
|
|||
my ($self) = @_;
|
|||
my %parameters;
|
|||
my $sql_query = $self->sql_query // '';
|
|||
$parameters{$1} = 1 while $sql_query =~ m{<\%(.+?)\%>}g;
|
|||
return sort keys %parameters;
|
|||
}
|
|||
1;
|