From 252138777c301ea4e26f360e29bc0177a5adca4d Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Thu, 13 May 2010 15:50:31 -0700 Subject: [PATCH] Fix a bad sort. Clarify some POD in the Photo. --- lib/WebGUI/Asset/File/GalleryFile/Photo.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/WebGUI/Asset/File/GalleryFile/Photo.pm b/lib/WebGUI/Asset/File/GalleryFile/Photo.pm index 0bb1e9fa5..7f1af4da8 100644 --- a/lib/WebGUI/Asset/File/GalleryFile/Photo.pm +++ b/lib/WebGUI/Asset/File/GalleryFile/Photo.pm @@ -294,7 +294,7 @@ sub getExifData { =head2 getResolutions ( ) Get an array reference of download resolutions that exist for this image. -Does not include the web view image or the thumbnail image. +Does not include the web view image or the thumbnail images. =cut @@ -303,7 +303,7 @@ sub getResolutions { my $storage = $self->getStorageLocation; # Return a list not including the web view image. - return [ sort { $a <=> $b } grep { $_ ne $self->get("filename") } @{ $storage->getFiles } ]; + return [ sort { $a cmp $b } grep { $_ ne $self->get("filename") } @{ $storage->getFiles } ]; } #----------------------------------------------------------------------------