|
Lines 405-412
sub GetBudgetAuthCats {
Link Here
|
| 405 |
$sth->execute($budget_period_id); |
405 |
$sth->execute($budget_period_id); |
| 406 |
my %authcats; |
406 |
my %authcats; |
| 407 |
while (my ($sort1_authcat,$sort2_authcat) = $sth->fetchrow) { |
407 |
while (my ($sort1_authcat,$sort2_authcat) = $sth->fetchrow) { |
| 408 |
$authcats{$sort1_authcat}=1; |
408 |
$authcats{$sort1_authcat}=1 if $sort1_authcat; |
| 409 |
$authcats{$sort2_authcat}=1; |
409 |
$authcats{$sort2_authcat}=1 if $sort2_authcat; |
| 410 |
} |
410 |
} |
| 411 |
my @auth_cats_loop; |
411 |
my @auth_cats_loop; |
| 412 |
foreach (sort keys %authcats) { |
412 |
foreach (sort keys %authcats) { |
| 413 |
- |
|
|