|
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 |
- |
|
|