View | Details | Raw Unified | Return to bug 15009
Collapse All | Expand All

(-)a/C4/Budgets.pm (-3 / +2 lines)
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
- 

Return to bug 15009