| 
      
            Lines 237-243
          if ( $op eq 'list' ) {
      
      
        Link Here
      
     | 
  
        
          | 237 | 
              );  | 
          237 | 
              );  | 
        
        
          | 238 | 
           | 
          238 | 
           | 
        
        
          | 239 | 
              my @budgets = @{ | 
          239 | 
              my @budgets = @{ | 
        
          
            
              | 240 | 
                      GetBudgetHierarchy( $$period{budget_period_id}, C4::Context->userenv->{branch}, ( $show_mine ? $borrower_id : 0 )) | 
              240 | 
                      GetBudgetHierarchy( $$period{budget_period_id}, undef, ( $show_mine ? $borrower_id : 0 )) | 
            
        
          | 241 | 
              };  | 
          241 | 
              };  | 
        
        
          | 242 | 
           | 
          242 | 
           | 
        
        
          | 243 | 
              my $period_total = 0;  | 
          243 | 
              my $period_total = 0;  | 
        
  
    | 
      
            Lines 248-253
          if ( $op eq 'list' ) {
      
      
        Link Here
      
     | 
  
        
          | 248 | 
              my @budgets_to_display;  | 
          248 | 
              my @budgets_to_display;  | 
        
        
          | 249 | 
              foreach my $budget (@budgets) { | 
          249 | 
              foreach my $budget (@budgets) { | 
        
        
          | 250 | 
                  # PERMISSIONS  | 
          250 | 
                  # PERMISSIONS  | 
        
            
               | 
               | 
              251 | 
                      next unless CanUserUseBudget($borrowernumber, $budget, $staffflags);  | 
            
        
          | 251 | 
                  unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) { | 
          252 | 
                  unless(CanUserModifyBudget($borrowernumber, $budget, $staffflags)) { | 
        
        
          | 252 | 
                      $budget->{'budget_lock'} = 1; | 
          253 | 
                      $budget->{'budget_lock'} = 1; | 
        
        
          | 253 | 
                  }  | 
          254 | 
                  }  | 
        
            
              | 254 | 
              -   | 
               | 
               |