X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FBudgets.pm;h=760482aff32e41cc531b76751432ce350bb71c9a;hb=d948e8ba4279849fe28c6a291f0e18ff64b62714;hp=24c4a90d3a5a97dc8303899466af416f0ceed1a6;hpb=ecd99dc57e31cc5a1ae1305c61827b5a44a5bfdf;p=koha_gimpoz

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 24c4a90d3a..760482aff3 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -235,7 +235,7 @@ sub GetBudgetsPlanCell {
     $actual = $sth->fetchrow_array;
 
     # get the estimated amount
-    my $sth = $dbh->prepare( qq|
+    $sth = $dbh->prepare( qq|
 
         SELECT estimated_amount AS estimated, display FROM aqbudgets_planning
             WHERE budget_period_id = ? AND
@@ -517,8 +517,8 @@ sub GetBudgetHierarchy {
 	}
 
 	# look for top parents 1st
-	my @sort;
-	my ($i, $depth_count) = 0;
+	my (@sort, $depth_count);
+	($i, $depth_count) = 0;
 	while (1) {
 		my $children = 0;
 		foreach my $r (@res) {
@@ -568,7 +568,7 @@ sub GetBudgetHierarchy {
         $moo =~ s/\ /\&nbsp\;/g;
         $r->{'budget_code_indent'} =  $moo;
 
-        my $moo = $r->{'budget_name_indent'};
+        $moo = $r->{'budget_name_indent'};
         $moo =~ s/\ /\&nbsp\;/g;
         $r->{'budget_name_indent'} = $moo;
 
@@ -635,7 +635,6 @@ get a specific budget
 sub GetBudget {
     my ( $budget_id ) = @_;
     my $dbh = C4::Context->dbh;
-    my $query;
     my $query = "
         SELECT *
         FROM   aqbudgets