dont run sort for latest view

1 files changed, 3 insertions, 2 deletions

diff --git a/clerk b/clerk
index b5e7576..02bc14c 100755
--- a/clerk
+++ b/clerk
@@ -314,9 +314,10 @@ sub formatted_albums {
 	for my $k (@skeys) {
 		my @vals = ((map { $_ // "Unknown" } $uniq_albums{$k}->@{qw/AlbumArtist Date Album/}), $uniq_albums{$k}->{Dir});
 		my $strval = sprintf $fmtstr."%s\n", @vals;
-		@albums = sort @albums;
+		if (! $sorted) {
+			@albums = sort @albums;
+		}
 		push @albums, $strval;
-
 	}
 
 	return \@albums;