X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=acqui%2Fbasketgroup.pl;h=8d22e24ed3583d69dc80e11bfd72292194fbfef3;hb=d3d6f084dce48897b29cfc4eca267ca2c51abb12;hp=d6bd5d1f4a73cf86ec124d36616d9b3f2e1e6303;hpb=3f4d31309203b85b5415788967d4c8cf3ce83570;p=koha.git

diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl
index d6bd5d1f4a..8d22e24ed3 100755
--- a/acqui/basketgroup.pl
+++ b/acqui/basketgroup.pl
@@ -56,7 +56,7 @@ use C4::Bookseller qw/GetBookSellerFromId/;
 use C4::Budgets qw/ConvertCurrency/;
 use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/;
 use C4::Bookseller qw/GetBookSellerFromId/;
-use C4::Branch qw/GetBranches/;
+use C4::Branch qw/GetBranches GetBranchName/;
 use C4::Members qw/GetMember/;
 
 our $input=new CGI;
@@ -156,17 +156,22 @@ sub displaybasketgroups {
     my $baskets = shift;
     if (scalar @$basketgroups != 0) {
         foreach my $basketgroup (@$basketgroups){
+            $basketgroup -> {'billingplacename'} = GetBranchName($basketgroup -> {'billingplace'});
+            $basketgroup -> {'deliveryplacename'} = GetBranchName($basketgroup -> {'deliveryplace'});
             my $i = 0;
+            my $basketsqty = 0;
             while($i < scalar(@$baskets)){
                 my $basket = @$baskets[$i];
                 if($basket->{'basketgroupid'} && $basket->{'basketgroupid'} == $basketgroup->{'id'}){
                     $basket->{total} = BasketTotal($basket->{basketno}, $bookseller);
                     push(@{$basketgroup->{'baskets'}}, $basket);
                     splice(@$baskets, $i, 1);
+                    ++$basketsqty;
                     --$i;
                 }
                 ++$i;
             }
+            $basketgroup -> {'basketsqty'} = $basketsqty;
         }
         $template->param(basketgroups => $basketgroups);
     }