Revision 46cac3f1
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 36 | 36 |
package WH; |
| 37 | 37 |
|
| 38 | 38 |
use Carp qw(croak); |
| 39 |
use List::MoreUtils qw(any); |
|
| 39 | 40 |
|
| 40 | 41 |
use SL::AM; |
| 41 | 42 |
use SL::DBUtils; |
| ... | ... | |
| 662 | 663 |
my $sort_name = $form->{sort};
|
| 663 | 664 |
my $cvar_name = $sort_name; |
| 664 | 665 |
$cvar_name =~ s/^cvar_//; |
| 666 |
my $cvar_configs = CVar->get_configs('module' => 'IC');
|
|
| 667 |
my @allowed_cvar_names = |
|
| 668 |
map {$_->{name}}
|
|
| 669 |
grep {$_->{type} =~ m/text|textfield|htmlfield/}
|
|
| 670 |
@$cvar_configs; |
|
| 671 |
unless (any {$sort_name eq 'cvar_' . $_} @allowed_cvar_names) {
|
|
| 672 |
die "unsupported sort on cvar field"; |
|
| 673 |
} |
|
| 665 | 674 |
|
| 666 | 675 |
$select_clause .= ", cvar_fields.$sort_name"; |
| 667 | 676 |
$group_clause .= ", cvar_fields.$sort_name"; |
Auch abrufbar als: Unified diff
FIX: LagerBestand BDVs: Nur valide BDV-Namen zulassen