- $line{supplierid} = $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{surname} = $orders->[$i2]{'firstname'};
- $inner_line{firstname} = $orders->[$i2]{'surname'};
- $inner_line{creationdate} = format_date( $orders->[$i2]{'creationdate'} );
- $inner_line{closedate} = format_date( $orders->[$i2]{'closedate'} );
- push @loop_basket, \%inner_line;
+ next unless (CanUserUseBudget($loggedinuser, $r, $userflags));
+
+ $has_budgets = 1;
+ last;
+}
+
+#build result page
+my $loop_suppliers = [];
+
+for my $vendor (@suppliers) {
+ my $baskets = GetBasketsInfosByBookseller( $vendor->{id}, $allbaskets );
+
+ my $loop_basket = [];
+
+ for my $basket ( @{$baskets} ) {
+ if (CanUserManageBasket($loggedinuser, $basket, $userflags)) {
+ my $member = GetMember( borrowernumber => $basket->{authorisedby} );
+ foreach (qw(total_items total_biblios expected_items)) {
+ $basket->{$_} ||= 0;
+ }
+ if($member) {
+ $basket->{authorisedby_firstname} = $member->{firstname};
+ $basket->{authorisedby_surname} = $member->{surname};
+ }
+ if ($basket->{basketgroupid}) {
+ my $basketgroup = C4::Acquisition::GetBasketgroup($basket->{basketgroupid});
+ if ($basketgroup) {
+ $basket->{basketgroup} = $basketgroup;
+ }
+ }
+ push @{$loop_basket}, $basket;
+ }