Bug 10577: (QA follow-up) Remove tab chars

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 493e2b7..dfd442f 100644 (file)
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -440,15 +440,15 @@ sub GetBudgetPeriods {
 }
 # -------------------------------------------------------------------
 sub GetBudgetPeriod {
-       my ($budget_period_id) = @_;
-       my $dbh = C4::Context->dbh;
-       my $sth = $dbh->prepare( qq|
+    my ($budget_period_id) = @_;
+    my $dbh = C4::Context->dbh;
+    my $sth = $dbh->prepare( qq|
         SELECT      *
         FROM aqbudgetperiods
         WHERE budget_period_id=? |
-       );
-       $sth->execute($budget_period_id);
-       return $sth->fetchrow_hashref;
+    );
+    $sth->execute($budget_period_id);
+    return $sth->fetchrow_hashref;
 }
 
 sub DelBudgetPeriod{