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