LP#1549505: fix crash displaying list of a record's badges

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

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 ac3783a..2488bf7 100644 (file)
--- 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(