|
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 { |
| 214 |
eval "use C4::Bookseller qw/GetBookSellerFromId/;"; |
214 |
require C4::Acquisition; |
|
|
215 |
import C4::Acquisition qw/GetBasket/; |
| 216 |
}; |
| 217 |
if ($@){ |
| 218 |
croak $@; |
| 219 |
} |
| 220 |
eval { |
| 221 |
require C4::Bookseller; |
| 222 |
import C4::Bookseller qw/GetBookSellerFromId/; |
| 223 |
}; |
| 224 |
if ($@){ |
| 225 |
croak $@; |
| 226 |
} |
| 215 |
my $basket = GetBasket( $orderinfo{basketno} ); |
227 |
my $basket = GetBasket( $orderinfo{basketno} ); |
| 216 |
my $bookseller = GetBookSellerFromId( $basket->{booksellerid} ); |
228 |
my $bookseller = GetBookSellerFromId( $basket->{booksellerid} ); |
| 217 |
my $gst = $bookseller->{gstrate} || C4::Context->preference("gist") || 0; |
229 |
my $gst = $bookseller->{gstrate} || C4::Context->preference("gist") || 0; |
|
Lines 265-271
my $budget = GetBudget($budget_id);
Link Here
|
| 265 |
|
277 |
|
| 266 |
# build budget list |
278 |
# build budget list |
| 267 |
my $budget_loop = []; |
279 |
my $budget_loop = []; |
| 268 |
my $budgets = GetBudgetHierarchy( q{}, $borrower->{branchcode}, $borrower->{borrowernumber} ); |
280 |
$budgets = GetBudgetHierarchy( q{}, $borrower->{branchcode}, $borrower->{borrowernumber} ); |
| 269 |
foreach my $r ( @{$budgets} ) { |
281 |
foreach my $r ( @{$budgets} ) { |
| 270 |
if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) { |
282 |
if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) { |
| 271 |
next; |
283 |
next; |
| 272 |
- |
|
|