From cdbf872bd5dcc99b6e93ab920a0ef17a7592c8c9 Mon Sep 17 00:00:00 2001
From: Owen Leonard <oleonard@myacpl.org>
Date: Mon, 20 Dec 2010 09:56:11 -0600
Subject: [PATCH] Fix for Bug 5526, List of lists should be in alphabetical
 order by list name

Signed-off-by: Liz Rea <lrea@nekls.org>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 C4/VirtualShelves.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/VirtualShelves.pm b/C4/VirtualShelves.pm
index 715cace268..ee8d5c1352 100644
--- a/C4/VirtualShelves.pm
+++ b/C4/VirtualShelves.pm
@@ -116,9 +116,9 @@ sub GetShelves ($$$$) {
     $query .= ($mincategory == 1) ? "WHERE  owner=? AND category=?" : "WHERE category>=?";
 	$query .= qq(
         GROUP BY virtualshelves.shelfnumber
-        ORDER BY virtualshelves.category
-		DESC 
+        ORDER BY virtualshelves.shelfname
 		LIMIT ?, ?);
+    warn $query;
     my $sth2 = $dbh->prepare($query);
     $sth2->execute(@params);
     my %shelflist;
-- 
2.39.5