From b0124b7a845dc31b1ef585082ef8736170a01f9b Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Thu, 4 Feb 2016 15:47:00 -0500 Subject: [PATCH] LP#1549505: fix crash displaying list of a record's badges Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm index ac3783a29c..2488bf7698 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm @@ -68,7 +68,7 @@ sub load_record { if ($self->cgi->param('badges')) { my $badges = $self->cgi->param('badges'); - $badges = $badges ? split(',', $badges) : []; + $badges = $badges ? [split(',', $badges)] : []; $badges = [grep { /^\d+$/ } @$badges]; if (@$badges) { $self->ctx->{badge_scores} = $cstore->request( -- 2.11.0