+# supplierlist is returned in name order
+my $supplierlist = GetSuppliersWithLateIssues();
+for my $s (@{$supplierlist} ) {
+ $s->{count} = scalar GetLateOrMissingIssues($s->{id}, q{}, $order);
+ if ($supplierid && $s->{id} == $supplierid) {
+ $s->{selected} = 1;
+ }
+}