--- deliantra/Deliantra-Client/bin/cfplus	2006/11/18 22:36:00	1.127
+++ deliantra/Deliantra-Client/bin/cfplus	2006/11/19 19:43:53	1.130
@@ -1265,11 +1265,17 @@
 
 my %SORT_ORDER = (
    type   => undef,
-   mtime  => sub { sort {
-                ($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
-                   or $b->{mtime} <=> $a->{mtime}
-                   or $a->{type} <=> $b->{type}
-             } @_ },
+   mtime  => sub {
+                my $NOW = time;
+                sort {
+                   my $atime = $a->{mtime} - $NOW; $atime = $atime < 5 * 60 ? int $atime / 60 : 6;
+                   my $btime = $b->{mtime} - $NOW; $btime = $btime < 5 * 60 ? int $btime / 60 : 6;
+
+                   ($a->{flags} & F_LOCKED) <=> ($b->{flags} & F_LOCKED)
+                      or $btime <=> $atime
+                      or $a->{type} <=> $b->{type}
+                } @_
+             },
    weight => sub { sort {
                 $a->{weight} * ($a->{nrof} || 1) <=> $b->{weight} * ($b->{nrof} || 1)
                    or $a->{type} <=> $b->{type}
@@ -1916,6 +1922,7 @@
 
          audio_music_finished;
 
+         local $_;
          while (<$fh>) {
             next if /^\s*#/;
             next if /^\s*$/;