View | Details | Raw Unified | Return to bug 12493
Collapse All | Expand All

(-)a/C4/Acquisition.pm (-5 / +3 lines)
Lines 18-25 package C4::Acquisition; Link Here
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use Carp;
22
use Carp;
24
use C4::Context;
23
use C4::Context;
25
use C4::Debug;
24
use C4::Debug;
Lines 362-370 sub GetBasketGroupAsCSV { Link Here
362
361
363
    my @rows;
362
    my @rows;
364
    for my $basket (@$baskets) {
363
    for my $basket (@$baskets) {
365
        my @orders     = GetOrders( $$basket{basketno} );
364
        my @orders     = GetOrders( $basket->{basketno} );
366
        my $contract   = GetContract({
365
        my $contract   = GetContract({
367
            contractnumber => $$basket{contractnumber}
366
            contractnumber => $basket->{contractnumber}
368
        });
367
        });
369
        my $bookseller = GetBookSellerFromId( $$basket{booksellerid} );
368
        my $bookseller = GetBookSellerFromId( $$basket{booksellerid} );
370
        my $basketgroup = GetBasketgroup( $$basket{basketgroupid} );
369
        my $basketgroup = GetBasketgroup( $$basket{basketgroupid} );
371
- 

Return to bug 12493