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

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

Return to bug 15009