report: Don't try to mix unknown discs into the primary sort order.

This made sense when the discs weren't primarily ordered by box but it
doesn't any more.  Just leave the unknown ones at the end of the list.

diff --git a/report b/report
index f8d0326..9f2bc11 100755 (executable)
--- a/report
+++ b/report
@@ -85,11 +85,6 @@ for my $name (sort { my $pa = $set_path{$a}[0]; my $ba = $box{$pa} // "~~~";
   my $paths = $set_path{$name};
   my @unk;
   set_box $box{$paths->[0]};
   my $paths = $set_path{$name};
   my @unk;
   set_box $box{$paths->[0]};

-  while (@iso && $iso[0] lt $paths->[0]) { push @unk, shift @iso; }
-  if (@unk) {
-    print "[#UNK: *]\n";
-    for my $path (@unk) { print "\t", $path, "\n"; }
-  }

   printf "[#%d: %d] %s\n", $set_id{$name}, scalar @$paths, $name;
   my $i = 0;
   for my $path (@$paths) {
   printf "[#%d: %d] %s\n", $set_id{$name}, scalar @$paths, $name;
   my $i = 0;
   for my $path (@$paths) {