Revision d3d6717e
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
| SL/WH.pm | ||
|---|---|---|
|
qw(l_parts_id l_qty l_partunit) );
|
||
|
|
||
|
# add cvar for sorting
|
||
|
if ($form->{sort} =~ /^cvar_/) {
|
||
|
if (($form->{sort} // '') =~ /^cvar_/) {
|
||
|
my $sort_name = $form->{sort};
|
||
|
my $cvar_name = $sort_name;
|
||
|
$cvar_name =~ s/^cvar_//;
|
||
Auch abrufbar als: Unified diff
SL:WH: nicht initialisierter Wert: Warnungen vermeiden