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