|
Lines 412-419
sub GetBudgetAuthCats {
Link Here
|
| 412 |
$sth->execute($budget_period_id); |
412 |
$sth->execute($budget_period_id); |
| 413 |
my %authcats; |
413 |
my %authcats; |
| 414 |
while (my ($sort1_authcat,$sort2_authcat) = $sth->fetchrow) { |
414 |
while (my ($sort1_authcat,$sort2_authcat) = $sth->fetchrow) { |
| 415 |
$authcats{$sort1_authcat}=1; |
415 |
$authcats{$sort1_authcat}=1 if $sort1_authcat; |
| 416 |
$authcats{$sort2_authcat}=1; |
416 |
$authcats{$sort2_authcat}=1 if $sort2_authcat; |
| 417 |
} |
417 |
} |
| 418 |
my @auth_cats_loop; |
418 |
my @auth_cats_loop; |
| 419 |
foreach (sort keys %authcats) { |
419 |
foreach (sort keys %authcats) { |
| 420 |
- |
|
|