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

[LAURENT Henri-Damien]

Le 20/12/2010 16:10, Owen Leonard a écrit :
> ---
>  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;

Unconditional warn detected....

>      my $sth2 = $dbh->prepare($query);
>      $sth2->execute(@params);
>      my %shelflist;