| Lines 1-5
          
      
      
        Link Here | 
        
          | 1 | use Modern::Perl; | 1 | use Modern::Perl; | 
        
          | 2 | use Koha::Installer::Output qw(say_warning say_success say_info); | 2 | use Koha::Installer::Output qw(say_warning say_success say_info); | 
            
              |  |  | 3 | use Koha::Reports; | 
        
          | 3 |  | 4 |  | 
        
          | 4 | return { | 5 | return { | 
        
          | 5 |     bug_number  => "37901", | 6 |     bug_number  => "37901", | 
  
    | Lines 45-50
          return {
      
      
        Link Here | 
        
          | 45 |             ); | 46 |             ); | 
        
          | 46 |         } | 47 |         } | 
        
          | 47 |  | 48 |  | 
            
              |  |  | 49 |         my $reports = join( | 
            
              | 50 |             "\n", | 
            
              | 51 |             map( "\tReport ID: " | 
            
              | 52 |                     . $_->id | 
            
              | 53 |                     . ' | Edit link: ' | 
            
              | 54 |                     . C4::Context->preference('staffClientBaseURL') | 
            
              | 55 |                     . '/cgi-bin/koha/reports/guided_reports.pl?reports=' | 
            
              | 56 |                     . $_->id | 
            
              | 57 |                     . "&phase=Edit%20SQL", | 
            
              | 58 |                 Koha::Reports->search( { savedsql => { -like => "%pseudonymized_borrower_attributes%" } } )->as_list ) | 
            
              | 59 |         ); | 
            
              | 60 |  | 
            
              | 61 |         if ($reports) { | 
            
              | 62 |             say_warning( | 
            
              | 63 |                 $out, | 
            
              | 64 |                 "Bug 37901: **ACTION REQUIRED**: Saved SQL reports containing occurrences of 'pseudonymized_borrower_attributes' were found. The following reports MUST be updated accordingly ('pseudonymized_borrower_attributes' -> 'pseudonymized_metadata_values', 'code' -> 'key', 'attribute' -> 'value'):" | 
            
              | 65 |             ); | 
            
              | 66 |             say_info( | 
            
              | 67 |                 $out, | 
            
              | 68 |                 $reports | 
            
              | 69 |             ); | 
            
              | 70 |         } | 
            
              | 71 |  | 
        
          | 48 |         say_success( $out, "Finished" ); | 72 |         say_success( $out, "Finished" ); | 
        
          | 49 |     }, | 73 |     }, | 
        
          | 50 | }; | 74 | }; | 
            
              | 51 | -  |  |  |