|
Lines 60-66
my $op = $input->param('op') || 'list';
Link Here
|
| 60 |
# see if the user want to see all budgets or only owned ones by default |
60 |
# see if the user want to see all budgets or only owned ones by default |
| 61 |
my $show_mine = $input->param('show_mine') // 0; |
61 |
my $show_mine = $input->param('show_mine') // 0; |
| 62 |
|
62 |
|
| 63 |
# IF USER DOESNT HAVE PERM FOR AN 'ADD', THEN REDIRECT TO THE DEFAULT VIEW... |
63 |
# IF USER DOESN'T HAVE PERM FOR AN 'ADD', THEN REDIRECT TO THE DEFAULT VIEW... |
| 64 |
if (not defined $template->{VARS}->{'CAN_user_acquisition_budget_add_del'} |
64 |
if (not defined $template->{VARS}->{'CAN_user_acquisition_budget_add_del'} |
| 65 |
and $op eq 'add_form') |
65 |
and $op eq 'add_form') |
| 66 |
{ |
66 |
{ |
|
Lines 282-288
if ( $op eq 'list' ) {
Link Here
|
| 282 |
$budget->{'budget_lock'} = 1; |
282 |
$budget->{'budget_lock'} = 1; |
| 283 |
} |
283 |
} |
| 284 |
|
284 |
|
| 285 |
# if a budget search doesnt match, next |
285 |
# if a budget search doesn't match, next |
| 286 |
if ($filter_budgetname) { |
286 |
if ($filter_budgetname) { |
| 287 |
next |
287 |
next |
| 288 |
unless $budget->{budget_code} =~ m/$filter_budgetname/i |
288 |
unless $budget->{budget_code} =~ m/$filter_budgetname/i |
|
Lines 303-309
if ( $op eq 'list' ) {
Link Here
|
| 303 |
$available_total += $budget->{total_remaining}; |
303 |
$available_total += $budget->{total_remaining}; |
| 304 |
} |
304 |
} |
| 305 |
|
305 |
|
| 306 |
# if amount == 0 dont display... |
306 |
# if amount == 0 don't display... |
| 307 |
delete $budget->{'budget_unalloc_sublevel'} |
307 |
delete $budget->{'budget_unalloc_sublevel'} |
| 308 |
if (!defined $budget->{'budget_unalloc_sublevel'} |
308 |
if (!defined $budget->{'budget_unalloc_sublevel'} |
| 309 |
or $budget->{'budget_unalloc_sublevel'} == 0); |
309 |
or $budget->{'budget_unalloc_sublevel'} == 0); |