From 9bf48c32ad1a256ca5004c914f5a7badf9f3f93a Mon Sep 17 00:00:00 2001 From: Chris Hall Date: Mon, 15 Apr 2013 12:51:50 +1200 Subject: [PATCH] bug 6772 fixing array reference bug in Recommendations --- C4/Recommendations.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Recommendations.pm b/C4/Recommendations.pm index 0cd0e00..0b75e8c 100644 --- a/C4/Recommendations.pm +++ b/C4/Recommendations.pm @@ -183,7 +183,7 @@ LIMIT ? $sth->execute($biblionumber, $limit); push @{ $res }, @{$sth->fetchall_arrayref({})}; - $res = \@{ @{$res}[0..$limit] } if (@$res > $limit); + $res = [ @{$res}[0..$limit] ] if (@$res > $limit); my @res = sort { $b->{hit_count} <=> $a->{hit_count} } @$res; return \@res; -- 1.7.10.4