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 |
- |
|
|