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