Lines 287-292
if ( $op eq 'delete_confirm' ) {
Link Here
|
287 |
|
287 |
|
288 |
my $contract = &GetContract($basket->{contractnumber}); |
288 |
my $contract = &GetContract($basket->{contractnumber}); |
289 |
my @orders = GetOrders($basketno); |
289 |
my @orders = GetOrders($basketno); |
|
|
290 |
|
291 |
my $borrower= GetMember('borrowernumber' => $loggedinuser); |
292 |
my $budgets = GetBudgetHierarchy(q{},$borrower->{branchcode},$borrower->{borrowernumber}); |
293 |
my $has_budgets = 0; |
294 |
foreach my $r (@{$budgets}) { |
295 |
if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) { |
296 |
next; |
297 |
} |
298 |
$has_budgets = 1; |
299 |
last; |
300 |
} |
301 |
|
290 |
$template->param( |
302 |
$template->param( |
291 |
basketno => $basketno, |
303 |
basketno => $basketno, |
292 |
basketname => $basket->{'basketname'}, |
304 |
basketname => $basket->{'basketname'}, |
Lines 316-321
if ( $op eq 'delete_confirm' ) {
Link Here
|
316 |
basketgroups => $basketgroups, |
328 |
basketgroups => $basketgroups, |
317 |
grouped => $basket->{basketgroupid}, |
329 |
grouped => $basket->{basketgroupid}, |
318 |
unclosable => @orders ? 0 : 1, |
330 |
unclosable => @orders ? 0 : 1, |
|
|
331 |
has_budgets => $has_budgets, |
319 |
); |
332 |
); |
320 |
} |
333 |
} |
321 |
|
334 |
|