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