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 |
- |
|
|