[Koha-patches] [PATCH] [SIGNED-OFF] bug4438/MT5496 budget Exceeds total allocation
Katrin Fischer
Katrin.Fischer.83 at web.de
Sun Mar 13 20:52:44 CET 2011
From: Henri-Damien LAURENT <henridamien.laurent at biblibre.com>
This is a followup :
When editing a budget, the check for the total allocation would take into account the budget itself.
Showing an improper error message
The problem was solved when adding a child budget but not when editing the same budget.
Signed-off-by: Katrin Fischer <Katrin.Fischer.83 at web.de>
---
admin/check_parent_total.pl | 20 ++++++++++++++++----
1 files changed, 16 insertions(+), 4 deletions(-)
diff --git a/admin/check_parent_total.pl b/admin/check_parent_total.pl
index d5b784d..f0f8c9b 100755
--- a/admin/check_parent_total.pl
+++ b/admin/check_parent_total.pl
@@ -62,7 +62,13 @@ my ($sub_unalloc , $period_sum, $budget_period_unalloc);
if ($parent) {
my $query = " SELECT SUM(budget_amount) as sum FROM aqbudgets where budget_parent_id = ? ";
my $sth = $dbh->prepare($query);
- $sth->execute( $parent->{'budget_id'} );
+ my @sql_params;
+ push @sql_params, $parent->{'budget_id'} ;
+ if ($budget_id){
+ $query.=qq| and budget_id <> ? |;
+ push @sql_params,$budget_id;
+ }
+ $sth->execute( @sql_params );
my $sum = $sth->fetchrow_hashref;
$sth->finish;
@@ -75,10 +81,16 @@ if ($parent) {
# ELSE , IF NO PARENT PASSED, THEN CHECK UNALLOCATED FOR PERIOD, IF NOT THEN RETURN 2
else {
my $query = qq| SELECT SUM(budget_amount) as sum
- FROM aqbudgets WHERE budget_period_id = ? and budget_parent_id IS NULL|;
+ FROM aqbudgets WHERE budget_period_id = ? and budget_parent_id IS NULL |;
+ my @sql_params;
+ push @sql_params, $period_id;
+ if ($budget_id){
+ $query.=qq| and budget_id <> ? |;
+ push @sql_params,$budget_id;
+ }
- my $sth = $dbh->prepare($query);
- $sth->execute( $period_id );
+ my $sth = $dbh->prepare($query);
+ $sth->execute(@sql_params);
$period_sum = $sth->fetchrow_hashref;
$sth->finish;
$budget_period_unalloc = $period->{'budget_period_total'} - $period_sum->{'sum'} if $period->{'budget_period_total'};
--
1.7.1
More information about the Koha-patches
mailing list