- $line{aqbooksellerid} =$suppliers[$i]->{'id'};
- $line{name} = $suppliers[$i]->{'name'};
- $line{active} = $suppliers[$i]->{'active'};
- my @loop_basket;
- for (my $i2=0;$i2<$ordcount;$i2++){
- my %inner_line;
- $inner_line{basketno} =$orders->[$i2]->{'basketno'};
- $inner_line{total} =$orders->[$i2]->{'count(*)'};
- $inner_line{authorisedby} = $orders->[$i2]->{'authorisedby'};
- $inner_line{creationdate} = format_date($orders->[$i2]->{'creationdate'});
- $inner_line{closedate} = format_date($orders->[$i2]->{'closedate'});
- push @loop_basket, \%inner_line;
- }
- $line{loop_basket} = \@loop_basket;
- push @loop_suppliers, \%line;
+ push @{$loop_suppliers}, {
+ loop_basket => $loop_basket,
+ aqbooksellerid => $s->{'id'},
+ name => $s->{'name'},
+ active => $s->{'active'},
+ };