-my @suploop;
-for ( sort {$supplierlist{$a} cmp $supplierlist{$b} } keys %supplierlist ) {
- my ($count, @dummy) = GetLateOrMissingIssues($_, "", $order);
- push @suploop, {
- id => $_,
- name => $supplierlist{$_},
- count => $count,
- selected => $_ == $supplierid,
- };
+# 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;
+ }