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