X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cbbe00ccddaac72d03a759996e7d55315aff9a5e..d22921fe76be4daea7c11e3bc66222a66326fd86:/SL/VK.pm diff --git a/SL/VK.pm b/SL/VK.pm index 1dcf44a7d..5a3db9cdc 100644 --- a/SL/VK.pm +++ b/SL/VK.pm @@ -85,7 +85,7 @@ sub invoice_transactions { $where .= " AND i.assemblyitem is not true "; # filter allowed parameters for mainsort and subsort as passed by POST - my @databasefields = qw(description customername country partsgroup business salesman month); + my @databasefields = qw(description customername country partsgroup business salesman month shipvia); my ($mainsort) = grep { /^$form->{mainsort}$/ } @databasefields; my ($subsort) = grep { /^$form->{subsort}$/ } @databasefields; die "illegal parameter for mainsort or subsort" unless $mainsort and $subsort;