|
Lines 291-296
if ( $op eq 'delete_confirm' ) {
Link Here
|
| 291 |
|
291 |
|
| 292 |
my $contract = &GetContract($basket->{contractnumber}); |
292 |
my $contract = &GetContract($basket->{contractnumber}); |
| 293 |
my @orders = GetOrders($basketno); |
293 |
my @orders = GetOrders($basketno); |
|
|
294 |
|
| 295 |
my $borrower= GetMember('borrowernumber' => $loggedinuser); |
| 296 |
my $budgets = GetBudgetHierarchy(q{},$borrower->{branchcode},$borrower->{borrowernumber}); |
| 297 |
my $has_budgets = 0; |
| 298 |
foreach my $r (@{$budgets}) { |
| 299 |
if (!defined $r->{budget_amount} || $r->{budget_amount} == 0) { |
| 300 |
next; |
| 301 |
} |
| 302 |
$has_budgets = 1; |
| 303 |
last; |
| 304 |
} |
| 305 |
|
| 294 |
$template->param( |
306 |
$template->param( |
| 295 |
basketno => $basketno, |
307 |
basketno => $basketno, |
| 296 |
basketname => $basket->{'basketname'}, |
308 |
basketname => $basket->{'basketname'}, |
|
Lines 321-326
if ( $op eq 'delete_confirm' ) {
Link Here
|
| 321 |
basketgroups => $basketgroups, |
333 |
basketgroups => $basketgroups, |
| 322 |
grouped => $basket->{basketgroupid}, |
334 |
grouped => $basket->{basketgroupid}, |
| 323 |
unclosable => @orders ? 0 : 1, |
335 |
unclosable => @orders ? 0 : 1, |
|
|
336 |
has_budgets => $has_budgets, |
| 324 |
); |
337 |
); |
| 325 |
} |
338 |
} |
| 326 |
|
339 |
|