- $report->set_column_order(qw(checkbox dunning_description customername invnumber transdate
- duedate amount dunning_date dunning_duedate fee interest));
+ $report->set_columns(%column_defs);
+ $report->set_column_order(qw(checkbox dunning_description customername language invnumber transdate
+ duedate amount dunning_date dunning_duedate fee interest salesman));
+ $report->set_sort_indicator($form->{sort}, $form->{sortdir});
+
+ my $edit_url = sub { build_std_url('script=' . ($_[0]->{invoice} ? 'is' : 'ar') . '.pl', 'action=edit', 'callback') . '&id=' . $::form->escape($_[0]->{id}) };
+ my $print_url = sub { build_std_url('action=print_dunning', 'format=pdf', 'media=screen', 'dunning_id='.$_[0]->{dunning_id}, 'language_id=' . $_[0]->{language_id}) };
+ my $sort_url = build_std_url('action=show_dunning', grep { $form->{$_} } @filter_field_list);