Revision 42ca4b67
Von Bernd Bleßmann vor etwa 11 Jahren hinzugefügt
| SL/DB/Helper/CustomVariables.pm | ||
|---|---|---|
| 42 | 42 |
sub make_cvar_accessor {
|
| 43 | 43 |
my ($caller_package, %params) = @_; |
| 44 | 44 |
|
| 45 |
my @module_filter = $params{module} ?
|
|
| 46 |
("config_id" => [ \"(SELECT custom_variable_configs.id FROM custom_variable_configs WHERE custom_variable_configs.module = '$params{module}')" ]) :
|
|
| 45 |
my $modules = ('ARRAY' eq ref $params{module}) ?
|
|
| 46 |
join ',', @{ $params{module} } :
|
|
| 47 |
$params{module};
|
|
| 48 |
my @module_filter = $modules ? |
|
| 49 |
("config_id" => [ \"(SELECT custom_variable_configs.id FROM custom_variable_configs WHERE custom_variable_configs.module IN ( '$modules' ))" ]) : # " make emacs happy
|
|
| 47 | 50 |
(); |
| 48 | 51 |
|
| 49 | 52 |
$caller_package->meta->add_relationships( |
Auch abrufbar als: Unified diff
CustomVariables-Helper richtigen Accessor für überladenen Cvars machen lassen.