my @a = (transdate, invnumber, name);
push @a, "employee" if $self->{l_employee};
my $sortorder = join ', ', $form->sort_columns(@a);
- $sortorder = $form->{sort} unless $sortorder;
-
+ $sortorder = $form->{sort} if $form->{sort};
+
$query .= "WHERE $where
ORDER by $sortorder";