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