Revision c8362b9a
Von Tamino Steinert vor fast 2 Jahren hinzugefügt
- ID c8362b9af82cd1f8b11c19b56f41e013234ccfe7
- Vorgänger bf2e0489
| SL/WH.pm | ||
|---|---|---|
|
package WH;
|
||
|
|
||
|
use Carp qw(croak);
|
||
|
use List::MoreUtils qw(any);
|
||
|
|
||
|
use SL::AM;
|
||
|
use SL::DBUtils;
|
||
| ... | ... | |
|
my $sort_name = $form->{sort};
|
||
|
my $cvar_name = $sort_name;
|
||
|
$cvar_name =~ s/^cvar_//;
|
||
|
my $cvar_configs = CVar->get_configs('module' => 'IC');
|
||
|
my @allowed_cvar_names =
|
||
|
map {$_->{name}}
|
||
|
grep {$_->{type} =~ m/text|textfield|htmlfield/}
|
||
|
@$cvar_configs;
|
||
|
unless (any {$sort_name eq 'cvar_' . $_} @allowed_cvar_names) {
|
||
|
die "unsupported sort on cvar field";
|
||
|
}
|
||
|
|
||
|
$select_clause .= ", cvar_fields.$sort_name";
|
||
|
$group_clause .= ", cvar_fields.$sort_name";
|
||
Auch abrufbar als: Unified diff
FIX: LagerBestand BDVs: Nur valide BDV-Namen zulassen