Bug 32548: Replace while with map
Signed-off-by: Pedro Amorim <pedro.amorim@ptfs-europe.com> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
parent
ca37cbf6ca
commit
1ba08f87f8
1 changed files with 3 additions and 5 deletions
|
@ -1700,11 +1700,9 @@ sub get_notice {
|
|||
}
|
||||
my $metastring = join("\n", @metaarray);
|
||||
|
||||
my $illrequestattributes = {};
|
||||
my $attributes = $self->illrequestattributes;
|
||||
while ( my $attribute = $attributes->next ) {
|
||||
$illrequestattributes->{$attribute->type} = $attribute->value;
|
||||
}
|
||||
my $illrequestattributes = {
|
||||
map { $_->type => $_->value } $self->illrequestattributes->as_list
|
||||
};
|
||||
|
||||
my $letter = C4::Letters::GetPreparedLetter(
|
||||
module => 'ill',
|
||||
|
|
Loading…
Reference in a new issue