ordered resolutions numerically instead of ascibetically

This commit is contained in:
Doug Bell 2008-05-29 19:36:50 +00:00
parent 73050858af
commit 63e93221bd

View file

@ -205,7 +205,7 @@ sub getResolutions {
my $storage = $self->getStorageLocation;
# Return a list not including the web view image.
return [ grep { $_ ne $self->get("filename") } @{ $storage->getFiles } ];
return [ sort { $a <=> $b } grep { $_ ne $self->get("filename") } @{ $storage->getFiles } ];
}
#----------------------------------------------------------------------------