From: Moritz Bunkus Date: Tue, 5 Apr 2016 12:13:21 +0000 (+0200) Subject: CVar-Helfer: cvars_by_config nach Config-Reihenfolge sortiert zurückgeben X-Git-Tag: release-3.4.1~244 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=6e1a7a2e06de426b553ada3aed39f28b4825d0ce;p=kivitendo-erp.git CVar-Helfer: cvars_by_config nach Config-Reihenfolge sortiert zurückgeben --- diff --git a/SL/DB/Helper/CustomVariables.pm b/SL/DB/Helper/CustomVariables.pm index 6ebebda41..9de839496 100644 --- a/SL/DB/Helper/CustomVariables.pm +++ b/SL/DB/Helper/CustomVariables.pm @@ -4,6 +4,7 @@ use strict; use Carp; use Data::Dumper; use List::Util qw(first); +use List::UtilsBy qw(sort_by); use constant META_CVARS => 'cvars_config'; @@ -98,6 +99,8 @@ sub make_cvar_by_configs { @$configs ); + @return = sort_by { $_->config->sortkey } @return; + return \@return; } }