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

(-)a/C4/Budgets.pm (-7 / +6 lines)
Lines 440-454 sub GetBudgetPeriods { Link Here
440
}
440
}
441
# -------------------------------------------------------------------
441
# -------------------------------------------------------------------
442
sub GetBudgetPeriod {
442
sub GetBudgetPeriod {
443
	my ($budget_period_id) = @_;
443
    my ($budget_period_id) = @_;
444
	my $dbh = C4::Context->dbh;
444
    my $dbh = C4::Context->dbh;
445
	my $sth = $dbh->prepare( qq|
445
    my $sth = $dbh->prepare( qq|
446
        SELECT      *
446
        SELECT      *
447
        FROM aqbudgetperiods
447
        FROM aqbudgetperiods
448
        WHERE budget_period_id=? |
448
        WHERE budget_period_id=? |
449
	);
449
    );
450
	$sth->execute($budget_period_id);
450
    $sth->execute($budget_period_id);
451
	return $sth->fetchrow_hashref;
451
    return $sth->fetchrow_hashref;
452
}
452
}
453
453
454
sub DelBudgetPeriod{
454
sub DelBudgetPeriod{
455
- 

Return to bug 10577