View | Details | Raw Unified | Return to bug 11675
Collapse All | Expand All

(-)a/admin/check_parent_total.pl (-10 / +2 lines)
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
- 

Return to bug 11675