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

(-)a/C4/Budgets.pm (-2 / +1 lines)
Lines 1109-1115 sub CloneBudgetHierarchy { Link Here
1109 

          1109
          

        

        

          1110
          
        my $tidy_budget =

          1110
          
        my $tidy_budget =

        

        

          1111
          
          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }

          1111
          
          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }

        

          
            

              1112
              
              keys($budget) };


              1112
              
              keys %$budget };

            

        

          1113
          
        my $new_budget_id = AddBudget(

          1113
          
        my $new_budget_id = AddBudget(

        

        

          1114
          
            {

          1114
          
            {

        

        

          1115
          
                %$tidy_budget,

          1115
          
                %$tidy_budget,

        

            

              1116
              
- 

              
              
            






  

  Return to bug 12164