Lines 100-107
$template->param(
Link Here
|
100 |
op => $op, |
100 |
op => $op, |
101 |
); |
101 |
); |
102 |
|
102 |
|
103 |
# retrieve branches |
103 |
my $budget; |
104 |
my ( $budget, ); |
|
|
105 |
|
104 |
|
106 |
my $branches = GetBranches($show_mine); |
105 |
my $branches = GetBranches($show_mine); |
107 |
my @branchloop2; |
106 |
my @branchloop2; |
Lines 132-138
if ($op eq 'add_form') {
Link Here
|
132 |
} |
131 |
} |
133 |
$dropbox_disabled = BudgetHasChildren($budget_id); |
132 |
$dropbox_disabled = BudgetHasChildren($budget_id); |
134 |
my $borrower = &GetMember( borrowernumber=>$budget->{budget_owner_id} ); |
133 |
my $borrower = &GetMember( borrowernumber=>$budget->{budget_owner_id} ); |
135 |
$budget->{budget_owner_name} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'}; |
134 |
$budget->{budget_owner_name} = ( $borrower ? $borrower->{'firstname'} . ' ' . $borrower->{'surname'} : '' ); |
136 |
$$budget{$_}= sprintf("%.2f", $budget->{$_}) for grep{ /amount|encumb|expend/ } keys %$budget; |
135 |
$$budget{$_}= sprintf("%.2f", $budget->{$_}) for grep{ /amount|encumb|expend/ } keys %$budget; |
137 |
} |
136 |
} |
138 |
|
137 |
|
Lines 164-170
if ($op eq 'add_form') {
Link Here
|
164 |
value => $thisbranch, |
163 |
value => $thisbranch, |
165 |
branchname => $branches->{$thisbranch}->{'branchname'}, |
164 |
branchname => $branches->{$thisbranch}->{'branchname'}, |
166 |
); |
165 |
); |
167 |
$row{selected} = 1 if $thisbranch eq $budget->{'budget_branchcode'}; |
166 |
$row{selected} = 1 if $budget and $thisbranch eq $budget->{'budget_branchcode'}; |
168 |
push @branchloop_select, \%row; |
167 |
push @branchloop_select, \%row; |
169 |
} |
168 |
} |
170 |
|
169 |
|
Lines 173-186
if ($op eq 'add_form') {
Link Here
|
173 |
my @auth_cats_loop1 = (); |
172 |
my @auth_cats_loop1 = (); |
174 |
foreach my $category (@$categories) { |
173 |
foreach my $category (@$categories) { |
175 |
my $entry = { category => $category, |
174 |
my $entry = { category => $category, |
176 |
selected => $budget->{sort1_authcat} eq $category ?1:0, |
175 |
selected => ( $budget and $budget->{sort1_authcat} eq $category ? 1 : 0 ), |
177 |
}; |
176 |
}; |
178 |
push @auth_cats_loop1, $entry; |
177 |
push @auth_cats_loop1, $entry; |
179 |
} |
178 |
} |
180 |
my @auth_cats_loop2 = (); |
179 |
my @auth_cats_loop2 = (); |
181 |
foreach my $category (@$categories) { |
180 |
foreach my $category (@$categories) { |
182 |
my $entry = { category => $category, |
181 |
my $entry = { category => $category, |
183 |
selected => $budget->{sort2_authcat} eq $category ?1:0, |
182 |
selected => ( $budget and $budget->{sort2_authcat} eq $category ? 1 : 0 ), |
184 |
}; |
183 |
}; |
185 |
push @auth_cats_loop2, $entry; |
184 |
push @auth_cats_loop2, $entry; |
186 |
} |
185 |
} |
Lines 321-330
if ( $op eq 'list' ) {
Link Here
|
321 |
$budget->{"budget_spent"} = $num->format_price(0) unless defined($budget->{"budget_spent"}); |
320 |
$budget->{"budget_spent"} = $num->format_price(0) unless defined($budget->{"budget_spent"}); |
322 |
$budget->{budget_ordered} = $num->format_price(0) unless defined($budget->{"budget_ordered"}); |
321 |
$budget->{budget_ordered} = $num->format_price(0) unless defined($budget->{"budget_ordered"}); |
323 |
|
322 |
|
324 |
my $borrower = &GetMember( borrowernumber=>$budget->{budget_owner_id} ); |
|
|
325 |
$budget->{"budget_owner_name"} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'}; |
326 |
$budget->{"budget_borrowernumber"} = $borrower->{'borrowernumber'}; |
327 |
|
328 |
#Make a list of parents of the bugdet |
323 |
#Make a list of parents of the bugdet |
329 |
my @budget_hierarchy; |
324 |
my @budget_hierarchy; |
330 |
push @budget_hierarchy, { element_name => $budget->{"budget_name"}, element_id => $budget->{"budget_id"} }; |
325 |
push @budget_hierarchy, { element_name => $budget->{"budget_name"}, element_id => $budget->{"budget_id"} }; |
Lines 337-343
if ( $op eq 'list' ) {
Link Here
|
337 |
push @budget_hierarchy, { element_name => $period->{"budget_period_description"} }; |
332 |
push @budget_hierarchy, { element_name => $period->{"budget_period_description"} }; |
338 |
@budget_hierarchy = reverse(@budget_hierarchy); |
333 |
@budget_hierarchy = reverse(@budget_hierarchy); |
339 |
|
334 |
|
340 |
$budget->{branchname} = $branches->{ $budget->{branchcode} }->{branchname}; |
|
|
341 |
$budget->{budget_hierarchy} = \@budget_hierarchy; |
335 |
$budget->{budget_hierarchy} = \@budget_hierarchy; |
342 |
} |
336 |
} |
343 |
|
337 |
|
344 |
- |
|
|