From 22dc04e24c9af810672ee8f6e313316f3bcc9a59 Mon Sep 17 00:00:00 2001
From: Alex Arnaud <alex.arnaud@biblibre.com>
Date: Thu, 7 Apr 2011 11:59:22 +0200
Subject: [PATCH] Bug #6082 - On aqbudgets.pl bug on the Statistic's combobox

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 C4/Koha.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 0836669c71..95244bd91e 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -1051,7 +1051,7 @@ sub GetAuthorisedValueCategories {
     my $sth = $dbh->prepare("SELECT DISTINCT category FROM authorised_values ORDER BY category");
     $sth->execute;
     my @results;
-    while (my $category = $sth->fetchrow_array) {
+    while (defined (my $category  = $sth->fetchrow_array) ) {
         push @results, $category;
     }
     return \@results;
-- 
2.39.5