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

(-)a/acqui/addorderiso2709.pl (-4 / +9 lines)
Lines 210-217 if ($op eq ""){ Link Here
210
        }
210
        }
211
        if ($price){
211
        if ($price){
212
            $orderinfo{'listprice'} = $price;
212
            $orderinfo{'listprice'} = $price;
213
            eval "use C4::Acquisition qw/GetBasket/;";
213
            eval {"use C4::Acquisition qw/GetBasket/;";};
214
            eval "use C4::Bookseller qw/GetBookSellerFromId/;";
214
	    if ($@){
215
		croak $@;
216
	    }
217
            eval {"use C4::Bookseller qw/GetBookSellerFromId/;";};
218
	    if ($@){
219
		croak $@;
220
	    }
215
            my $basket     = GetBasket( $orderinfo{basketno} );
221
            my $basket     = GetBasket( $orderinfo{basketno} );
216
            my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
222
            my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
217
            my $gst        = $bookseller->{gstrate} || C4::Context->preference("gist") || 0;
223
            my $gst        = $bookseller->{gstrate} || C4::Context->preference("gist") || 0;
Lines 265-271 my $budget = GetBudget($budget_id); Link Here
265
271
266
# build budget list
272
# build budget list
267
my $budget_loop = [];
273
my $budget_loop = [];
268
my $budgets = GetBudgetHierarchy( q{}, $borrower->{branchcode}, $borrower->{borrowernumber} );
274
$budgets = GetBudgetHierarchy( q{}, $borrower->{branchcode}, $borrower->{borrowernumber} );
269
foreach my $r ( @{$budgets} ) {
275
foreach my $r ( @{$budgets} ) {
270
    if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
276
    if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
271
        next;
277
        next;
272
- 

Return to bug 6679