From 749291053ea682c3b2f9d67f374aa53edbee4f9e Mon Sep 17 00:00:00 2001 From: Owen Leonard Date: Mon, 20 Dec 2010 10:06:13 -0500 Subject: [PATCH] Fix for Bug 5526, List of lists should be in alphabetical order by list name --- 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