# RP->trial_balance() I tried to figure out which bizarre flow through the
# program would happen to set that var, so that it would be used here later on,
# (which would be nonsense, since you would normally load chart before
-# claculating balance of said charts) and then decided that any mechanic that
+# calculating balance of said charts) and then decided that any mechanic that
# complex should fail anyway.
-# if anyone is missing a time check on charts, that broke arounf the time
+# if anyone is missing a time check on charts, that broke around the time
# trial_balance was rewritten, this would be it
$query .=
}
my $sort = grep({ $form->{sort} eq $_ } qw(transdate reference description)) ? $form->{sort} : 'transdate';
-
- $query .= qq|ORDER BY $sort|;
+ my $sort2 = ($sort eq 'reference')?'transdate':'reference';
+ $query .= qq|ORDER BY $sort , $sort2 |;
my $sth = prepare_execute_query($form, $dbh, $query, @values);
#get detail information for each transaction