Lines 61-79
my ($sub_unalloc , $period_sum, $budget_period_unalloc);
Link Here
|
61 |
|
61 |
|
62 |
if ($parent) { |
62 |
if ($parent) { |
63 |
my $query = " SELECT SUM(budget_amount) as sum FROM aqbudgets where budget_parent_id = ? "; |
63 |
my $query = " SELECT SUM(budget_amount) as sum FROM aqbudgets where budget_parent_id = ? "; |
64 |
my $sth = $dbh->prepare($query); |
|
|
65 |
my @sql_params; |
64 |
my @sql_params; |
66 |
push @sql_params, $parent->{'budget_id'} ; |
65 |
my $sth = $dbh->prepare($query); |
67 |
if ($budget_id){ |
66 |
$sth->execute( $parent->{'budget_id'} ); |
68 |
$query.=qq| and budget_id <> ? |; |
|
|
69 |
push @sql_params,$budget_id; |
70 |
} |
71 |
$sth->execute( @sql_params ); |
72 |
my $sum = $sth->fetchrow_hashref; |
67 |
my $sum = $sth->fetchrow_hashref; |
73 |
$sth->finish; |
68 |
$sth->finish; |
74 |
|
|
|
75 |
$sub_unalloc = $parent->{'budget_amount'} - $sum->{sum}; |
69 |
$sub_unalloc = $parent->{'budget_amount'} - $sum->{sum}; |
76 |
|
|
|
77 |
# TRICKY.. , IF THE PARENT IS THE CURRENT PARENT - THEN SUBSTRACT CURRENT BUDGET FROM TOTAL |
70 |
# TRICKY.. , IF THE PARENT IS THE CURRENT PARENT - THEN SUBSTRACT CURRENT BUDGET FROM TOTAL |
78 |
$sub_unalloc += $budget->{'budget_amount'} if ( $budget->{'budget_parent_id'} == $parent_id ) ; |
71 |
$sub_unalloc += $budget->{'budget_amount'} if ( $budget->{'budget_parent_id'} == $parent_id ) ; |
79 |
} |
72 |
} |
80 |
- |
|
|