|
Lines 134-140
push @parameters, $estimateddeliverydateto_dt
Link Here
|
| 134 |
my %supplierlist = GetBooksellersWithLateOrders(@parameters); |
134 |
my %supplierlist = GetBooksellersWithLateOrders(@parameters); |
| 135 |
|
135 |
|
| 136 |
my (@sloopy); # supplier loop |
136 |
my (@sloopy); # supplier loop |
| 137 |
foreach (keys %supplierlist){ |
137 |
foreach( sort { $supplierlist{$a} cmp $supplierlist{$b} } keys %supplierlist ) { |
| 138 |
push @sloopy, (($booksellerid and $booksellerid eq $_ ) ? |
138 |
push @sloopy, (($booksellerid and $booksellerid eq $_ ) ? |
| 139 |
{id=>$_, name=>$supplierlist{$_}, selected=>1} : |
139 |
{id=>$_, name=>$supplierlist{$_}, selected=>1} : |
| 140 |
{id=>$_, name=>$supplierlist{$_}} ) ; |
140 |
{id=>$_, name=>$supplierlist{$_}} ) ; |
| 141 |
- |
|
|