[Koha-patches] [PATCH] Fix for Bug 5526, List of lists should be in alphabetical order by list name

[Owen Leonard]

---
 C4/VirtualShelves.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/VirtualShelves.pm b/C4/VirtualShelves.pm
index 715cace..ee8d5c1 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;
-- 
1.7.1